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ABSTRACT 


This manual provides a condensed users description and theory for TRW T s 
Vortex-Lattice Method Subsonic Aerodynamic Analysis for Multiple-Lifting- 
Surfaces (N. Surface) Program HA010B. The program is designed to provide 
solutions of engineering accuracy for determining the aerodynamic loads on 
single- or multiple-lifting-surface configurations that represent vehicles 
in subsonic flight, e.g., wings, wing-tail, wing-canard, lifting bodies, 
etc. The manual describes the preparation of the input data, associated 
input arrangement, and the output format for the program data, including 
specification of the various operational details of the program such as 
array sizes, tape numbers utilized, and program dumps. As supplementary 
information, the manual includes a full description of the underlying theory 
used in the program development and a review of the program qualification 
tests* 
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1.0 PROGRAM ABSTRACT 


PROGRAM NUMBER; 

PROGRAM TITLE; 

TAPE NUMBER; 

STATUS: 

LANGUAGE: 

SYSTEM: 

CORE STORAGE REQUIREMENTS: 
TYPICAL EXECUTION TIME: 
DESCRIPTION: 


HA010B (N.SURFACE) 

TRW Vortex-Lattice Method Subsonic Aerodynamic 
Analysis for Multiple-Lifting-Surfaces 

T00078 or A10202 

Production 

Fortran V 

UNIVAC 1108/CDC 6500 Computer 
Approximately 50K words 
2 to 5 minutes per case (UNIVAC 1108) 


The aerodynamic airload distribution and spatially-integrated force and moment 
coefficients are calculated for single- or multiple-lifting-surface configuration* 
by an improved vortex-lattice method developed by TRW. In this method, the in¬ 
fluence of each surface is represented by a network of concentrated line vortices 
distributed on the surfaces and behind the surface-trailing-edges. The strength 
or circulation of these vortices is determined by the requirement that the flow 
be parallel to each surface at a discrete number of boundary control points or co- 
location points that is equal to the number of unknown vortex strengths. The 
treatment of the control point boundary conditions incorporated in the analysis 
(TRW's) is based on the exact surface geometry, i.e., no linearization or other 
usual simplifying assumptions are made. This feature makes it possible to perforn 
more accurate calculations for general non-planar lifting surface configurations. 
The effect of the leading-edge flow separation on the airload coefficients for 
theoretically sharp leading-edges is evaluated by an approximate technique based 
on the vortex-lift leading-edge suction analogy.. Numerical solutions can be per¬ 
formed including as many as 200 separate vortex filaments or elemental surfaces 
for symmetric and 100 for unsynunetric aerodynamic loadings respectively. The ex¬ 
tension of the imcompressible solutions to compressible flows (0<M<1) is accom¬ 
plished via the Prandtl-Glauert transformation. Flight over a ground plane is 
calculated by the method of images as a special option of the program. 

The output consists of data presented for ready engineering use such as pressure 
distributions, section coefficients, and spatially-integrated coefficients. Exact 
numerical solutions or arrays of solutions extrapolated using the lifting line 
theory from two or more exact vortex-lattice solutions may be output for multiple- 
and single-lifting-surfaces respectively. Other program features include: 
double precision matrix inversion, 4060-microfilm or Calcomp output, short or long 
print-format .output, etc. An outline of the program analysis and execution op¬ 
tions is presented in Pages 1-2 through 1-3. 
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PROGRAM ABSTRACT (.Contd,) 


ANALYTICAL MODEL FEATURES AND EXECUTION OPTIONS OUTLINE 

ANALYSIS 

• The aerodynamic airload distributions on single- or multiple-lifting surface 
configurations are calculated by an improved (TRW’s) vortex-lattice method. 

• The treatment of the control points is based on the exact geometry of the 
lifting surfaces, i.e., none of the usual linearization or other simplifying 
assumptions in the literature are incorporated in the analysis. 

• The effect of leading-edge flow separation for theoretical-sharp leading 
edges (i.e., vortex-lift) is calculated by an approximate technique based on 
leading-edge suction analogy. 

• Compressibility effects are accounted for via the Prandtl-Glauert trans¬ 
formation. 

• Ground effects are calculated by the method of images that provides for 
exact analytical solutions for a flat ground plane of infinite extent, 
i.e., the boundary conditions of parallel flow at the ground plane are 
exactly satisfied. 

• Arrays of solutions may be extrapolated from two exact vortex-lattice 
solutions by a method procedure based on the lifting-line theory. 

VEHICLE CONFIGURATIONS 

(See Table 1.01, Page 1-4) 

• Single Surface: (XQT ISURF Option) 

A single surface of any configuration, shape, or form with or without 
severe surface discontinuities may be considered. This includes lifting 
surface configurations with flaps, ailerons, slots, with or without 
camber. 

• Multiple Surfaces: (XQT NSURF Option) 

Up to five separate lifting surfaces of any configuration, shape, or form 
can be considered simultaneously. In each surface the effect of severe 
surface discontinuities can be considered in the same manner as outlined 
above for the single surface analysis. Multiple-lifting-surface configura¬ 
tions that may be analyzed include: wing-tail-fins, canard-wing-fins, 
thick-wing, lifting-body, and many other configurations. The complexity 
of the configurations that may be successfully analyzed depends on the 
maximum number of elemental panels or control points that can be con¬ 
sidered simultaneously, i,e., 200 for symmetric and 100 for unsynrmetric 
loadings respectively. 
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PROGRAM ABSTRACT (Contd.) 


OUTPUT OPTIONS 

• Printed Output 

1) Short-Print: the surface geometry, the airload force and pitching 
moment section coefficients, and all the force and moment spatially- 
integration airload coefficients are output for each of the lifting 
surfaces considered, 

2) Long-print: the short-print output, and the details of the lift 
(pressure coefficient) and vorticity distribution on each of the 
lifting surfaces considered are output. 

3) Debug-Print: the long-print output plus the details of the induced 
velocities and influence coefficients are output. 

• Tape Output 

1) The lifting surface vortex-lattice geometry, section aerodynamic co¬ 
efficients, etc. that are calculated in obtaining solutions are output 
on magnetic tape in the format required for executing the TRW plotting 
option, or 

2) By executing the plotting option (TRWPLT) included in the program, 
4060-microfilm or Calcomp plots output of solutions (//1 above) can be 
obtained directly. 

SPECIAL OPTIONS 

• Ground effects: flight in the presence of a very near ground plane may 
be calculated. 

• Lifting-Line: arrays of solutions may be obtained by extrapolation from 
two exact vortex-lattice solutions using a method based on the lifting¬ 
line theory. This option at present (HA010B) is available only for single¬ 
lifting-surface configurations. 

EXECUTION TIME 

• Symmetric loadings: about one minute per vortex-lattice solution for 100 
elements. 

• Unsyrametric loadings: about four minutes per vortex-lattice solution for 
100 elements. 

• With ground effects: about twice the time required for out-of-ground. 

m Lifting-line arrays: about 1/2 minute extra running time. 

• Maximum time: about four minutes and eight minutes per vortex-lattice 
solutions of out-of-ground and in-ground problems. The running times 
are based on 200 and 100 vortex-lattice elements for symmetric and un- 
symmetric loadings respectively. 
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TABLE 1.01 - REPRESENTATIVE LIFTING-SURFACE PROBLEMS DF VARIOUS CONFIGURATIONS THAT CAN BE 
SUCCESSFULLY SOLVED USING THE TRW VORTEX-LATTICE ANALYSIS PROGRAM NO. HA010B 


VORTEX-LATTICE CONFIGURATION 


NUMBER OF 
ELEMENTAL 
PANELS 


EXECUTION 
TIME PER 
CASE 


34 sec 



vert, fin 
omitted 


EVALUATION OF RESULTS 

TYPE: 

THIN-SURFACE 

PROBLEM: 

WINGS OF AR = 6 

RESULTS: 

VERY SUCCESSFUL 

DIFFICULTY: 

NOME 

TYPE: 

THIN-SURFACE 

PROBLEM: 

WINGS OF LOW AR 

RESULTS: 

VERY SUCCESSFUL 

DIFFICULTY: 

NONE 

TYPE: 

THIN-SURFACE 

PROBLEM: 

WING WITH END PLATES 

RESULTS; 

SATISFACTORY 

DIFFICULTY: 

SEVERE DISCONTINUITY 

TYPE: 

THICK-SURFACE 

PROBLEM: 

WING THICKNESS 

RESULTS: 

VERY SUCCESSFUL 

DIFFICULTY: 

NONE 

TYPE: 

THIN-SURFACE 

PROBLEM: 

DOUGLAS F5D-1 AIRPLANE 

RESULTS: 

VERY SUCCESSFUL 

DIFFICULTY: 

NONE 

TYPE: 

THIN-SURFACE 

PROBLEM: 

NORTH AMERICAN XE-70 

RESULTS: 

VERY SUCCESSFUL 

DIFFICULTY: 

NONE 1 

TYPE: 

LIFTING-BODY 

PROBLEM: 

NASA-MSC //040A ORBITER 

RESULTS: 

NOT SUCCESSFUL 

DIFFICULTY: THE NUMBER OF ELEMENTAL 

PANELS THAT CAN BE CONSIDERED SIMULTA¬ 
NEOUSLY IS INSUFFICIENT TO PROVIDE 

VALID SOLUTIONS. BY NEGLECTING THE 
FUSELAGE THICKNESS THE THIN-SURFACE 
REPRESENTATION WAS APPLIED TO THIS 
PROBLEM VERY SUCCESSFULLY. 















































2.0 ANALYSIS 


2.1 Analytical Procedures Review 

It is a well know fact in aerodynamic theory that any surface, whether 
part of a body of finite thickness or merely an infinitesimally thin sheet, may 

be represented by a sheet of vorticity bound on the surface and a trailing 

vortex sheet shed behind the trailing edge. The velocity at any point in the 

flow field is the sum of the velocity vector induced by the vortex sheets and 

the free stream velocity vector. The strength of the vorticity representing 
the surface is determined by the requirement that the velocity vector computed 
as the sum of velocity induced by the vortex sheets and the free stream, be 
parallel to the surface. The strength of the trailing edge vortex sheet is 
determined from the surface bound vortex sheet strength using, the conservation 
of vorticity laws for steady flow (i.e., Helmholtz vorticity laws) together 
with the requirement that there be no force exerted on the sheet, which means 

that the trailing edge vortex sheet must be everywhere parallel to the stream- 

£ ^ ^ (1,2,3)i 

lines of the flow v 

In the vortex lattice method, the influence of the surface is represented 

by a network of concentrated line vortices, distributed on the surface and 

( 45 ) 

behind the trailing edge 5 . The strength of these vortices is determined by 

the requirement that the flow be parallel to the surface at a number of boundary 
point or co-location points which are equal to the number of unknown vortex 

strengths. The location of the trailing vortices must be assumed, and thus 
may not happen to be exactly parallel to the streamlines. However, the path 
of the vortex sheet behind the wing may be guessed beforehand with fairly 
good accuracy, and since, in most instances, the results are not strongly in¬ 
fluenced by the assumed path of the trailing vortices, excellent results of 
high accuracy are usually obtained v . 

2.2 Vortex-Lattice Equations 

The vortex lattice network arrangement used in the present analysis is 
illustrated in Figure 2.01^. As shown in the figure, the wing surface is 
divided uniformly into a number of elemental panels of approximately equal size. 
The vorticity on the upper and lower surfaces of each panel is represented by a 

fSuperscript in parathesis denote references listed in Section 8. 

^Figures and Tables of this section are found at the end of the section. 
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single bound vortex line which is located in accordance with 2-D theory at the 
1/4 chord of the panelThe location of the control point or co-location 
point is arbitrary and is usually selected at the mid point between adjacent 
vortex lines which corresponds to the 3/4 chord of the panel. Since the vor¬ 
tex filaments cannot be discontinuous, the bound vortices for each panel are 
bent at both ends forming a pair of trailing vortices which must extend to 
infinity. In this manner these vortices represent the vorticity in the trail¬ 
ing edge vortex sheet. The bound vortex at the 1/4 chord of the panels and 
the pair of trailing vortex filaments define a generalized skew-shaped (oblique) 
horseshoe vortex filament of strength F. The number of horseshoe vortex fila¬ 
ments is equal to the number of panels or control points. The velocity at 
the control points is by definition parallel to the surface, and hence, the 
corresponding normal velocity components to the surface are exactly equal to 
zero. This boundary condition when applied to the jth panel is given by 



( 2 . 2 . 01 ) 


where: 


IN. = the unit vector normal to the surface at the jth control 
^ point, 

-y 

V = the free stream velocity vector. 


= the scalar magnitude of the free stream velocity vector, 


F k = the strength of circulation of the kth panel horseshoe 
vortex filament, 


'Vj) 


the induced velocity vector influence function of the kth 
panel horseshoe vortex evaluated at the jth control point, 


K = the total number of panels for all the lifting surfaces 
considered. 


The induced velocity vector and influence vector functions are calculated 
in accordance with the induced velocity law of Biot and Savart^’^, Using the 
geometry convention for a representative horseshoe vortex shown in Figure 2.02, 
it follows 
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!uu .f' V!s f 

V„ Z-< 4. Vi) 




*k(j) 


/* - -► *> 

/ dfc x (r - r') 

J \<r-P )\ 3 


( 2 . 2 * 02 ) 


(2.2.03) 


The calculation of the vector influence functions i^(j) are somewhat tedious 
but straightforward. In the present analysis the trailing vortices are assumed 
to be straight lines which extend to infinity and which are oriented at an 
angle a/2 in the manner shown in Figure 2.02. In this instance the bound vor¬ 
tex and trailing vortices for each panel form a generalized skew-shaped horseshoe 
vortex of the same configuration analysed in References 8 and 9. Analytical 
solutions for the vector influence functions are presented in Section 2.3. The 
number of unknown horseshoe filament circulation strengths T are equal to the 

fcC 

number of boundary condition equations for the control points. Using matrix 
notation, these boundary conditions which were given in Equation 2.2.01, become 


IA.] + 




0 


(2.2,04) 


By inverting the matrix 



the unknown circulation strengths 


are obtained 
k 


ft] ■ ■ 'v x W 1 ! 1 <2,2 ' 05) 

In the presence of a ground plane, exact analytical solutions are obtainable 
by the method of images by assuming the ground plane to be perfectly flat and 
of infinite extent. Under these conditions, the boundary requirement for the 
flow at the ground plane is exactly satisfied by defining a mirror image of 
the vortex lattice directly below at a distance equal to twice the altitude 
from the ground plane. The calculation of the induced velocity (Equation 
2.2.02) is modified to include the effect of the image vortex lattice influence 
coefficients as follows 
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06) 

J 1 = the influence function of the image vortex lattice. 

k(j) 

Note that in the present formulation, none of the usual linearization or other 
simplifying assumptions were made on the boundary conditions at the control 
points (e.g., References 10 and 11). Therefore, severe variations in lifting 
surfaces planform such as twist, camber, dihedral, etc. are treated exactly and 
more accurate solutions may be obtained. 

2.3 Influence Coefficients 

Consider the straight vortex-filament element of length AS that is il¬ 
lustrated in Figure 2.03. In computing the induced velocity vector for the 
vortex filament at a field point P(0,Y,Z), the influence coefficient is ob¬ 
tained by integrating Equation 2.2.03 within the appropriate boundary condi¬ 
tions described in the figure. It follows 

AV ® ^ (the induced velocity) (2.3.01) 




The above equations can be used to determine the influence coefficient 
vector for any field point P(X,Y,Z) of any complex-shaped filament if it is 
assumed that it is composed of a discrete number of rectilinear increments AL 
(illustrated in Figure 2.03) and by performing the appropriate coordinate 
transformations. For the generalized skew-shaped vortex filament in Figure 2.02, 
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the calculation of the influence coefficient vector for any flow field P(X,Y,Z) 
is performed in this manner* Making use of the localized coordinate system in 
Figure 2*04, the shape of the skew-shaped vortex filament is prescribed by the 
coordinates of points B-D given by 


B = B(-c, -a, -d) 

(2.3.06) 

D = D(c, a, d) 

(2.3.07) 

c = a tan(A) 

(2.3.08) 

d = a tan(4>) 

(2.3.09) 


If the vortex filament is broken into three elements, i*e,, 
and B-C-D, the influence coefficient vector for the filament is equal to the sum 



E 

i=l 


IV. 

1 




(2.3.10) 


Segment #1 (°°-A-B) 

The contribution of segment #1 for an arbitrary field point P(X,Y,Z) is 
calculated as follows. The coordinates of point A are given by 


A = A(X, -a, -d') 


(2.3.11) 


d' = d + (X + c) tan(ct/2) 


(2.3.12) 


and making use of the geometry according to the sketch below. 



h 


1 



+ <«r - d) 
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(2.3.13a) 



(2.3.13b) 


h, = >/ (Y + a ) 2 + (Z + d ) 1 


. ,s 2 . . s 2 . . m 

h. *= v(. 


[X + c) + (Y + a) + (Z + d) 


cos (y) = - 


2 2 2 
V +h 2 " h 3 

2h x h 2 


/l - ' ' 2 


R = hj VI - (cos y) 


h, = cos (y) 


(2.3.13c) 


(2.3.13d) 


(2.3.13e) 
(2.3.13f) 


Using Equation 2.3.04, the scalar part of the influence coefficient can now be 
computed 




1 + 


h l + h 4 


V< h i + v 2 + r2 


(2.3.14) 


The calculation of the vector part of the influence coefficient will be 
considered next. The coordinates of point Q shown on the sketch are 


Q - Q<X , Y , Z q > 


<2.3.15a) 


= - c + (h^ + h^) cos (a/2) 


(2.3.15b) 


Y - - a 

q 


(2.3.15c) 


Zq = - d - (h^ + h^) sin (a/2) 


(2.3.15d) 


and the unit vectors for the line segments B-Q and Q-P can now be calculated 


1BQ — IX cos (a/2) - 1Z sin (a/2) 


(2.3.16) 




(2.3.17) 
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then, the vector part of the influence coefficient, i.e., a unit vector, is 
given by the vector cross-product 


IV? = 1BQ x 1QP (2.3.18) 

Segment //2 (D-E-°°) 

The contribution of segment #2 for the same arbitrary field point P(X,Y,Z) 
is calculated in the same manner as outlined for segment #1; specifically, 
Equations 2.3.19 through 2.3.23 are used in place of 2.3.11, 2.3.12, 2.3.13, 
and 2.3.15 respectively, where 


E = E (X, a, +d # ) 


(2.3.19) 


d T = d - (X - c) tan (a/2) 


(2.3.20) 


h l = yjcx. - c) 2 + (d - d') 2 

h 2 = \J (Y - a) 2 + (Z - d) 2 

h 3 = \j(.X - c) 2 + (Y - a) 2 + (Z - d) 2 


(2.3.21a) 


(2.3.21b) 


(2.3.21c) 


x q - c + (h A + h^) cos (a/2) 


(2.3.22a) 


Y = a 

q 


(2.3.22b) 


Z = d - (h^ + h^) sin (a/2) 


(2.3.22c) 



= - 1DQ X 1QP 


(2.3.23a) 


1DQ = 1BQ 


(2.3.23b) 
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Segment #3 (B-C-D) 


The contribution of segment #3 for the same arbitrary field point P(X,Y,Z) 
considered for segments #1 and #2 is calculated in a like manner as outlined in 
detail for segment //l. For segment #3, the coordinates of points B(-c,-a,-d) and 
D(c,a,d) are used to determine the solutions for 


. 2 sf? 


+ a + d' 


(2.3.24a) 


h 2 = /(X - c) 


2 + (Y - a) 2 + (Z - d) 


(2.3.24b) 


h = \/(x + c) 2 + (Y + a) 2 + (Z + d) 


(2.3.24c) 


cos (y) = - 


2 2 2 
h l +h 2 " h 3 

2h l h 2 


(2.3.24d) 


cos (y) 


(2.3.24e) 


R = \/l - (cos y) 


(2,3.24f) 


and using Equation 2.3.04, the scalar part of the influence coefficient for 
segment //3 (B-D) can now be computed 


= — 

“ 3 R 


h l + h 4 


\/ (h l + h 4 )2 + R2 \/ h 4 2 + * 


(2.3.25) 


Next, to calculate the vector part of the influence coefficient the 
coordinates of point Q(X .Y ,Z ) must be calculated first. Accordingly 

q q q 


X q = C + h 4 (2c/h 1 ) 


(2.3.26a) 


Y q = a + h 4 (2a/h 1 ) 


(2.3.26b) 
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(2.3.26c) 


Z = d + h, (2d/h.) 
q q 1 


The unit vectors IBQ and 1QP are given by 



(2.3.27) 


(2.3.28) 


from which the vector part of the influence coefficient, i.e., the unit vector 
IV can be calculated by simply taking the vector cross-product 





= - IBQ X 1QP 


(2.3.29) 


2.4 Exact-Theory Aerodynamic Forces and Moments 

The net aerodynamic force vector exerted on the jth panel (i.e., jth 
elemental surface) is calculated using 



(2.4.01) 


(2.4.02) 


where 



V. 

J 


8 


= the length vector of the bound vortex filament of the panel, 

= the velocity vector computed as the sum of free stream and 
induced velocity vectors evaluated at the midpoint of the 
bound vortex of the jth panel, 

= the Prandtl-Glauert compressibility factor, = 



r 
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*k(J> 


the vector influence function of the kth panel evaluated at 
midpoint of the jth bound vortex. 




The force vector F is assumed to act at the midpoint of the bound vortex fila¬ 
ment of the kth panel. The corresponding section aerodynamic load coefficients 
and integrated wing force and moment coefficients are obtained by the appro¬ 
priate summation of the forces acting on each panel. In determining these 
quantities the following relations derived from the exact analysis are used 


Force Coefficients for jth Panel 





2 


2 


2 


V (p co V ro ) 
1 00 " 

AS. 

3 




V<p m o 


as 


j 


j • (lx) 

• (1Y) 


• ( 12 ) 


(2.4.03) 


(2.4.04) 


(2.4.05) 


Differential Pressure Coefficients 



(2.4.06) 


Lifting Surface Section Airload Coefficients 

For each lifting surface, by summing up the appropriate force contributions, 


C m(Y) 






AY. 

J 


AS. 
_3 

AY. 

J 


Y 


Y 



X (C/4)) 
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+ 



X.j 


AS. 

3 




(2.4.07) 


, (2.4.08) 



(2.4.09) 



cos(a) + c 


sin(a) 


( 2 . 4 . 10 ) 


c i(Y) ° c n(Y) 


t(Y) 



= ' c t(Y) COs(a) + C n(Y) Sin(a) 


Liftin g Surface Spatially-Integrated Airload Coefficients 




j 







(C/4) 



^(< 74 ) 



C L ” S? cos ( q ) + C T sin(a) 


Cp * - cos(a) + sin(a) 


V = X j _ X (C/4) 


Y 




Z (C/4) 


(2.4.11) 

(2.4.12) 

(2.4.13) 

(2.4.14) 

(2.4.15) 

(2.4.16) 

(2.4.17) 

(2.4.18) 

(2.4.19) 

(2.4.20) 

(2.4.21) 
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In equations 2.4.07 through 2.4.16 the summations are performed over the 
vortex-lattice elemental surfaces that correspond to each lifting surface. To 

obtain the total force for the sum of N lifting surfaces, the summation is 
carried out over all the panels (j = l,J) and the reference dimensions for the 
first lifting surface (n=l) are used. 

2 • 5 Approximate-Theory Aerodynamic Forces and Moments 

In the preceding sections the procedure for obtaining exact solutions 
for the aerodynamic forces and moments by the vortex lattice method were 
developed. To generate an array of such solutions (for instance by varying 
the wing angle of attack) would be considered unwise because of the excessive 
computing time expenditure required. Instead, an array of approximate 
solutions of sufficient engineering accuracy may be obtained by extrapolation 
from two exact vortex lattice solutions by using the lifting line theory. 
Accordingly, for a single lifting surface, given two exact solutions obtained at 
two different angles of attack c^, and the extrapolated solutions for any 
other angle of attack a may be obtained in the following manner. 


Wing Lift Coefficient 



(2.5.01) 


(2.5.02) 


C T = m (a - aR ) 
n o 


(2.5.03) 


Wing Moment Coeffici ents (Pitching, Rolling, and Yawing) about C/4 



(2.5.04) 



(2.5.05) 



(2.5.06) 
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Wing Section Lift Coefficients 


c la 


CO -CO 

^(Y) *2(Y) 

1(Y) " C T - C 

L 1 L 2 


“\y> ■ Ct l(Y) ' Ct *l(Y) C L. 


C£ (V) • C,a l(Y) C L + Clb (Y) 


Wing Section Induced Drag Coefficients 


r cd. - ca, 

' I X 1 i 2 

d i(Y) \ c 2 _ c 2 

*1 21 (Y) 


' "\<Y> ' C ' 1(Y)2 


Cd i(Y) = Cd i + Cd i(Y) C& (Y) 2 
o 


(2.5.07) 


(2.5.08) 


(2,5.09) 


(2.5.10) 


(2.5.11) 


(2.5.12) 


or using the lifting line theory exact results, 


c d 


i(Y) 


m cia 


1(Y) 


1_ 

2n 


C Z 


(Y) 


(2.5.13) 


Equation 2.5.13 is recommended in the analysis of wing planforms of moderate 
aspect ratio and negligible sweep and dihedral angles. 

Wing Induced Drag Coefficient 


r +b/2 

= ® Z-b/2 


Cd i(Y) C (Y) dY 


(2.5.14) 


which when expressed as a function of C becomes 

L 


: D = C D + C L + C D ' C 

i i A i u x 2 


/ . 2 

L 


(2.5.15) 
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c c c 

The coefficients D. , D. and D. are constants which may be evaluated from 

1 o 1 1 1 2 

three separate approximate solutions. 


Drag Due to Skin Friction 


cd f - 2 CF (CONSTANT) (2.5.16) 

C D f = cd f (2.5.17) 


where CF is the aerodynamic cleanness factor which is defined as 


EQUIVALENT FLAT PLATE AREA 
CF = TOTTED AREA 



2S 


(2.5.18) 


The total drag coefficients are obtained as the sum of induced drag and skin 
friction drag for the wing section coefficients and the integrated wing co¬ 
efficients respectively. 

2♦6 Vortex Lift 

Experimental studies of sharp leading edge delta wings have shown that 
at even relatively low angles of attack the flow separates from the leading 
edge and rolls up into two vortex sheets or cone shaped cores of rotating 
fluid particles with the axes of rotation located approximately parallel to 
the leading edges ’ . In general, this vortex flow results in an increase 

in lift that is called vortex lift or non—linear lift, and an increase in drag 
resulting from the loss of leading edge suction. Although it is desirable to 
avoid the formation of the separated flow vortex sheets because of the high 
> it is a phenomenon which is always encountered by low aspect ratio 
highly swept wings operating near the stalling attitude. Furthermore, the 
separated vortex flow phenomenon is not restricted to this type of wing 
planform but is a general characteristic of all sharp leading-edge wings 
regardless of their leading—edge sweep angle. 

The attached flow and separated vortex flow over blunt and sharp lead¬ 
ing edge wings respectively are schematically illustrated in Figure 2.05. 

For the attached flow (blunt leading edges) there exists a net thrust force 
which is called the leading edge suction. This force may be interpreted to be 
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exerted by the bound vortex filaments at the leading edge. For sharp leading 
edges, attached flow cannot exist because of the infinitely large velocity 
and low pressure required, and therefore, the flow separates locally dis¬ 
placing the leading edge bound vortex filaments into the cavity formed by the 
separated flow. The vortex filaments in the cavity are not free vortices and 
therefore they will exert a net force in the normal direction to the wing 
surface because of the reorientation of the velocity vector. 

Exact analytical solutions for sharp leading edge wings with leading 
edge separated flow are available in the published literature for a very re¬ 
strictive range of wing geometries y9 16)^ Usually these solutions are based 
on the assumption of conical flow, and as a consequence, only perfect delta wing 
planforms which feature no twist, no camber, and straight trailing edges 
can be considered. Therefore, in the prediction of the vortex lift for 
arbitrary sharp leading edge wing planforms, only empirical methods or 
approximate theory is available. The most successful analytical techniques 
are based on the vortex-lift leading-edge suction analogy. The method is 
based on the assumption that the vortex lift vector can be estimated trom the 

leading edge thrust or suction force associated with the flow over the wing 
planform without separated flow at the leading edge. It follows (see 
Figure 2.05) 

c 

Ac n cos (A ) (| ot | ) (2.6.01) 

v LE ' ' 


Ac 


tv 



( 2 . 6 . 02 ) 


^ Cm v(c/4) 




X (C/4) \ 


(2.6.03) 


Ac* y = ACn v cos(a) + Ac ty sin (a) (2.6.04) 

Acd = - Ac ty cos(a) + Ac ny sin(a) (2.6.05) 

These increments represent the force and moment coefficients due to the vortex 
lift which must be added to each lifting surface section coefficients in order t 
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obtain the net forces on the wing corresponding to the case of no leading edge 
suction. In the derivation of these relations, the vortex lift distribution 
has been assumed to act at the leading edge and normal to the wing chord plane. 

Because of the approximate manner in which the leading edge suction thrust 
coefficient is calculated the evaluation for the vortex lift effects are only 
applicable to lifting surface planforms having a flat chord plane. Note that 
the thrust coefficient is calculated by integration of the forces in chordwise 
strips acting in all the bound vortices of the vortex-lattice matrix. Such an 
integration will provide accurate evaluations of the leading edge thrust if 
the chord plane is flat or if a very large number of chordwise rows are con¬ 
sidered* If an infinite number of chordwise rows are considered, the vortex- 
lattice method will provide solutions equivalent to the potential flow solutions 
and an exact evaluation of the leading edge suction force will result. In the 
latter case, the leading edge suction thrust coefficient could be evaluated from 
the force exerted by a few of the leading edge bound vortices. 

The spatially integrated wing coefficient increments due to the leading 
edge vortex lift are calculated from the wing section coefficient span dis¬ 
tributions given in Equations 2.6.01 through 2.6.05, as follows 


AC L 


V 


1 

S 




AcJl 

v 


Acd 

v 


C dY 


C dY 


(2.6.06) 


(2.6*07) 


ACm P,v(C/4) 



4c »v Ke - X (C/4>) 

* 4c tv ( Z LE - Z (c/4>) 


C dY 


(2.6.08) 


For obtaining approximate solutions of the vortex lift at selected wing angles 
of attack from two or more exact vortex lattice solutions, the following 
assumption is made which yields accurate results 
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(2.6.09) 


'“V' r .«> - C 1<V) + C 2(Y) 

A2 

%<¥,«) = C 3(y) + C 4(y) a (2.6.10) 


The quantities C^, and are constants which are evaluated from the 

two vortex lattice solutions obtained at different angles of attack a- 
and 0^ in the manner described in Section 2.5. 

2.7 Surface Discontinuities 


Surface discontinuities occurring in the wing surface such as those 
encountered at the aileron-flap juncture cannot be treated exactly by the 
vortex lattice solution technique. Although by increasing the number of 
elements or control points the accuracy of the solutions should in principle 
be improved, sharp discontinuities in the surface may cause local oscillations 
on the solutions that become more severe as the number of elements are in¬ 
creased. To circumvent this problem, a cosine smoothing option whose effect 
is illustrated in Figure 2.06 has been adopted. The affected span length 5 
is prescribed by the program user as an execution input. A value of 1/5 of 
the semispan is recommended. In addition, various other options for spacing 
the elements in the spanwise and chordwise directions have been made avail¬ 
able. These include constant spacing, cosine spacing, and spacing prescribed 
as an execution input. For deflected control surfaces, a minimum of four 
elements of approximate equal size per chordwise row is recommended, the last 
element corresponding to the deflected surface. 


The airload section coefficients for the flapped surfaces are calculated 
in a similar manner to the wing section coefficients (Section 2.4). By con¬ 
sidering only the forces on the bound vortices on the flapped surfaces 

(X.-X, .) it follows 

J 


C n f (Y) 



Y, 


< V x 



°t f (Y) 





(2.7.01) 


(2.7.02) 
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V Y) c 




'F . AY 
Z,J J 


AS. 

^ (Wj) 


AS 


+ C F 


Z,J ay 


' ( Z 3 ' ^Jy. 


l f (Y) “ c n f (Y) cos ( a ) + c t (Y)sin(a) 


(2.7.03) 

(2.7.04) 


C d 1(f (Y) = - c tf (Y) cos < a > + c nf(y) sin(a) (2.7.05) 

For obtaining approximate solutions (see Section 2.5) the following 
assumptions are made 


£ f (Y,a) = 

F KY) + 

F 2(Y) “ 

(2.7.06) 

Cd i>f (Y.a) 

F 3(Y) 

+ F 4(Y, (%«•“>) ‘ 

(2.7.07) 

C h f (Y,a) = 

F 5(Y) + 

F 6(Y) “ 

(2.7.08) 

The quantities F^, 

F 2’ " F 6 

are constants which are 

evaluated from two exact 


vortex lattice solutions obtained at different angles of attack a^ and 
2.8 Lift in the Presence of a Fuselage 


Two options for calculating the lift in the presence of a generalized 
cylindrical-shaped fuselage are possible: 

1) Analytical Method - Circular Shaped Fuselage 

In this method the effect of a circular shaped fuselage of radius R and of 
infinite length is analyzed by the method of images. According to the hydro- 
dynamic theory, the boundary conditions of zero normal flow to the fuselage 
surface due to wing trailing vortices are satisfied by defining a pair of 
vortex filament images inside the fuselage. Since the free stream velocity 
vector is neglected in satisfying the boundary conditions on the fuselage, 
only approximate solutions which are valid at small angles of attack are 
obtainable (i.e., the fuselage attitude is oriented parallel to the wing 
trailing vortices). Using cylindrical coordinates with the axis of symmetry 
located at the center of the fuselage, the location of the pair of images 
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for a wing trailing vortex filament is determined from 


Image // 1 


Image # 2 ^ 


X 


I 


» X 




r 


I 


-+ 


= r 



r 


i 


- r 



x 




(63) 

(64) 

(65) 


where 


X 

r 

r 


( the coordinates and circulation strength at a point in a 
wing trailing vortex filament. 


The calculation of the induced velocity of the pair of images is performed 
by integration in the manner outlined in Section 2,3 from which the calcula¬ 
tion of the induced velocity vector influence functions follows. 

The effect of the presence of a circular shaped fuselage on the wing 
bound vortices cannot be determined by exact analysis except under very re¬ 
strictive assumptions for the wing geometry. Therefore, a relatively simple 
and approximate approach has to be adopted. The effect of the presence of 
the fuselage on the velocity induced by the bound vortices is assumed to be 
the same as its effect on a two-dimensional uniform rectilinear flow. Thus, 
the velocity component induced by the bound vortices at some point P in the 
flow field is increased by a factor 



(2.8.04) 


which is an exact correction for a straight and infinite bound vortex line 
intersecting the cylinder axis of symmetry at 90°. The approximation will 
be valid for wings having small sweepback angles and slender fuselages 
centered at the wing axis of symmetry. 


tThe sum of the contribution of images #2 will be zero for symmetric wing 
loadings. 
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2) Vortex-Lattice Method - Arbitrary Shaped Fuselage 

The effect of the presence of an arbitrary shaped fuselage on the wing 
lift can be calculated using the vortex lattice method.t The accuracy of the 
solutions that are obtained depends on the selection of the number of control 
points and their location on the fuselage surface* For accurate calculation 
of the fuselage it would probably require an equal or larger number of con¬ 
trol points on the fuselage surface than the number used for the wing. The 
main advantages of using the vortex-lattice method in preference to other 
analytical methods (e.g., the method of images) are: (1) non-planar wings of 
arbitrary planform may be analyzed, (2) no restriction is placed on the cross 
section, length or shape of the fuselage, and (3) the accuracy desired for 
obtaining solutions can be obtained by increasing the number of panels or by 
varying the location of the control points at the surface of the fuselage. 

In the present vortex-lattice program (HA010B), the treatment of exact fuselage¬ 
wing vehicle configurations is severely limited by the total number of elemental 
vortex-filament surfaces (about 100) that can be considered simultaneously. 

At present, only by an approximate representation of the fuselage (e.g., by 
defining an equivalent flat surface) can the fuselage-wing configurations be 
analyzed by the program. 

2.9 Program Qualification Tests 

The vortex lattice method is suitable for determining accurate solutions 
for the aerodynamic loads on lifting surfaces of arbitrary planforms. Never¬ 
theless, for conventional wing planforms featuring negligible dihedral and 
small camber, generally more exact analytical solution methods based on the 
integral lifting surface^^ and lifting line theories^^ are available. 

These solutions and equivalent experimental test results have been used to 

(8) 

demonstrate the accuracy of the present vortex-lattice analytical method. 

For wing planforms with severe surface discontinuities, only comparisons 

tit is a well known fact in hydrodynamic theory that the presence of arbitrary 
bodies immersed in a steady subsonic or supersonic flow field can be repre¬ 
sented by distributions of sources and sinks inside the volume occupied by 
the bodies. Mathematically, the distributions of sources and sinks may be re¬ 
placed by distributions of doublets or vortex filaments located on the surface 
of the bodies. If the vortex filament representation is adopted (i.e., the 
vortex lattice method), a rectangular vortex ring for each panel in the sur¬ 
face of the bodies is defined with the corresponding control points located 
at the center of each panel. 


2-20 



against available experimental test results can be performed* In general 
it should be noted that: (1) the vortex lattice solutions are affected by the 
number of surface elements, the location of the control points, and the geo¬ 
metric arrangement of the vortex lattice network which are input quantities 
prescribed by the program users, (2) for conventional wing planforms with 
moderate aspect ratio and moderate dihedral and sweepback angles, the lift¬ 
ing line methods will provide more accurate solutions, and (3) when the wing 
surface is placed very near a ground plane, large differences in the span and 
chord lift distributions in comparison with out-of-ground conditions occur; 
therefore, ground effects can only be properly analyzed by the integral lift¬ 
ing surface or the vortex lattice method. In the lifting line method the 
local section aerodynamic characteristics are assumed to depend only on the 
airfoil section properties for two dimensional flow (i.e. , infinite aspect 
ratio) which are generally determined from wind tunnel tests. In 

the presence of a very near ground plane this assumption is not valid. 

2.9.1 Vortex-Lattice Geometry and Control Point Locations 

The effect of varying the vortex lattice geometric arrangement for a 
fixed wing planform on the solution of the spatially integrated wing airload 
coefficients is demonstrated in Table 2.01. Predictions are presented for 
a delta wing planform of aspect ratio of two. Both constant spacing and 
cosine spacing of the elements in the spanwise and chordwise directions are 
considered. Nevertheless, the differences between solutions on the integrated 
wing coefficients is found to be negligible, i.e., within one percent. On 
the other hand, the variation of the vortex lattice arrangement due to constant 
and variable (cosine) spacing of the elements shows a significant effect 
the predictions for the spanwise section lift distribution in the region near 

the wing tip (see Figure 2.07). Based on the results presented, it is con¬ 
cluded that constant span spacing of the elements provides more reasonable 
solutions than variable spacing for wings of low aspect ratio (^ 2). For 
moderate to high aspect ratio wings, the opposite is found to be true. As a 
general rule, accurate solutions are obtained by selecting not less than 
ten spanwise elements and not less than four chordwise elements. The spacing 
of the elements should be such that adjacent elements have approximately equal 
size and equal configuration. Furthermore, the accuracy of the predicted 
spatially integrated wing coefficients depends primarily on the total number 
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errors in the calculated local airload co- 


of elements considered, i.e., 
efficients will cancel out in the integration process. 

The effect of varying the control point locations on the wing integrated 
airload coefficients for a delta wing of aspect ratio of two is presented in 
Table 2.02. As shown in the table, by moving the control points aft of the 
3/4 chord of the panels, an increase in the wing airloads and a forward shift 
of the center of pressure results. Similar conclusions are drawn for wings 
of moderate aspect ratio and negligible sweepback angles (see Table 2.03). 
Although for the low aspect ratio delta wing planforms better agreement be¬ 
tween analytical and experimental solutions are obtained with the control 
point locations aft of the 3/4 chord of the panels, the best control point 
location which provides accurate results for any wing planform is considered to 
be at the 77 percent of the elemental chords. 

2*9.2 Wings of Moderate Aspect Ratio and Negligible Sweepback 

Three different basic wing planforms of aspect ratio of six having 

no twist and zero sweepback at the 1/4 chord are considered. Solutions for 

the integrated wing airload coefficients using the present vortex lattice 

(18) 

program and the lifting line theory are compared in Table 2.03. The 

lattice network arrangements and corresponding section lift distributions for 

the vortex lattice solutions are shown in Figure 2.08, The comparison of the 

calculated span loadings for the rectangular and the straight tapered wings 

(20 21 ) 

against lifting line semi-empirical predictions ’ is presented in 

Figure 2.09. A qualitative evaluation of results shows that the program pre¬ 
dictions are in good agreement with the lifting line exact theory and the 
lifting line semi-empirical predictions. 

2.9.3 Wings of Low Aspect Ratio and Large Sweepback 

Wing planforms of low aspect ratio having no twist and large leading 
edge sweepback angles for which comprehensive wind tunnel test data are 

MQ n t \ 

available are considered. * The range of wing planforms includes delta, 

clipped delta, and straight tapered configurations of aspect ratios ranging 
from two to four and leading edge sweepback angles as large as 60° (see 
Table 2.04). The airfoil sections are relatively thin (y 3 percent) with 
sharp or rounded nose sections. Under these conditions locally separated 
flow at the wing leading edge with the accompanying vortex lift and loss of 
leading edge suction force occurs. Analytical solutions for the wing plan- 
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forms were generated by the program assuming no separated flow and fully sepa¬ 
rated flow at the leading edges. Analytical predictions for the integrated 
airload coefficients are compared with the experimental test results in 
Table 2.04. Comparisons for a range in angle of attack from 0° to 25° are 
shown for four representative wing planforms in Figures 2.10 through 2.12. 
Comparisons of the lift distribution on the lifting surface for a delta wing 
planform are presented in Figure 2.13. The analytical solutions in the table 
and the figures were calculated assuming a control point location of 77 percent 
of chord for the elemental panels. An evaluation of the overall results leads 
to the following conclusions. 

1) The analytical solutions for the integrated wing lift coefficients 
are found in excellent agreement with the wind tunnel test results 
(Figure 2.10). In general, the analytical solutions with and without 
leading edge suction bound the experimental results. 

2) Analytical solutions for the wing drag coefficients when compared 
with the experimental results, although in less agreement, showed the 
same trends as for the lift (Figure 2.11). 

3) The analytical solutions for the integrated wing pitching moment 
coefficients about the 1/4 of the mean geometric chord are not 
found to be in good agreement with the wind tunnel test results 
(Figure 2.12). Differences of the order of 25 percent are encountered 
for the delta wing planform of aspect ratio of two and somewhat 
smaller for the other wings. The reasons for the discrepancies 
encountered for the pitching moment probably arise from two sources. 
First, the test data for the wings were deduced from tests conducted 
for wings with a slender fuselage. To obtain the characteristics of 
wing alone, data for the fuselage alone was subtracted from the wing- 
fuselage data and, as a result, the wing-fuselage interference effect 
was neglected. Second, for the delta wing configurations the calcu¬ 
lated lift in the tip regions is extremely large while in the real 
test environment stalling in these regions would surely occur. This 
would result in a redistribution of the vorticity on the wing upper 
and lower surfaces which cannot be represented accurately by the vor¬ 
tex lattice theory (see Figure 2.13). In addition, it should be 
noted that the pitching moment error for the C/4 location is somewhat 



misleading in assessing the accuracy of the vortex lattice method 
since at this location the magnitude of the pitching moment is of 
zero order, i.e., more than an order of magnitude smaller than the 
wing lift coefficient* The error in the pitching moment predictions 
for the C/4 location (Figure 2*12) represents a difference of about 
2,5 7a of C on the location of the center of pressure at moderate 
angles of attack (a < 5°) that is equivalent to about 1% of the 
maximum chord length of the wing. Another point worth noting is that 
the vortex lift was found to be many times smaller than the wing lift 
calculated by the vortex lattice method. Therefore, the approximate 
treatment of the vortex lift by the suction analogy is considered 
satisfactory in determining the net airload sum for the wing. 


2.9.4 Ground Effects 

Analytical solutions that include the ground effects are obtainable 
by the method of images by assuming the ground plane to be perfectly flat and 
infinite extent. Under these conditions, the boundary requirements for the 
flow at the ground plane are exactly satisfied by defining a wing image 
located directly below the wing at a distance equal to twice the altitude from 
the ground plane. For altitudes equal or greater than one chord length, the 
lifting line and the lifting surface analytical techniques provide comparable 
and accurate solutions to the problem. When the altitude from the ground 
plane is diminished below the one-chord length, the chordwise distribution of 
circulation is very strongly affected by the presence of the ground plane. 

In this range of altitudes, only the lifting surface methods such as the 
vortex lattice analysis technique can be expected to provide accurate solutions. 


. The accuracy of the present program for predicting ground effects may 
be demonstrated by comparing analytical solutions against lifting line pre¬ 
dictions and experimental test results. xn accomplishing these 

objectives, ground effects were calculated for three different wing planforms 
for which comprehensive wind tunnel test and/or flight data are available. 

A comparison of results is shown in Figure 2.14. In examining the figure, the 
following observations are made: 


1) For the rectangular wing planform of aspect ratio of six shown in 
the figure (Figure 2,14[A]), the program predictions of the ground 
effects are found to be in perfect agreement with the flight test 
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data 

line 


(26) 

for the range of altitudes tested. As expected, the lifting 

(25 26) _ 

theory v * is inaccurate very near the ground plane (H/C 1) . 


2) For the straight tapered wing of aspect ratio of ten (Figure 2.14[B]), 

the program predictions are found in very good agreement with the ex- 

(27) 

perimental data obtained in the wind tunnel* Again, at distances 

( 26 ) 

very near the ground plane, the lifting line theory proves to be 
inaccurate* An illustration of the corresponding variation of the 
span lift distribution due to the ground effects is also shown in the 
figure. 


3) For a delta wing of aspect ratio of 2*309 (Figure 2*14[C]), the 

present program predictions are compared with semi-empirical results 

(28) 

reported by Fox. The analytical predictions of the ground effects 

by the program are found not to be in very good agreement with these 
results* However, the accuracy of this data is suspected since the 
wing lift coefficient out-of-ground is found to be about 20 percent 
larger than reported by other investigators for comparable delta 
wing planforms operating at the same angle of attack^^’ (see 

Figure 2.10, Configuration Cl). 


2.9.5 Wings of Unusual Planforms 


Analytical predictions of the aerodynamic characteristics for wings 

having large sweepback angles and unusual planforms obtained by the present 

■ (29 30) 

program and the lifting line theory * are compared in Figures 2*15 and 

2*16* In the first figure, the span loading distribution predictions for 
three different wing planforms of aspect ratio of six having continuous and 
broken sweepback of 45° at the 1/4 chord are presented* In all three cases 
good agreement is found between the vortex lattice and the lifting line pre¬ 
dictions* Although the larger discrepancies are.found at the root region, the 
small differences encountered in the span loading predictions are probably 
due to the greater accuracy of the vortex lattice method for representing the 
real problem* Predictions for the lift slope and the location of the center 
of pressure on the wing surface also shown in the figure are found to be in 
good agreement* In the second figure (Figure 2*16), predictions of the effect 
of varying the sweepback angle on the wing lift slope for straight tapered 
wings of aspect ratio of six are compared. Again, a comparison between the 
vortex lattice and lifting line solutions are found to be in good agreement. 
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2*9.6 Wings With Severe Surface Discontinuities 


The accuracy of the present vortex lattice program for analyzing wing 
planforms having severe surface discontinuities is considered in this section. 
Such discontinuities arise from two sources: (1) sharp discontinuities in 
the wing surface such as: abrupt changes in the wing dihedral, the presence 
of wing-tip end plates, boundary layer flow fences, etc., and (2) trailing 
edge surface discontinuities arising from large deflections of control devices 
such as flaps or ailerons. The solutions for one example of each of these 
types of discontinuities is considered and compared against experimental 
results or other theoretical solutions. 

1) Wing of Aspect Ratio of Four with End Plates 

The exact analytical treatment of arbitrary wing planforms with end 
plates at the tip can only be performed using the exact geometry (no 
linearization) in prescribing the boundary conditions. The problem 
presents the most severe test for the analytical method because of 
the very large velocities induced in the spanwise directions by the 
end plate bound vortex filaments. Analytical predictions performed 

(31) 

by the present program are compared with experimental results 
for a rectangular wing of aspect ratio of four with large end plates 
in Figure 2.17. The analytical results showed a stronger effect of 
the end plates on the wing lift (about 30 percent larger) than ob¬ 
tained in the wind tunnel experiments. This discrepancy is probably 
due to the presence of separated flow in the corners of the wing-end 
plate junctures which would account for the loss of lift. 

2) Straight Tapered Wing of Aspect Ratio of Six with Flapped Surfaces 

A straight tapered wing of aspect ratio of six having simple trail¬ 
ing edge flapped surface of 25 percent of chord is considered. The 
flapped surfaces are assumed to be constituted by the wing flaps and 
the ailerons which extend from the root to the 62.5 percent and from 
the 62.5 percent wing station to the tip respectively (see Figure 2.18). 
Analytical solutions were obtained by the program for symmetric and 
unsymmetric span loadings. Symmetric span loadings were calculated 
for the wing operating with the flaps extended 30° and the ailerons 
neutral, and unsymmetric span loadings, by assuming unequal aileron 
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deflections of 10° down and 15° up for the left and right ailerons 
respectively. The handling of the flap-aileron junction surface 
discontinuity was treated using the smoothing procedure described 
in Section 2,7 using 6/'(b/2) value of 0.20. A summary of the princi¬ 
pal results obtained were plotted using the program standard plotting 
option and are presented in Figure 2,18. A comparison between the 

results obtained and the lifting line and thin airfoil theory analyt- 

(9) 

ical predictions are presented in Table 2.05. As shown in the 
table, the vortex lattice method predictions for the airload incre¬ 
ments due to the flapped surface deflections are found to be smaller 
than by the other method. The discrepancies in the results probably 
are due to the fact that in the present vortex lattice method the 
exact geometry of the wing section camber distributions are con¬ 
sidered while for the other method (thin airfoil theory) approximate 
geometric boundary conditions (which are valid only at very small 
flapped surface deflections) are used. The fact that the vortex 
lattice predictions for the wing airloads increments are smaller is 
a most revealing result. Note that solutions obtained based on 
thin airfoil theory usually overestimate the effect of the flapped 
surfaces by about 20 percent. 

2.9.7 Multiple-Surface Configurations 

The accuracy of the present vortex-lattice analysis program in ob¬ 
taining solutions for vehicle configurations that are represented by two or 
more lifting surfaces is to be evaluated in this section. Typical example 
configurations under this category are: wing + horizontal tail (2 surfaces), 
wing + canard control surface (2 surfaces), thick wing (2 surfaces), wing + 
horizontal tail + vertical tail + fuselage (4 surfaces), lifting body (2 or 

more surfaces), etc. The significant characteristic of the multiple-surface 
problem is the mutual influence or interference effect that each surface 

exerts on all the other surfaces. Such problems can only be properly 
analyzed by the vortex-lattice and surface-integral^^ methods. In de¬ 
termining the accuracy of the present analysis, analytical predictions were 
performed for three representative vehicle configurations for which wind- 
tunnel or flight data of sufficient quantity and accuracy is available. The 
results obtained, a comparison between analytical predictions versus experi¬ 
mental data, are presented in Figures 2.19 through 2.21. The vehicle con- 
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figurations and type of experimental data sources studied were as follows: 

1) out-of-ground wind tunnel tests conducted for a wing + canard surface + 

slender fuselage model in Reference 32, 2) flight test data in and out of 

ground conducted for the Douglas F5D-1 prototype airplane with a modified 
(33) 

ogee wing, and 3) flight test data in- and out-of-ground for the North 

(33) 

American XB-70 Airplane, In examining the comparisons presented in 

the figures, it must be concluded that the present vortex-lattice analysis 
method is capable of predicting the aerodynamic loads within a few percent 
(1 percent to 5 percent) of the experimental results. The details of the 
technical evaluation that led to this conclusion are discussed below. 

1) Out-of-Ground Predictions 

Analytical predictions for lift, induced drag, and pitching moment 
for the wing-canard-fuselage model are compared against wind tunnel 
test results in Figure 2.19. The predictions for the lift co¬ 
efficient are found to be in remarkable agreement with the test 
data, i.e., within one percent. This result was obtained not¬ 
withstanding of the very strong mutual interference effect that 
the canard surface exerts on the wing that is predicted by the 
analysis (see Table 2,06), The induced drag predictions are 
also found to be in very good agreement with the test data, 
especially if it is taken into account the fact that the 
magnitude of the induced drag force is much smaller (by a 
Factor of ^ 10) in comparison with the lift force. Similarly, 
comparisons for the pitching moment are given about the C.G. 
and the trailing-edge of the wing root chord. Although a very 
large discrepancy is found between the predicted and the test 
data for the pitching moment when expressed about the C.G., the 
scale of the pitching moment here is very small and misleading. 

By expressing the pitching moment about the aftermost location of 
the wing surface, the trailing-edge of the wing root chord, a 
more meaningful evaluation of results is possible. This fact can 
be corroborated by calculating the discrepancy of the location of 
the center of pressure that reveals the cause for the discrepancy 
in the pitching moment. Accordingly, the predicted location of 
the center of pressure when compared against the test data is off 
by about ten percent of the wing C, or, about three percent of the 
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model length. Since varying the vortex-lattice arrangement or the 
number of control points showed no significant change on the pre¬ 
dictions, it is concluded that the analytical predictions repre¬ 
sent an exact solution* Then, the small discrepancy encountered 
in the pitching moment (Figure 2.19d) or center of pressure lo¬ 
cation can only be attributed to wind tunnel test measurement 
errors or to the fact that the exact geometry of the wind tunnel 
model was only approximately represented by the vortex-lattice 
arrangement used in carrying out the calculations of analytical 
predictions. 

2) In-Ground-Predictions 

Analytical predictions for the lift of full-size vehicles in 
flight in the presence or absence of a very near ground plane 

/ o A\ 

are compared against flight test data in Figures 2.20 and 2.21. 
In general, relative good agreement is found between the analytical 
predictions and the flight test data. Although better agreement 
is found for the out-of-ground comparisons, this finding is not 
surprising when considering the great difficulties encountered in 
obtaining accurate data very near the ground plane. Corrections 
on the lift due to varying control surface deflections, jet thrust, 
etc., that include the ground effect are difficult to assess and 
are generally ignored. 
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TABLE 2.01 - VORTEX-LATTICE GEOMETRY EFFECT ON THE CALCULATED MING AIRLOADS (PROGRAM HA010B) 
FOR A DELTA WING OF ASPECT RATIO = 2, OPERATING AT a = 10° AND M = 0.25 




VOR 

TEX 

MATRIX 

GEOMETRY 


WITH L. E. SUCTION 
(BLUNT L. E.) 

HO L. E. SUCTION 
(SHARP L. E.) 

EXECUTION 

TIME 


NO. SPAN 
ELEMENTS 

SPAN 

SPACING! 

NO. CHORD 
ELEMENTS 

CHORD 

SPACING! 

TOTAL NO. 
ELEMENTS 

C L 

C D. 

1 

C M(C/4) 

C L 

V 

1 

°M(C/4) 

SECONDSt 

1 

14 

0 

1 

5 

0 

70 

0.3708 

0.0476 

-0.0825 

0.4071 

0.0722 

-0.0882 

39 

2 

14 

1 


5 

0 

70 

0.3765 

0.0472 

-0.0845 

0.4149 

0*0735i 

-0.0905 

38 

3 

14 

- 0 


5 

1 

70 

0.3717 

0.0488 

-0.0801 

0.4074 

0.0729 

-0.0860 

39 

4 

14 

1 


5 

1 

70 

0.3770 

0.0478 

-0.0830 

0.4152 

0.0739 

-0.0890 

39 

5 

20 

0 


5 

0 

100 

0.3739 

0.0486 

-0.0827 

0.4098 

0.0729 

-0.0885 

73 

6 

20 

1 


5 

0 

100 

0.3765 

0.0483 

-0.0843 

0.4141 

0.0734 

-0.0904 

73 

7 

20 

1 


5 

1 

100 

0.3772 

0.0495 

-0.0818 

0.4137 

0.0738 

-0.0881 

74 

8 

14 

1 


o 

0 

136 

0.3752 

0.0477 

-0.0837 

0.4127 

0.0733 

-0.0895 

106 


fLEGEND 

1 = COSINE SPACING 
0 = CONSTANT SPACING 

+EXECUTION TIME INCLUDES 
LINEAR ARRAY SOLUTIONS 


Cl 



AR 

TR 


2 

0 


A c:/4 


56 
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TABLE 2.02 - VORTEX-LATTICE CONTROL POINT LOCATION EFFECT ON THE CALCULATED WING AIRLOADS (PROGRAM HA010B) 
FOR A DELTA WING OF ASPECT RATIO = 2, OPERATING AT a = 10° AND M = 0.25 


LOCATION OF 

CONTROL POINT 

75% 

80% 

83% 

77% 

j % OF ELEMENT CHORD 


NO. SPAN ELEMENTS 

14 

14 

14 

14 

VORTEX MATRIX 

SPAN SPACING! 

1 

1 

1 

0 

GEOMETRY 

NO. CHORD ELEMENTS 

5 

5 

5 

5 


CHORD SPACING! 

0 

0 

0 

0 


C L 

0,3673 

0.3908 

0.4044 

0.3708 

WITH L. E♦ 
SUCTION 

V 

1 

0.0462 

0.0527 

• 0.0568 

0.0476 

(BLUNT L. E.) 

C M(C/4) 

-0.0846 

-0.0838 

-0.0823 

-0.0825 


C L ' 

0.4051 

0.4359 

0.4602 

0.4071 

NO L. E. 

SUCTION 

C D. 

1 

0.0714 

0.0769 

0.0812 

0.0722 

(SHARP L. E.) 

C M(C/4) 

-0.0903 

-0.0892 

-0.0385 

-0.0882 


+LEGEND 

1 = COSINE SPACING 
0 = CONSTANT SPACING 


Cl 



AR = 2 
TR ■ 0 





TABLE 2.03 - WING AIRLOAD PREDICTION COMPARISONS FOR WING PLANFORMS OF MODERATE ASPECT RATIO 



GEOMETRY 


AERO COEFFICIENTS AT a = 10°, M 

= 0 

ANALYSIS 

PLANFORM 

ASPECT 

RATIO 

TAPER 

RATIO 

SWEEP 

A(C/4) 

C L ; 

C M(C/4) 

C D 

1 

WING LIFT 
SLOPE 

C /DEG 

Lj 

WING A. C. 

% C 


RECTANGULAR 

6 

1 

0 

0.7567 

0.0004 

0.0355 

0.07567 

24.99 

TRW VORTEX-LATTICE METHOD 










(PROGRAM HAOlOB) 

TAPERED 

6 

1/3 

0 

0.7795 

0.0031 

0.0367 

0.07795 

24.59 

CONTROL POINT AT 757 

ELLIPTICAL 

6.04 

0 

0 

0.7865 

-0.0211 

0.0377 

0.07865 

27.71 

(18) 

NACA REPORT NO. 631 

RECTANGULAR 

6 

1 

0 

0.7870 

0 

0.0345 

0.07870 

25.00 

SECTION LIFT SLOPE 
a = 2ir x 57.3 

TAPERED 

6 

1/3 

0 

0.8195 

n 

0.0363 

O.OS195 

25.00 

o 

ELLIPTICAL 

6 

0 

D 

0.8220 

0 

0.0358 

0.08220 

25.00 


RECTANGUT.AR 

6 

1 

0 

0.7779 

0.0068 

0.0373 

0.07779 

24.12 

TRW VORTEX-LATTICE METHOD 
(PROGRAM HAOlOB) 

TAPERED 

6 

1/3 

0 

0.8011 

0.0097 

0.0387 

0.08011 

23.78 | 

CONTROL POINT AT 77% 

ELLIPTICAL 

6.04 

0 

0 

0.8081 

-0.0149 

0.0398 

0.08081 

26.84 

(18) 

NACA REPORT NO, 631 

RECTANGULAR 

6 

1 

0 

0.7286 

0.0044 

0.0295 

0.07286 

24.40 

SECTION LIFT SLOPE 
a = 0.099 

Q 

TAPERED 

6 

1/3 

0 

0.7564 

0.0045 

0.0307 

0.07564 

24.40 

(NACA0012 AIRFOIL) 

ELLIPTICAL 

6 

0 

0 

0.7610 

0.0046 

0.0307 

0.07610 

24.40 
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TABLE 2.04 - WING AIRLOAD PREDICTION COMPARISONS FOR WING PLANFORMS OF MODERATE ASPECT RATIO AT a= 5° 


| CONFIGURATION 

TEST CONDITIONS 

ANALYSIS^" (PROGRAM HAOIOB) 

EXPERIMENT 

WING AIRLOAD COEFFICIENTS 

C. P, LOCATION 

P LANFORM 

ASPECT 

RATIO 

TAPER 

RATIO 

SWEEP ANGLE 
A<C/4) 

AIRFOIL 

SECTION 

MACH 

NUMBER 

REYNOLDS 

NUMBER 

WITH L. E. 

SUCTION 
(BLUNT L. E.) 

NO L. E. 

SUCTION 
(SHARP L. E.) 

NACA RM 

A53A30 

C L 

C D. 

1 

C M(C/4) 

% C 

DELTA 

2 

0 

56.0° 

NACA 

0003-63 

0.25 

16.6 x 10 6 

X 



0.1849 

0.0193 

-0.0423 

47.87 


X 


0.1941 

0.0248 

-0.0435 

47.41 



X 

0.1830 

0.0165 

-0.0333 

43.19 

DELTA 

3 

0 

45.0* 

NACA 

0003-63 

0.25 

10.6 x I0 6 

X 



0,2433 

0.0210 

-0.0412 

41 .93 


X 


0.2547 

0.0304 

-0.0422 

41.56 



X 

0.2390 

0.0200 

-0,0332 

38.89 

DELTA 

4 

0 

37.0° 

3% THICK 
ROUNDED 

NOSH 

SECTION 

0.25 

9.I x 10 6 

X 



0.2893 

0,0215 

-0.0384 

38.27 


x ! 


0.3029 

0.0348 

-0.0391 

37.90 



X 

0.2830 

0.0255 

_ 

-0.0299 

35.56 

TAPERED 

3.08 

0.39 

11.5° 

3% TIITCK 
BTCONVKX 
SECTION 

0.25 

8.3 x I0 6 

X 



0.3104 

0,0216 

-0.0007 

25.22 


X 


0.3214 

0.0362 

+0.0023 

24.28 



X 

0.2860 

0.0278 

+0.0121 

20.76 

TAPERED 

3 

0.40 

40.6" 

3% THICK 
BICONVEX 
SECTION 

0.25 

8.4 x LO 6 

X 



0.2615 

0.0213 

-0.0203 

32.76 


X 


0.2722 

0.0319 

-0.0186 

31.83 



X 

0.2710 

0.0275 

-0.0175 

31.45 

RECTANGULAR 

2 

1.0 

0° 

3% THICK 

B T CONV EX 
SECTION 

0.61 

4.4 x 10 6 

X 



0.3000 

0.0254 

0.0000 

25,00 


X 


0.3109 

0.0352 

+0.0031 

24.00 



X 

0.2650 

0.0271 

+0.0150 

19.339 

CLIPPED 

DELTA 

2 

.1 __ 

0.33 

37.0° 

3/8 THICK 

BICONVEX 

SECTION 

0.61 

4.8 x I0 6 

X 



0.2800 

0.0295 

-0.0226 

33.07 


X 


0.2918 

0.0336 

-0.0204 

31,99 



X 

0.2600 

0.0310 

-0.0161 

31.92 


fCOLOCATION POINT LOCATION AT 77% OF ELEMENT CHORD 

AND c =0.007 WERE USED IN THE ANALYSIS, 
d 

o 
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TABLE 2.05 - COMPARISON OF CALCULATED AIRLOAD COEFFICIENT INCREMENTS DUE TO FLAP DEFLECTION 
FOR A 25% OF CHORD FLAPPED SURFACE 



SECTION COEFFICIENT INCREMENTS PER DEGREE OF FLAP 

DEFLECTION AT Y/(b/2) =0.40 

Acj>/6 f 

Ac m (C./4)/6 f 

Ac n /fi f 

Ac h /5 f 

VORTEX LATTICE METHOD 

(PROGRAM HA010B) 

0.040 

-0.01166 

0.0566 

-0.0140 

LIFTING LINE THEORY 
(WAKE II PROGRAM* 9 -') 

0.0672 

-0.01138 

0.0487 

-0.0164 


Note: The results presented were calculated for a 25% chord flap deflected 30° with 
the wing operating at zero angle of attack (See Figure 2,18). 


TABLE 2.06 - MULTIPLE-LIFTING-SURFACES INTERFERENCE EFFECT PREDICTIONS (HA0010B) 
FOR A SELECTED WING-CANARD-FUSELAGE CONFIGURATION (SEE FIGURE 2.19) 



WING LIFT COEFFICIENT C. BASED ON S AND a = 12.5° 

L H 

7T 

COMMENT 

WING 

5 - 694.18 

71 

CANARD 

S = 113.04 

TT 

CENTER FUS 

S =17.53 

u 

FUS NOSE 

S = 26.44 

TT 

SUM AT C.G. 

S = 694.18 

71 

WING ALONE 

0.7091 




0.7091 

CANARD ALONE 


0.5214 



0.0849 

WING + CANARD 

0.6694 

0.4129 



0.7366 

WING + CANARD + FUS 

0.6539 

0.3982 

0.1420 

0.1420 

0.7318 
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FIGURE 2.06 - COSINE SMOOTHING OF SHARP SURFACE-DISCONTINUITIES 
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FIGURE 2,Q8 - LIFT DISTRIBUTION PREDICTIONS (PROGRAM HA010B) FOR FOUR BASIC WING PLANFORMS 
AT AN ANGLE OF ATTACK ct = 10° 
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FIGURE 2.08 - LIFT DISTRIBUTION PREDICTIONS (PROGRAM HA010B) FOR FOUR BASIC MING PLANFORMS 
AT AN ANGLE OF ATTACK a = 10°, CONTINUED 

















FIGURE 2.Q9 - SPAN LOADING PREDICTION COMPARISONS FOR THO BASIC WING PLANFORMS 
OF ASPECT RATIO = 2 
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FIGURE 2.10 - WING LIFT PREDICTION COMPARISONS FOR SELECTED LOW ASPECT RATIO WING PLANFORMS 
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FIGURE 2.11 - INDUCED DRAG PREDICTION COMPARISONS FOR SELECTED LOW ASPECT RATIO WING PLANFORMS 
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FIGURE 2.12 - PITCHING MOMENT ABOUT C/4 PREDICTION COMPARISONS FOR SELECTED LOW ASPECT RATIO WING PLANFORMS 
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FIGURE 2.14 - WING LIFT PREDICTION COMPARISONS IN THE PRESENCE OF A VERY NEAR GROUND PLANE 
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FIGURE 2 .16 - SWEEPBACK ANGIE EFFECT ON 
THE MAGNITUDE OF THE WING-LIFT-SLOPE 
FOR TAPERED WING PLANFORMS OF ASPECT 
RATIO = 6 
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FIGURE 2.17 - MING LIFT PREDICTION COMPARISONS FOR A RECTANGULAR WING 
OF ASPECT RATIO = 6 WITH END PLATES 
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FIGURE 2.18 - AIRLOAD PREDICTIONS (PROGRAM HA010B) FOR A SELECTED STRAIGHT-TAPERED WING FLANFORM 


WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS 
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FIGURE 2.18 - AIRLOAD PREDICTIONS (PROGRAM HA01QB) FOR A SELECTED STRAIGHT-TAPERED MING PLANFORM 
WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS, CONTINUED. 
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FIGURE 2.18 - AIRLOAD PREDICTIONS (PROGRAM HA010B) FOR A SELECTED STRAIGHT-TAPERED WING PLANFORM 


WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS, CONTINUED 
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FIGURE 2.18 - AIRLOAD PREDICTIONS (PROGRAM HA010B) FOR A SELECTED STRAIGHT-TAPERED WING PLANFQRH 
WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS, CONTINUED. 
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FIGURE 2.19 - MULTIPLE-SURFACE CONFIGURATION ANALYTICAL PREDICTIONS (PROGRAM HA010B) 
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FIGURE 2.20 - MULTIPLE-SURFACE ANALYTICAL PREDICTIONS (PROGRAM HA010B) FOR THE DOUGLAS F5D-1 MODIFIED 


AIRPLANE WITH AN OGEE WING AND COMPARISONS AGAINST FLIGHT TEST DATA 
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FIGURE 2.21 - MULTIPLE-SURFACE ANALYTICAL PREDICTIONS (PROGRAM HAOIQB) FOR THE NORTH AMERICAN XB-70 


AIRPLANE AND COMPARISONS AGAINST FLIGHT TEST DATA 










3.0 INPUT 


3.1 General Directions for Program Input 

Five separate modes of execution are permitted for the TRW 
Vortex-Lattice Analysis Program //HA010B (N. SURFACE). These include: 

(1) two main execution modes for solving lifting-surface problems 
by the vortex-lattice method, i.e., SQT ISURF and NSURF execution, 

(2) two test execution modes for determing the accuracy of the 
matrix inversion procedure, i.e., XQT ISURFT and NSURFT execution, 
and (3) one auxiliary execution mode used for obtaining Calcorap 
or 4060-microfilm output, i.e., XQT TRWPLT execution, 

1) Main Execution Modes 

Two main execution modes are permitted: XQT ISURF and SQT NSURF, 
These modes are used to analyze single- or multiple- lifting surface 
configurations respectively. Punched cards are used as the input media. 
NAMELIST statements and formatted statements are used exclusively. The 
input data is classified into groups, i.e., Group if 1, Group #2, Group #3, 
and Group #4. A brief description of the information contained in 
each group and the arrangement order for input is given below: 

Type of Input 

"A" format 

n A M format 
11 A” format 

NAMELIST 

"A" format 


Two test execution modes are permitted: XQT ISURFT and SQT NSURFT. 
These two modes are used to determine the accuracy of the matrix in¬ 
version procedure for the ISURF and NSURF execution modes respectively. 

Only the execution mode card is required for input for the test 
execution modes, as follows: 


Group No. 


Function 


Contents 


//I 

(START) 

n 


if 3 


if 4 

(END) 


Execution Mode Card 
Mode = ISURF or NSURF 

Job Identification 
(title) and Comments 


Job execution controls 
and solution specifi¬ 
cations 

Job/Jobs Termination 


7/8 punch, space, 
XQT, space, mode 

1. Job Title 
(1 card) 

2. Comment s 
(3 cards) 

Namelist 
• $INPUT 

$ENDJj2feS 


2) Test Execution Modes 
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3.1 General Directions for Program Input (Continued) 

Group No. Function Contents Type of Input 

//I Execution Mode Card 7/8 punch, space "A" format 

(ONLY) Mode = ISURFT or XQT, space, mode 

NSURFT 

3) Auxiliary Execution Mode 

One auxiliary execution mode is permitted: XQT TRWPLT. This exe¬ 
cution mode is contained in the second file of the program PCF tape 
and is used to generate Calcomp or 4060-microfilm output. The required 
input consists of the TRWPLT input instructions and a data tape. The 
description of the preparation of the input instructions is presented 
in Reference 35. The format and contents of the data tape which is 
generated in the execution of the main execution inodes of the program 
is described under "Tape Output" in Section 5.3. 

In preparing the program input (the main execution modes) the 
following conventions must be observed: 

1. The first input card per case should be placed immediately 
following the XQT MODE card for the first case or behind 
the last card of the previous case for multiple case input. 
Blank cards between cases or input data groups should not be 
included in the input data deck. 

2. For each case the arrangement of the input data must be 
ordered by groups, i.e., Group #1, Group #2, Group //3 and 
Group #4. 

3. The last card of the input data deck is the end of jobs 
card (Group #4). This card must have $ENDJ0BS on it only 
(Columns 2-9). 

4. For namelist input, the first card must have the namelist 
on it only (i.e., $INPUT in columns 2-7). 

5. For namelist input, data cards must be punched between 
columns 2-80. Continuation cards may be freely used by 
starting on the, next line where the previous line left off. 
Every card must terminate with a comma (,). Variables that 
are input via NAMELIST must be dimensioned, for example: 

NSS(l) = 8, 

X(l) = 10, 15, 15, 20, 20, 20, 30,- 
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3.1 General Directions for Program Input (Continued) 


There is no fixed order in which the variables are to be 
entered. They may be grouped at the user's discretion. 

The following abbreviations may be used for repeating fields 
in a table: 

X(l) - 10, 2*15, 3*20, 30, . is equivalent to 

X(l) = 10, 15, 15, 20, 20, 20, 30.or 

X(l) = 10, x(4) = 3*20, X(2) = 2*15, ... etc. 

6. For namelist input, the last card must have $END on it only 
(Columns 2-5). 

7. Differentiation between similar looking characters: To avoid 
confusion due to the similarity in appearance of certain 
characters, the following rules should be followed: 

a. The alphabetic I is used as opposed to the numeric 1 
(one) . 

b. The alphabetic Z is written Z as opposed to the 
numeric 2 (two). 

c. The alphabetic 0 is written 0 as opposed to the 
numeric Q (zero). 

The detailed input instructions and definitions of all input 
quantities for the program are presented in this section in the 
following sequence: 1) program input setup guide (Pages 3-8, 3-9), 

2) program input instructions (Pages 3-10 through 3-17), AND 3) 
an alphabetical list of all input quantities (Pages 3-18 through 
3-20), In addition, the following information that is related to 
the preparation of the program input is found in the following 

sections or figures of this report: 

1) Vehicle Geometry Sign Convention: 
see Figure 3.01, Page 3-4. 

2) Vortex-Lattice Arrangement Restrictions: 
see Section 3.2. 

3) Input Card-Deck-Setup Examples: 
see example problems, Section 6.1. 

4) Control Deck Setup: 
see Figure 7.02, 

5) Execution Time: 
see Section 7.2 
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FIGURE 3.01 - LIFTING-SURFACES INPUT GEOMETRY SIGN CONVENTION 

(RIGHT HANDED COORDINATE SYSTEM) 











3#2 Vortex-Lattice Arrangement Restrictions 


The configuration of the vortex-lattice or arrangement of elemental 
panels that is specified in the input determines the validity of the 
solutions. In general, bad solutions are obtained when the number of 
elemental panels that determines the vortex-lattice arrangement is in¬ 
sufficient to properly represent the problem geometry* Other sources 
that lead to bad solutions are: the presence of sharp discontinuities 
in the lifting-surfaces geometry, unequal panel dimensions for adjacent 
elemental panels, and improper spacing of trailing vortices shed from 
forward surfaces that impinge on rear surfaces* The indicators that 
warn of the presence of bad solutions are: 

1. The drag calculated for the sum of the total number of surfaces 
considered in a solution is negative* Although, negative drag 
is not always a good indicator for bad solutions because its 
magnitude is generally much smaller than the lift and therefore 
subject to more severe numerical roundoff errors, positive drag 
is unquestionably always an indicator of a good solution* 

2* The calculated lift versus angle of attack curve is not smooth. 

The source of the errors that led to a bad solution can be de¬ 
termined by examining the magnitude of the calculated circulation 
for the vortex filaments or the spanwise lift distribution (see 
Figures 5.3 and 5.8). 

3. The calculated values for lift and drag are out of range, i.e., 
the solution blew. 

In the opposite side, a solution or a set of solutions may be considered 
to be good if by increasing the number of elemental panels or rearranging the 
configuration of the vortex-lattice by a small amount leads to a negligible 
variation of the magntude of the calculated airload coefficients* It should 
be noted that: M there is no shortcut or formula presently available that, if 
followed, will always guarantee the generation of good solutions. M The 
program user should be aware of this fact and should follow good judgement 
based on experience in aerodynamics in assessing the validity of the vortex- 
lattice solutions that he generates. 


3-5 



3.2 Vortex-Lattice Arrangement Restrictions (.Continued) 


As a guide to engineers using the vortex-lattice analysis method for the 
first time, the user should adhere to the following general directions: 

1. The larger the number of elemental panels used for representing 
a given lifting-surface configuration, the more accurate will be 
the solutions that will be obtained. 

2. Adjacent panels should be of approximately equal size and should 
have approximately the same configuration, i.e., the variation 
in size and configuration between adjacent panels should be as 
small as possible (Figure 3.02[A]). 

3. The width of panels in a column of one or more lifting surfaces 
should be exactly the same and must line up perfectly (Figure 
3.02[B]). This requirement arises because of the approximate 
representation of the vorticity distribution on the lifting 
surfaces by discrete-size vortex filaments that are used in the 
vortex-lattice method. Note that the trailing vortices must 
lie equidistant to the co-location points in a row of elemental 
panels downstream. As a special feature of the program (TRW 
Vortex-Lattice Analysis Program #HA010B), the trailing vortices 
can be located exactly in line with a column of co-location points 
(Figure 3.02[C]). In this instance, the velocity induced by 
these vortices at the co-location points (which may be indefinite) 
is simply ignored. 


3-6 




mmmr.t'+r'XMZi--"'- 1 * 

mBMWjMii>st M sdS58^5>>*«« 

lHVj#',2g?S6;<!S'’9*5!£Z2? : '<«|l 

■■immgjfisBiggg^^gai iMW 

aiimiR’iiB'BSis^iiiiiiHHi 


I*B'<S«2>! 9'22’SilB 

MiM l 2Z>W'4 

Mwe'&mmmrn 




- KASA-MSC 0O4OA SHUTTLE-ORB I TER 
_ WITH A CANARD CONTROL SURFACE 

i±tiiill±l;l iiii: [ 


B) WIDTH OF DOWNSTREAM PANELS 


ERROR: the size of the fuselage panels 
DOES NOT MATCH THE WIDTH OF THE 
WING PANELS 


! : '"[.SI 


■r r’ th 


ri ft 

j i i I r i 


DOUGLAS F5D-1 PROTOTYPE AIRPLANE 
WITH A MODIFIED OGEE WING 


I I I I I t 1 I t 






















3.3 PROGRAM INPUT SETUP GUIDE 


VZ RUN 54589,TRW.QOQ1.3303A.OC01.P,3.1 
7 N MSG FILE «EQ. TAPE 1 FH432 3 FSTRN 1 

9 ASG XeA10202 
9 ASG F 

7 PUT 

•V XQT CUR 
TRW X 
ERS 
IN X 
PEF X 
TRI X 
T0C 

7 XQT M0OE CM0DE= NSURF OR I SURF) 

JGfft TITLE F0R job 1 <1 CARD> 

COMMENTS,REQUIRED F0R Jf?B 1 <3 CARDS) 

5 INPUT 
nflc,iflg, 

K0UT,KT1#KT2,KT3,LINX, 

NWING,NFUS,NVTaIL» 

NSS,X,y,Z,E»CiXpcR*TSPAN, 

NCS.X0C.Z0C, 

WFLAP1,WFLAP2,WFLAP3,FLaPC,TaBC»FLaPUJ,TaBDJ#aildj. 
XcG, YcG,ZcC,REFS,REFC,REFB*GSCAl-E* 

N J0B, aLF A »M ACHN . HE 1GHT,FLaPDJ.A 5 UD J» NSjBLV. 

NJ0BL.WCL, „ 

C0L0CP, w SM0TH,LFLaPiUDRaO»CLEaNF,PMEcF.CUT0F1»C 1 JT0F2 

$end 

job title F0R jDb 2 ci card) 

SlNPUT 

Namelist oaTa 
send 

*ENDJ0b5 
V XQT TRWPlT 
KUNIT * 8 
ICC0MP* 0 
NTRAN = 0 
[PRINT* 0 
NTYPE * 0 
N0FSCL* 1 

ISCALY * i.1.1.1.1.1.1. 1 . 1,1 

NXL » 24 

NXR = 24 

NYL = 24 

NYH s 24 


NP0SN1 


600. 

950 

NP0SM2 

= 

600. 

925 

NP0SN3 


600. 

900 

NP0SN4 

** 

600. 

90 

CHaRSZ 

s 

l.Oi 

1,0. 


JOB CARO 
MESSAGE CARD 
PROGRAM PCF TAPE NO, 
REQUiRED tF THrf PLO* 
OPTION IS USED 
READ-IN PROGRAM CAROS 
(LOAD THE PROGRAM) 


(IF PLOT OPTION USED) 

_ ♦ 

EXECUTION MODE CARD 
JOb tUftE-StART J5I 1 

COMMENTS 

START NAMEL.IST SJNPUT 
JOB-EXECUTION FLAGS 
OUTPUT SPECIFICATIONS 

lifting surface TYPE 

LIFTING SURFACES PLAN 

airfoil section 
flap-tab-ajlerons 
REFERENCE DIMENSIONS 
FLIGHT ATTITUDE SPECS 
LINEARIZED THEORY 
OPTIONAL INPUT CONST, 
END NAMELIST SINPUT 

job title-staRT Job 2 

START NAMELIST SJNPUT 
DATA FOR JOB 2 
END NAMELIST *INPUT 
£Np OP aLI JOBS 

EXECUTE PLOT OPTION 
0LOT EXEC, CONSTi'KfTs 



7 = 7/8 PUNCH. 


NOTE: THE FOLLOWING CONTROL CARDS ARE OPTIONAL FOR INPUT 
7N MSG = MESSAGE CARD (REQUIRED FOR NASA-MSC) 

7 PLT = REQUIRED FOR PLOT OUTPUT 

INPUT INSTRUCTIONS FOR THE CALC0MP/4060-MICR0FILM PLOT-OUTPUT OPTION, 
XQT TRWPLT, ARE FOUND IN REFERENCE 35. THESE INSTRUCTIONS HAVE BEEN 
OMITTED IN THE PRESENT REPORT. 
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3.3 PROGRAM INPUT SETUP GUIDE (CONTINUED) 


AMN0T1 : |D = EXAMPLE PR0B, 1 - MULT IPLE-SUHFACE 
AMNOT? = ID = CAPABILITY DEMONSTRATION RUN 
AIJN0T3 = ID = A.G0MEZ/ 5 JULY 72 

ANN0T4 = |D = _ 

TITLE = ID = ISOMETRIC PROJECTION OP'LIFTING SURFACES 

XLaBEL = ID = horizontal AXIS' SEMISPaNS 
YLaBEL : io ! VERTICAL A*is SEMISPftNS 
XHI= 1.5 
XLO^-l.C 
YH I - 1.5 

yl0=-i•J 


RL0T = 

2, i, 

3i1 > E n DL5T 

EMDPLT 

AN0TSV 

= 0 


N0ADV 

- 1 


PL0T = 

5,1 * 

6,1. ENDLST 

EMDPLT 

N0A0V 

= 1 


PLOT = 

2 » 21 

3,2, ENDLST 

F.NDPLT 

M0ADV 

= 1 


PL0T s 

2 > 31 

3,3, ENDLST 


EMDPLT 

EmDFIL 

M0ADV = 1 


PL0T s 2,1, 

3, Ip 

ENDLST 

F.MqPLT 

NQfADV = 1 
PL0T * 5,1, 

6, Ip 

ENDLST 

EMDPLT 

N0ADV = 1 
PLOT = 2.2, 

3 > 2 p 

ENDLST 

ENDPLT 



M0ADV = 1 
PL0T = 2,3, 

3,3, 

ENDLST 


EMDPLT 

endfil 

f.ndrun 

VE/JF 


ANNOTATIONS (EXAMPLE ) 

_i_ 

plot labels (Example) 

\ 

PLOT scale (EXAMPLE) 


I _ 

PLOT INSTRUCTIONS 
FOR 1ST. FILE 



PLOT INSTRUCTIONS 
FOR 2ND. FJLE...ETC. 



END CARD (LAST CARD) 
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3.4 INPUT INSTRUCTIONS 


GROUP 1 - EXECUTION MODE CARD, 

* FIVE SEPARATE EXECUTION M0DES ARE PERMITTED • 


(1) 

V 

XQT 

NSURF 

(COLUMNS 

1-11) 

1 TO 5 LIFTING SURFACES MAY BE CONSIDERED 
SIMULTANEOUSLY, 

(2) 

V 

xor 

ISURF 

(COLUMNS 

1-11) 

ONLY 1 LIFTING SURFACE MAY 
WITH OR WITHOUT LINEARIZED 

BE CONSIDERED 
LIFT OPTION, 

< 3) 

V 

XQI 

NSURFT 

(COLUMNS 

1-12) 

MATRIX INVERSION.TEST FOR 

XQT NSURF MODE- 

(4) 

V 

XQT 

ISURfT 

(COLUMNS 

1-12) 

matrix inversion test for 

XQT ISURF MODE. 

t 5) 

V 

XQT 

TrmPLT 

(COLUMNS 

1-12) 

PLOT OPTioN(R£FERENCE 35) 



GROUP 2 - JOB IDENTIFICATION (TITLE) AND COMMENTS, 

* REQUIRED INPUT FOR NSURF AND JSURF EXECUTION MODES * 


CARD 1 FORMAT(13A6i A2 ) ( T J TLE( I) * I=1»1A > 

CARDS 2.3.A FORMAT(<13a**A2>) <C0MTSCII > I*1»42) (JOB 1 ONLY) 


GROUP 3 “ VORTEX-LATTICE ANALYTICAL SOLUTION SPECIFICATIONS, 
* REQUIRED input FOR NSURF and ISURF EXECUTION modes * 


** namElIst input format ** 

NAMELIST/INPUT/ NFUG .IFUG ,K0UT ,KT1 ,<T2 ,KT3 .LJNX 

* ,NwiNG *NFUS .NVTaIL.NSS iX ,Y ,Z ,E »C 

* ,XfifeR «YSPAN »NCS ,X^c , Z0C ,WFLAP1»WFUAP2#WFLaP3»FLAPC 

* »TaSC *FLaPDJ»TaBDJ »aILPJ *XCG ,YCG iZ fG iREFS ,R£FC 

* , REFB »GSCALE,NJ0fB , ALFA ,MAChN ,H^IGHT,FLAPDj.AJLDJ .N&0LV 

* ,NJ0Bl ,WCL ,C0U?CP.WSM0TH,LFLAP .LDRAG ,CLEANF.PMECF .CUTtfF* 

* , CUT0F2 


•* JOB-EXECUTION flags ** 

(1) NFLAG REQUIRED FOR NSURF EXECUTION MODE. 


(NFLGIN),N=1,M) 


NUMBER OF SPANWJSE VORTEX-LATTICE elements ASSIGNED 
TO THE N SURFACE' WHERE M.LE.5, 




3.4 INPUT INSTRUCTIONS (CONTINUED) 


(NFLCCN+5)*N»1*M> 


(NFLG<N+10),N«1.M> 


NFLG<16> = o 
” 1 


NFLGII 7 ) = 0 
= 1 


NFLCtlfl) = 0 
= 1 

NFLCU9) s 0 
= 1 

NFi_G<20> = NO 


(2) JFLAG REQUIRED 


IFLGU) * 0 

» 1 

I FlG < 2) = NSD 
IFLG(3) s NSE 

1FLG<4) s 0 
a 1 

« 2 


NUMBER 0^ CHORDWISE VORTEX-LATTICE ELEMENTS ASSJGnEQ 
TO THE N SURFACE. 

NUMBER OF CHORpWISE discontinuities ASSIGNED TO The 
n surface* where* 

nflgin + id),eg ,0 no flaps and/or ailerons* 

NFLGIN+IO) ,GE,1 WITH FLAPS AND/OR AILERONS, 

NFLGlN+lO),EQ.2 WITH TAB SURFACE, 

ZOC(K.J) INPUT JS DIMENSIONLESS (NORMALIZED BY C(J >) > 
ZOC(K,J) INPUT IS dI m E n SION£D USING THE SAM E UNITS AS 
THE WING PLANFORM SPECIFICATIONS <E,G,, y<J),x(J>«ETC,) 

NO EFFECT (OUT-OF-GROUND), 

GROUND EFFECTS,l.E,.FLIGHT JN THE PRESENCE OF A GROUND 
PLANE are CALCULATED* 

NO EFFECT, 

ARRAYS OF SOLUTIONS USING LIFTING LINE THEORY ARE 
CALCULATED FROM A PAIR OF EXACT VORTEX-LATTICE 
SOLUTIONS, THIS OPTION NOT OPERATIONAL AT PRESENT, 

NO EFFECT, 

CALCOMP OR MICROFILM PLOT qATA TAPE IS GENERATED* 

print-output control efficiency flag assignment, 

USED AS FOLLOWS, 

ND.GE.O = SHORT-PRINT OUTPUT, !.£,# NAMELIST SINPUT, 

SURFACES GEOMETRY, AIRFOIL MEAN-CAMBER* AND* 
SECTION AND SPAT I ALLy- INTEGRATED AIRLOAD 
COEFFICIENTS ARE OUTPUT, 

ND.GE.l * VORTEX-LATTICE GEOMETRY DETAIL IS OUTPUT, 

ND.GE.2 a VORTEX-LATTICE ELEMENTAL LIFT AND INDUCED 
VELOCITY ARE OUTPUT 

nd.ge.5 s vortex-lattice geometry detail, and INDUCED 
velocity increments are output. 

ND.GE.B = DEBUG OUTPUT FOR PROGRAM CHECK/DEVELOPMENT, 

|,E,« NAMgUISTS ?0 S UG1 1 SDSUG2* AND *DBUG3 
ARE OUTPUT, 

ND.GT.15»AND*NFLG(17},GE,1 “ OEBUG OUTPUT FQR PROGRAM 
CHECK/DEVELOPMENT, I,El, NAMELIST sheflex 
IS OUTPUT, 


FOR ISURF EXECUTION MODE, 


SYMMETRIC LIFT LOADING, NOT REQUIRED FOR INPUT,VALUES 
UNSYMMeTRIc LIFT LOADING, ARE ASSIGNED IN EXECUTION 

NUMBER OF SPAN DISCONTINUITIES, NSD= 0*1,2*3.OR A, 
REQUIRED INPUT IF IFLGC 4 >,NE,Q• 

NUMBER OF SPAN VORTEX-LATTICE ELEMENTS, NSE.LE,NSEMAX, 
WHERE NSEMAX=41 AND 21 FOR SYMMETRIC AND UNSYMMETRIC 
LIFT LOADING RESPECTIVELY. 

EQUAL SPAN-SPACING FOR vortex-lattice elements. 

COSINE (VARIABLE* SPAN SPACING OF VORTEX-LATTlCE 

elements, 

SPAN-SPACING OF VORTEX-LATTJCE ELEMENTS IS TO BE 
ASSIGNED IN THE INPUT, (YSPAN(N),N»l,NSE), 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 


JFLGC5J • NCO 

IFLG<6) 8 McE 

IF L G < 7 ) 8 0 
s 1 

IFLG<8) 8 0 
= 1 

IFLG<9) S 0 
8 1 

lFLG(lO) = NO 


NUMBER OF CHORD DISCONTINUITIES, where NCD’Q and NCD*i 
MUST bE ASSIGNED TO UNFLARPED AND FLAPPED WJNG SURFACES 
RESPECTIVELY, 

NUMBER OF CHORD VORTEX-LaTTICE ELEMENTS, NCE.LE,NcEMaX, 
WHERE NCEMAX«9, ANd NCE,GE*2 FOR FLAPPED SURFACE 5 * 

EQUAL CHORD-SPACInG For VORTEX-lATTICE ELEMENTS, 

cosine (Variable) chord spacing of vohtex-lat-tice 
ELEMENTS. 

NO EFFECT, 

ARRAYS of SOLUTIONS USING LIFTING L|Ng THe 0R T ARe 
CALCULATED FROM A PAIR OF EXACT yORTEx-LATT ICE 
SOLUTIONS. 


NO EFFECT, 

GROUNo EFFECTS,I.e,.flight IN The PRESENCE OF A GROUND 
plane are calculated, 

PRINT-OUTPUT CONTROL EFFICIENCY FLAG ASSIGNMENT, 

USED AS FOLLOWS, 


ND.GE.O « SHORT-PRINT OUTPUT, I,E,, NAMELIST IINPUT, 

surfaces geometry, airfoil mean-camber, and, 

SECTION AND SPATIALLY-INTEGRATED AIRLOAD 
COEFFICIENTS ARE OUTPUT, 

ND.GE.l 8 VORTEX-LATTICE GEOMETRY DETAIL I 5 OUTPUT, 
ND.GE.2 » VORTEX-LATTICE ELEMENTAL LIFT AND INDUCED 

velocity are output 

ND.GE.5 8 VORTEX-lATHCE GEOMETRY DETAIL, and INDUCED 
velocity INCREMENTS are output. 


ND,GE,8 S DEBUG OUTPUT FOR PROGRAM CHECK/OEVELOPMENT, 
I.E.. NAMELISTS SDBUG1, SDBU&2. AND S0BUC3 
ARE OUTPUT, 


ND,GT,15,AND.IFlG(9),CE,1 « DEBUG OUTPUT FqR PROGRAM 

CHECK/DEVELOPMENT, I,E,, NAMELIST IREFLEX 
IS OUTPUT, 


IFLG(11) 8 

0 

NO EFFECT. 

a 

1 

OUTPUT SOLUTIONS pOR CHORdWISe and spanwjse section 
AIRLOAD COEFFICIENTS, 

I FlG(1? ) 8 

a 

NO EFFECT, 

a 

X 

OUTPUT SURFACE PLANFORM GEOMETRY ON CALCOMP/MICROPILM 

plot tape, 

IFLG<13)s 

0 

NO EFFECT, 

s 

1 

output chord and span section airload coefficients on 

CALCOMP/MICROFILM PLOT tape, 

I FLG(14) 8 

0 

NO EFFECT, 

OUTPUT LINEARIZED SOLUTION OF AIRLOAD COEFFICIENTS ON 
CALCOMP/MICROFILM.PLOT TAPE, 

IFLG<15) 


NOT A REQUIRED INPUT, VALUE ASSIGNED IN EXECUTION, 


** OUTPUT SPECIFICATIONS ** 

K0UT (=6 IF OMITTED) PRINT BCD OUTPUT PHYSICAL UNIT ASSIGNMENT, 

KTl <sl IF OMITTED) ScRaTcH/WQRK PHYSICAL UNIT ASSIGNMENT, 
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INSTRUCTIONS (CONTINUED) 

<*6, ASG LOGICAL UNIT Fi if omitted) calcomp/microfilm drum OR 
• tape PHYSICAL unit ASSIGNMENT, 

(s3 IF OMITTED) SCRATCH/WORK PHYSICAL UNIT ASSIGNMENT, 

I»56 IF OMITTED) MAXIMUM NUMBER OF LINES PER PAGE FOR PRINTED 
OUTPUT. 


** SURFACE TYPE CLASSIFICATIONS •* 

* OMIT FOR XQT ISURF EXECUTION MODE » 

NWING (*1 IF OMITTED) NUMBER OF SYMMETRIC LIFTING SURFACES, E.G,, WING 

SURFACES, that MUST BE OrDErED As FOLLOWS, 

N = 1,2,3,,•mNWING. (N,LE«5> 

NFUS <*0 IF OMJTTED) NUMBER OF ANTISYMMETRIC LIFTING SURFACES, E,G,, 

VERTICAL SURFACE/'S ASSIGNED TO REPRESENT A FUSELAGE OR A VERTICAL 
Fl.N, THAT MUST BE ORDERED AS FOLLOWS, 

N = 1,2,3,,••.NWING+NFUS, (N,LE,5) 

NVTAIL 1*0 IF OMITTED) NUMBER OF ANTISYMMETRIC LIFTING SURFACES, t,G,, 
VERTICAL SURFACE'S ASSIGNED TO REPRESENT A VERTICAL FIN, TWIN 
FINS, END PLATES, ETC,, THAT MUST BE ORDERED AS FOLLOWS, 

N = 1,2,3,,••.NWJNG+NFUS+1ABSINVTAIL)* (N.LE.5) 

NVTAIL MAY BE ENTERED AS A POSITIVE OR A NEGATIVE INTEGER IN 
ORDER TO SPECIFY SYMMETRY ABOUT THE PLANE Y=0> t,E,» 

+ INTEGER s ANTISYMMETRIC SURFACE, E,G, A SINGLE FIN, 

" INTEGER * SYMMETRIC SURFACE> EtC, TWIN FINS, 

N s (not an input quantity) totae number of surfaces to be considered 

that IS CALCULATED INTERNALLY USING THE FOLLOWING FORMULA 
NS* NWING + NFUS + IABS(NVTaIL) (NS.LE.5) 

IM (NOT aN INPUT QUANTITY) ORDER NUMBER ASSIGNED TO NTH.SURFACE. 


** SURFACE PLANFORM SPECIFICATIONS *# 

* NS* 1 FOR XQT ISURF EXECUTION MOOE * 

CNSS(M),N*1,NS) STORAGE ORDER NUMBER ALLOCATED TO THE LAST SPAN 

STATION ENTRY for The n LIFTING SURFACE, WHERE, 

NSS(l) s NUMBER OF 5PAN STATION ENTRIES 

ALLOCATED TO THE FIRST SURFACE, 

NSS(N)-NSSIM) * NUMBER OF SPAN STATION ENTRIES 

ALLOCATED TO THE N SURFACE, {N 
ORDER, N*l,2, m»M»Nm»*NS, 

(X(J),J«1,NSS(NS)) LONGITUDINAL COORDINATE OF UTH, POINT OF THE 

reference loft line, e-g,, fuselage stations, 

(Y(j),J* 1,NSS(NS)) SPANWjSE COORDINATE OF U T H. POINT OF THE REFERENCE 

LOFT LINE, E,G>, WING STATIONS, 

(Z(J)iJ=1iN5S(NS)) VERTICAL COORDINATE OF UTH, POINT OF THE REFERENCE 

LOFT LINE, E,G* WATERLINE STATIONS, 

(E(J),U*1,N5S(NS)) ANGLE OF TWIST OF CHORD.PLANE RELATIVE TO THE 

LONGITUDINAL COORDINATE FOR THE AJRFOJL SECTION 
AT THE JTh,POINT OF THE REFERENCE LOFT LINE, 


3.4 INPUT 
KT2 

KT3 

LINX 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 

(CC J).J=1,NSS(NS)) CHORD LENGTH DIMENSION OF TH6 AJRFOIL SECTION iT 

THE JTH.POINT Of THE REFERENCE LOpT LJNe. 

CX0CR< J),J=lrNSS<NS>) (OMIT FOR XQT JSURF) THE RELATIVE LOCATION OF THE 

Reference loft line in chords measured from the 

LEADING EDGE FOR THE JTH.POJNT, 

(X0CR<N),N=1) (OMIT FOR XQT NSURF) THE RELATIVE LOCATION OF THE 

Reference loft line in chords measured from the 
leaoing edge.assumed constant for the nth,surface, 

(YSPAN(N).N»liNSE+i) (REQUIRED IF(IFLG.GE,2) ) SPAN STATIONS THAT BOUND 

The VORTEX matrix elements. 


«• AIRFOIL SECTION (CAMBER) SPECIFICATIONS *♦ 

(NCS(N).N*liNS) NUMBER OF CHORD STATIONS ALLOCATED FqR 

DESCRIBING THE AIRFOIL SECTION MEAN CAMBER 
LINE FOR THE NTH, LIFTING SURFACE, WHERE, 

NCS(N).GE.2* AND/OR NCS(N).LE«1°- 

<(X0C<K,N),K*1,NCS{N)),N=1,NS) CHORD STATION OF AIRFOIL SECTION, I.E.i 

distance from the leading edge measured in 

CHORDS along THE AIRFOIL SECTION CHORD PLANE, 

(<Z0C(K.U),K=1.NCS(N>). AIRFoIl, SECTION MEAN CAmBER specification* 

Js1,NSS<NS),aND. I.Em normal distance to the mean camber 

N=1,NS) LINE MEASURED IN CHORDS FROM THE AIRFOIL 

SECTION CHORD PLANE* CORRESPONDING TO the 
JTh. POINT OF THE REFERENCE LOFT LINE. 


** control surface geometry SPECIFICATIONS •* 

<WFLAP1(N),N=1,NS> span DISTANCE FROM plane OF SYMMETRY TO THE INNER 

boundary of the flap surface/s, where. 

IF(WFLAPl(N).EQ.O,0) flap SURFACE IS CONTINUOUS 

AT THE CENTER SPAN SECTION, 

IF(WFLAP1(N).LE.1.0) DISTANCE MEASURED IN SPANS, 

<WFLAP2(N>.N=1,NS> span DISTANCE from plane of symmetry TO THE OUTER 

boundary of the flap or the inner boundary of the 

AILERON SURFACES, WHERE, 

iF(wflap2(nj.le.i.o) distance measured in spans, 

CWFLAP3(N)»N*1,Ng) SPAN DISTANCE FROM PLANE OF SYMMETRY TO THE OUTER 

BOUNDARY OF THE AILERON SURFACES, WHERE, 

IF(WFLAP3(N).LE.l.O) DISTANCE MEASURED IN SPANS, 

(FLAPC<U)*J=1.NSS(NS» (OMIT FOR XQT I SURF J FLAP/S AND/OR AILERONS CHORD 

LENGTH for the UTH,POINT OF the REFERECE EOFT 

line, where, 

IF(FLAPC(J).LT.1.0) FLAPC(J) JS NORMALIZED BY C(J), 

(FLAPCIN),N=l,NS) (OMIT FOR XQT NSURF) FLAP/S AND/OR AILERONS CHORD 

LENGTH FOR THE NTH,SURFACE* WHERE, 

IF(FLAPC(N).LT.1,0) FLAPC(N) is NORMALIZED BY C(U), 

<TABC(J),J»1.NSS(NS)) (OMIT FOR XQT JSURF) Tab OR AUXILIARY ELEVONS CHORD 

LENGTH FOR THE JTH,POINT OF THE REFERENCE LOFT LINE* 
WHERE, 
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3,4 INPUT INSTRUCTIONS (CONTINUED) 


(Tabc(N) ,n»i,ns> 


<FLaPDJ ( N),N = 1»NS) 


(TABOJ(N),N=1,NS) 


( ( AlLDJ<L,N).L=l,2), 
N=1,NS) 


IF < TABC(J).LT11) T ABC(J J IS NORMALIZED BY C(J). 

(OMIT FOR xQT NSyRF) TAB OR AUXILIARY ELEvONS CHORD 
LENGTH FOR THE NTH,SURFACE, WHERE, 

IF(TABC(N).lT.l> TABC(N) JS NORMALIZED BY C(J). 

(OMIT FOR XQT [SURF) FLaP DEFLECTION (DEGREES), WHERE, 

IF(FLaPDU<N).GT.O) flap deflection IS DOWN, 
IF(FLAP D J(N).LT.O> flap DEFLECTION is up, 

(OMIT FOR XQT I surf) TAB DEFLECTION (DEGREES), WHERE, 

IF(TABDJ(N),GT,0) TAB DEFLECTION IS DOWN, 
IF(TABDJ(N),LT,0) TAB DEFLECTION IS UP. 

(OMIT FOR XQT |SURF) AILERON DEFLECTIONS (DEGREES), 

wheRe» l=i denot e s left aileron and l=2 de not e s 

RIGHT AILERON, AND, 

IF<AlLDJ(L,N),GT.O) AILERON DEFLECTION IS DOWN, 
IF(AILOj<L,N).LT,0) AILERON DEFLECTION IS up, 
IF(AILDJ(1,N).NE.AILDJ(2iN)) ANTISYMMETRIC LIFT, 


•• REFERENCE DIMENSIONS •• 

* OMIT FOR XQT I SURF EXECUTION MODE * 

XCG (=0.0 IF OMITTED) LONGITUDINAL LOCATION OF THE CENTER OF GRAVITY 

measured from the loft coordinate system origin, 
ycg (=o.o if omitted) spanwise location of the center of gravity 

measured FROM THE LOFT COORDINATE SYSTEM ORIGIN, 

ZCG (=0.0 IF OMITTED) VERTICAL LOCATION OF THE CENTER OF GRAVJTY 

MEASURED FROM THE LOFT COORDINATE SYSTEM ORIGIN. 

REFS (=1000,0 IF OMITTED) REFERENCE AREA FOR NORMALIZING THE CENTER 

AERODYNAMIC FORCE ANd MOMENT COEFFICIENTS, 

REFC (=100,0 IF OMITTED) REFERENCE CHORD FqR NORMALIZING THE CENTER 

AERODYNAMIC FORCE and MOMENT COEFFICIENTS, 

REFB (=100.0 IF OMITTED) REFERENCE SPAN FQR NORMALIZING THE CENTER 

AERODYNAMIC FORCE ANo MOMENT COEFFICIENTS, 

GSCALE (=1.0 IF OMITTED) GEOMETRY SCALING FACTQR THAT IS USED AS FOLLOWS, 
ALL DIMENSIONAL PhYSjCAL QUaNTjTjeS ARE MULTIPLIED BY gSCALE 
BEFORE EXECUTION, WITH THE EXCEPTION OF HEIGHT(N), THUS CHANGING 
THE SCALE OF THE INPUT GEOMETRY TO ANY DESIRED UNITS, AND, GSCALE 
IS S E T equal TO unity before the NEXT UOb-RUN, 


** FLIGHT ATTITUDE AND MULTIPLE-SURFACE SOLUTION SPECIFICATIONS ** 

NJ0B NUMBER OF SEPARATE FLIGHT CONDITIONS OR JOB RJNS TO 

BE CALCULATED, 

(4LFa<N),N=1,NJ0B> FLIGHT ATTITUOE ANGLE OF ATTACK (DEG,), I,E,, ANGLE 

BETWEEN FREE stream VELOCITY vector and THE LOFT 
COOROJNaTE system LONGITUDINAL AXIS (X-AXIS). 


(MACHN(N ), N=1 ,NJ0B) FLIGHT MACH NUMBER BASED ON FREE STREAM SPEED OF 

SOUND, 

(HEtGHT(N)»N=t,NJ0B) ALTITUDE MEASURED FROM THE GROUND PLANE TO THE 

vehicle loft coordinate system origin (x=y=z=q), 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 


(F|.ApDj<N>»N*l,NJ0B> (OMIT FOR XflT NSURF) F l aP DEFLECTION (DEGREES), WHERE, 

IF(FUPDJ(N).5 Ti 0) FLAP DEFLECTION IS DOWN, 
IF{FLAPDJ(N).LT,0) flap DEFLECTION Is up, 

((AILDUIL> N)»L“1» 2 >, (OMIT FOR XQT NSURF) AILERON DEFLECT JONS (DEGREES), 

N=1»NUOi31 WHERE, L a t DENOTES LEFT AILERON AND L=2 DENOTES 

RIGHT AILERON, AND, 

IF(AILDJ(L,N),GT,0) AILERON DEFLECTION JS DOWN, 

IF(AIlDj<L,N>.LT,Q) aileron deflection IS UP, 

IF(AILDJ(1,N),NE,AJLDJ(2,N)> ANTISYMMETRIC LIFT, 

((nS0lV(M.N),M« 1,2) (OMIT FOR XQT jSURF) MUlTjPlE SURFACE SQlUTjQN 
N»l,••«5) SPECIFICATION FLAG, TO BE USED AS ILLUSTRATED IN 

THE following EXAMPLE, 

NS0LV* 1,1, 2,2, 1,2, 1,3, 2*0, 

MULTIPLE-SURFACE INDEPENDENT SOLUTIONS ARE OBTAINED 
FOR THE FOLLOWING COMBINATIONS, 

SURFACE 1 TO SURFACE 1 * SURFACE 1 ONLY, 

SURFACE 2 TO SURFACE 2 = SURFACE 2 ONLY, 

SURFACE 1 TO SURFACE 2 = SURFACES 1 aND 2 ONLY 

SURFACE 1 TO SURFACE 3 « SURFACES 1 THROUGH 3, 

** LINEARIZED THEORY LIFTING-LINE SOLUTIONS OPTION ** 

* OMIT FOR XQT NSURF EXECUTION OPTION • 

NJ0BL (=0 IF OMITTED) NUMBER OF LINEARIZED LIFTING LINE 

SOLUTIONS TO BE EXECUTED, 

WCL<1) = 0 OR 1 (REQUIRED INPUT IF JFIG<0>,GE,1) LINEARIZED SOLUTION 

specification THAT JS used AS follows, 

IF(WCL(1>,EQ.0) ALFA(J),J»l,NJOBL ARRAY CALCULATED, 
IF(WCL(1)iEQ.1) WCL(J+1),J*1,NJOBL ARRAY CALCULATED 

( WcL(J + 1 >» J*liNJ08L ) (REQUIRED INPUT I F(IFIG( S),GE,1 , AND , WCL(1 >, GE,1 ) 

WING LIFT COEFFICIENT 


** OPTIONAL-INPUT EXECUTION CONSTANTS *• 

C0L0CP (=0,75 IF OMITTED) COLOCATION POINT OR CONTROL POJNt LOCATION 
SPECIFICATION FOR THE VORTEX LATTICE ELEMENTS, A RANGE OF 
0,75-0.83 IS GENERALLY USED, 

WSM0TH (=0.10 IF OMITTED) FLAP ANO/OR AILERON DISCONTINUITY COSINE- 
SMOOTHING OPTION, WHeRe. 

IF(WSM0TH.LT,1,O) WSMOTH INPUT in span UNITS, 
IF(WSMBTh.gT.1,0) WSMOTh INPUT JN PHYSICAL UNjTS, 

LFLAP (=0 IF OMITTED) FLAPPED SURFACE BOUNDARY CONDITIONS FLAG, USED 
AS FOLLOWS, 

IF(LFLAP,EQi0) EXACT GEOMETRY OF FLAP OR AILERON IS USED IN 

evaluating boundary conditions, 
if«lflap,eq.i> linearized-first order theory js used in 

EVALUATING BOUNDARY CONDITIONS FOR THE FLAP 
OR AILERON SURFACES, 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 


LDR4C (#0 IF OMITTED) CALCULATION OF INDUCED DRAG FLAG, USED AS FOLLOWS, 

IF(LDRAG.EQ.O) vqrtex LATTICE solution is output, 

IF(LDRAG.EQ.l) LIFTING-LINE THEORY IS USED IN CALCULATING 

THE INDUCED DRAG (XQT ISURF ONLY), 

CLEANF (#0.0035 IF OMITTED) SURFACE SKIN FRICTION AERODYNAMIC CLEANNESS 
FACTOR <= SF/AW) USED FOR XQT |SURF EXECUTION MODE ONLY, 

PMECF (#1.0 IF OMITTED) PITCHING MOMENT EMPIRICAL CORRECTION FACTOR 

USED FOR XQT ISURF EXECUTION MODE, I F< PM£CF. EG ■ U i THEORETICAL 
SOLUTION IS OUTPUT. 

CUT0F1 <#Q.OOOi IF OMITTED) CUTOFF LIMIT FOR RADIUS TO A VORTEX FILAMENT 

element from a flow-field point normalized by The Vort e x filament 

SPAN, 

CUT0F2 (#0.0029 IF OMITTED) CUTOFF LIMJT FOR ANGLE (RADIANS) MEASURED 

between a vortex filament and a flow-field point relative TO THE 

ORIGIN OF THE VORTEX LOCAL COORDINATE SYSTEM, 


OELALF (#1,0 IF OMITTED) ANGLE OF ATTACK INCREMENT BETWEEN THE TWO EXACT 
VORTEX-LATTICE SOLUTIONS THAT AR£ GENERATED FOR DETERMINING THE 
LINEARIZED (LIFTING LINE) THEORY ARRAYS OF SOLUTIONS, 


CiWQUP 4 - JQ8/JQBS TERMINATION CARD 
* REQUIRED INPUT FOR NSURF aND ISURF EXECUTION MODES * 


CARD 1 FORMAT!9H JENOJ0BS) MUST HAVE SENDUQBS IN COLUMNS 2-9 

(COLUMN 1 FIELD MUST bE LEFT BLANK) 


NOTE: INPUT INSTRUCTIONS FOR THE CALC0MP/4O6O-MICROFILM PLOT-OUTPUT OPTION, 
XQT TRWPLT, ARE FOUND IN REFERENCE 35. THESE INSTRUCTIONS HAVE BEEN 
OMITTED IN THE PRESENT REPORT. 
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AlLDJ 


ALFA 


CLEANF 


C0L0CP 


CUT(jFl 


CUT0F2 


DELALF 


FLAPDJ 


flapc 


GSCAlE 


HEIGHT 


IFLG 


K0UT 


KTl 


KT2 


LORaG 


lflap 


LI NX 


machn 


MCs 


NFUS 


NJ0B 




REAL(lO) 

RE*L(2Q) 


real. 


rEAL(30) 
REAL(IO) 


real 


real 


real 


E 


REAL 






rEAL(3IJ) 
REAL(IQ) 


REAL!5 > 
REAL(IQ) 


REALOO) 

REAL 


real 


REAL(IO) 


!NTG<15) 


INTEGER 


INTEGER 


INTEGER 


INTEGER 


real 


REAL 


REAL 


INTEGER 


REAL'10) 


INtGIS) 


INTGC20) 


INTEGER 


integer 



NONE 


L/R 



DEC. 

DEG, 



none 



NONE 


NONE 


NONE 


NONE 


NONE 


L 


NONE 


NONE 


NONE 


NONE 


NONE 


NONE 


NONE 


NONE 


RESTRICTION 

CLASS 

NSURF ONLY 

I SURF ONLY 

FLAP/AIL, 

flap/ail. 

NSURF ONLY 

I SURF ONLY 

ATTITUDE 

ATTITUDE 

I SURF ONLY 

OPT,CONS, 

nsurf ONLY 

ISURF ONLY 

SURF,PLAN 
SURF,PLAN 

I SURF ONLY 

OPT,CONS, 

NONE 

OPT,CONS, 

none 

OPT,CONS, 

NONE 

0PT.C0N5, 

I SURF ONLY 

OPT,C0N5, 

nsurf only 

I SURF ONLY 

SURF,PLAN 
SURF,PLAN 

NSURF ONLY 

I SURF ONLY 

FLAP/AlL, 
FLAP/aIL, ; 

NSURF ONLY 

I SURF ONLY 

FLAP/AlL, 

FLAP/AIL, 

NSURF ONLY 

REF,DIM, 

NONE 

ATTITUDE 

I SURF ONLY 

flag 

NONE 

OUTPUT 

none 

OUTPUT 

NONE 

OUTPUT 

NONE 

OUTPUT 

none 

NONE 

I SURF ONLY 

OPT,CONS, 

NONE 

OPT,CONS, 

NONE 

OUTPUT 

NONE 

ATTITUDE 

NONE 

AIRFOIL 

NSURF ONLY 

FLAG 

NSURF ONUY 

SURF,TYPE 

NONE 

attitude 


DESCRIPTION AND/OR FUNCTION 


AILERON-SURFACES DEFLECTION, 
AILERON-SURFACES DEFLECTION, 


ANGLE OF ATTACK) 
ANCLE OF ATTACK) 


WETTED AREA, 


CHORD LENGTH, 
CHORD LENGTH, 


AERODYNAMIC CLEANNESS FACTOR, 


COLOCATION OR CONTROL POINT, 


CUTOFF LIMIT FOR RADjUS VECTOR, 


CUTOFF LIMIT FOR SMALL ANGLES, 


ANGLE OF ATTACK INCREMENT FOR 

linearized theory, 


CHORD PLANE GEOMETRIC TWIST. 
CHORD plane geometric twist. 


FLAP-SURFACE DEFLECTION, 
FLAP-SURFACE DEFLECTION, 


FLAF/AILERON CHORD LENGTH. 

flap/aileron chord length. 


GEOMETRIC SCALING FACTOR, 


altitude from ground plane 


JOB EXECUTION FLAG FOR JSURF, 


BCD PRINT-OUTPUT UNIT aSSIG, 


SCRATCH/WORK BCD UNIT aSSIG, 


CALCOMP/FJLM BCD UNIT ASSIG, 


SCRATCH/WORK BCD UNIT aSSIG, 


LINEAR DIMENSION, E.C., FEET, 
INCHES,METERS,ETC. 


INDUCED DRAG FACTOR, 


LINEAR THEORY FACTOR FOR FLAP, 


max,no,lines per printed page, 


FLIGHT FREE-STREaM M A CH NUMBER, 


NO,OF CHORD STATIONS, 


JOB EXECUTION FLAG FOR NSURp, 


NO,symmetric fus, surfaces 


NO,OF FLIGHT ATTITUDES, 
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3.5 ALPHABETICAL LIST OF INPUT QUANTITIES (CONTINUED 


NJ0BL INTEGER NONE 


50 


SS 


MVTAtl 


NWING 


PMECF 


INTG(12) NONE 


INTGt 5) NONE 


integer none 


integer none 


REAL 


NONE 



SF 


BC 


TABDJ 


RE 


REALOQ) 


REALlS) 


DEG, 


NONE 



X0C 



REAL!10,5) 
REALC10) 


REAL(30 ) 
REAL 


REALOQ) 

REAL(IQ) 


L/C 

L/C 


L/C 

L/C 


YCG 


YSPaN 




REAL l 42) 


REALOQ) 
REAL(10) 


REAL 



restriction 

CLASS 

I SURF only I 

i» jneaR OPT h 

F 

NSURF ONLY 


none 

SURF,PLAN £ 

nsurf only 


NSURF ONLY 


I SURF ONLY 


NSURF ONLY 

REF.DIM, 1 

NSURF ONLY 

REF,DIM, 1 

NSURF ONLY 

REF,DIM. 1 

ISURF ONLY 

OPT,CONS | 

NSURF ONLY 

FLAP/AIL, 

nsurf only 

FuAP/AlL, 

ISUrF ONLY 

LINEAR opt 

NONE 

FLAP/AILi 

none 

FUAP/AlL, 

1 BB5HBH1 

NONE 

OPT,CONS, 

NSURF ONLY 


NSURF ONLY 
ISURF ONLY 

SURF,PLAN 
SURF.PLAN 

NSURF ONLY 
ISURF ONLY 

airfoil 

AIRFOIL 

NSURF ONLY 

NSURF ONLY 

SURF.PLAN 

SURF.PLAN 

NSURF ONLY 
ISURF ONLY 

SURF.PLAN 

SURF.PLAN 

nsurf only 


ISURF ONLY 

SURF.PLAN 

nsurf only 

ISURF ONLY 

SURF.PLAN 

SURF.PLAN 

NSURF ONLY 


NSURF ONLY 
ISURF ONLY 

airfoil 

, AIRfOIL 


DESCRIPTION and/or FUNCTION 


MULTIPLE-SUHFACE SOLUTION FLAG, 


NO,SYMMET RIC RING SURFACES, 
PITCHING MOMENT FACTOR, 
REFERENCE SPAN LENGTH,_ 


REFERENCE CHORD LENGTH, 


REFERENCE area, 


EQUIVALENT FLAT PLATE AREA, 


Tab CHORD LENGTH,__ 


TAB-SURFACE DEFLECTION, 


WING LIFT COEFFICIENT FOr 


FLAP SPAN JNNERoEDGE Dl"._ 


AILERON span INNER-EDGE DIM, 



COSINE SMOOTHING SCALE,_ 


longitudinal location of C,G. 


REF,LOFT LINE X-COQHPINATE, 

ref.loft line x-coohpinate, 


CHORD STATION FOR AIRFOIL SECT, 
CHORD STATION FOR AIRFOIL SeqT, 


RELATIVE LOCATION OF REF,LOFT 

LINE. „ T 

RELATIVE LOCATION OF REF,LOFT 

LINE, 


REF,LOFT LINE Y-COOHQINATE, 

ref,loft line y«c°o h pinate, 


SPANWISE LOCATION OF C,G, _ 


span stations th*t bound VORTEX 
LATTICE ELEMENTS, __ 


REF.LOFT LINE Z-COOHOINATE, 
REF.LOFT LINE Z-COORDINATE, 


VERTICAL LOCATION OF C,G,_ 


mean camber for airfoil sect, 
mean camber for airfoil sect, 
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3.6 LIST OF ABBREVIATION FOR INPUT 


AIL AILERON 

ASS I 0, assignment 

C0NS, CONSTANT 

C,G. CENTER QF GRAVITY 

DEG. DEGREES, ANGULAR MEASURE 

DIM. DIMENSION 

.EQ. EQUAL 

E,C. FOR EXAMPLE 

.GE. greater OR EQUAL 

.GT, GREATER THAN 

IABS ABSOLUTE VALUE OF AN INTEGER CONSTANT 

INTG -INTEGER 
11E• EQUIVALENT TO 

> LE. LESS OR EQUAL 

.Lt. less than 

jSpt, optional 

REF REFERENCE 

SURF. SURFACE 

* multiplication 

*« exponentiation 
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1.0 PROGRAM DATA TABLES 


TABLE 4.01 - INITIAL VALUES 


v aRIable 

DIMENSION 

restriction 

INITIAL Value/S 

A ILDJ 

REALC2.5) 
REAL(2,13 ) 

NSURF ONLY 

I SURF ONLY 

10*0,0, 

20*0,0, 

ALFA 

HEALUQ) 

RtAL<20) 

NSURF ONLY 

I SURF ONLY 

10*0,0, 

20*0,0, 

i" 

L, 

RtA L (JO) 
HEAL(lO) 

NSURF ONLY 
ISURF ONLY 

2*100.0,28*0,0, 

10*100.0, 

CLEANF 

heal 

I SURF ONLY 

0,0035, 

C0L0CP 

REAL 

NONE 

0*75# 

CUTJ&F 1 

real 

NONE 

0,0001, 

i 

heal 1 

NONE 

0,0029, 

DELALF 

heal 

ISURF ONLY 

1*0# 

E 

REAL<3D) 
Rt A L<10) 

NSURF ONLY 
ISURF only 

30*0,0, 

10*0,0, 

FlAPOJ 

HEA(_(5> 
REALl1D} 

NSURF ONLY 
ISURF ONLY 

5*0.0, 

10*0,0, 

FLAPC 

REAL! id) 

real 

NSURF ONLY 
ISURF ONLY 

30*0.25, 

0.3, 

GSCALE 

real 

NSURF ONLY 

■ 

1*0# 

HEIGHT 

REALllO) 

L 

none 

10*1,OE+5, 

IFLG 


ISURF ONLY 

0-0,10,0,0,1,0,0,0,1,0,0,0,0,0, 

K0UT 

INTEGER 

NONE 

6, 

KTl 

INTEGER 

none 

1, 

KT2 

INTEGER 

NONE 

a. 

KT3 

INTEGER 

NONE 

3* 


INTEGER 

ISURF ONLY 

Q* 

LFLAP 

INTEGER 

NONE 

0, 

LI NX 

integer 

NONE 

56, 

'1ACHM 

REAL!12) 

none 

10*0,0, 

'ICS 

iNTGfiO 

INTEGER 

NSURF ONLY 
ISURF ONLY 

2,4*0, 

2 > 






























































TABLE 4.01 - INITIAL VALUES (CONTINUED) 


VARIABLE 

DIMENSION 

RESTRICTION 

initial value/s 

NFLG 

INT6I20) 

NSURF ONLY 

10iO«QjOtQ#4iOfOiO#Q#OrO«OfQ|DiQiOfi'Q'4i 

NFUS 

integer 

NSURF ONLY 

0. 

NJ0B 

INTEGER 

NONE 

1, 

NJ0BL 

INTEGER 

ISURF ONLY 

20 i 

NS0LV 

INTGI12) 

NSURF ONLY 

l»lf10*0, 

NSS 

INT5I5) 

integer 

NSURF ONLY 
ISURF ONLY 

2,4*0, 

2. 

NVTAIL 

integer 

NSURF ONLY 

0, 

NWING 

INTEGER 

NSURF ONLY 

1. 

PMECF 

REAL 

ISURF ONLY 

11 D i 

REF8 

REAL 

NSURF ONLY 

100,0, 

REFC 

REAL 

NSURF ONLY 

100,0, 

REFS 

REAL 

NSURF ONLY 

1000, Q, 

T ABC 

REAL!30) 

NSURF ONLY 

30*0,125, 

TABDJ 

REAL!5) 

NSURF ONLY 

5*0,0# 

WCL 

REAL!21) 

ISURF ONLY 

+1,0»"0,4» _ 0,3,«0«2,"0,1,+Q,0»+0,1» 

+0.2,+0,3,+0,4,*0,5,+0,6,*Q.7,+0,8, 

+0,9,+1,0,+1,1,*1,2,+1,3,+1.4.+1,5, 

WFLAP1 

REAL!5) 
R£4L 

NSURF ONLY 
ISURF ONLY 

5*0,0, 

0,0, 

WFLAP2 

REAL!5) 

real 

NSURF ONLY 
ISURF ONLY 

5*0.6, 

0,6, 

WFLAP3 

REAl(5> 

REAL 

NSURF ONLY 
ISURF ONLY 

5*1.0, 

1,0, 

WSM0TH 

real 

r e al 

NSURF ONLY 
ISURF ONLY 

0,1, 

0.2, 

XCG 

real 

NSURF ONLY 

0,0, 

X 

REAL!30) 
REAL!10) 

nsuRF only 

ISURF ONLY 

30*0,0, 

10*0,0, 

X0C 

REAL!10»5) 
REAL(IO) 

NSURF ONLY 
ISURF ONLY 

Qi0 #110 #46*010 f 

0 f 0 #1101G*Q 101 
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TABLE 4.01 - INITIAL VALUES (CONTINUED) 


variable 

dimension 

RESTRICTION 

initial value/s 

XflfCR 

«EAL(30) 

real 

nsurf 

1 SURF 

ONLY 

ONLY 

30*0,25, 

0,25, 

S/ 

RtAL(30) 
RfcALUO) 

NSURF 

I SURF 

ONLY 

ONLY 

30*0.D, 

0,0,IDO, 0,8*1000,0, 

yCG 

REAL 

nsurf 

ONLY 

0,0, 

YSPAN 

REAL<42> 

I SURF 

ONLY 

42*0,0, 

z 

RtAL<30) 

HEAL(IO) 

NSURF 

I SURF 

only 

ONLY 

30*0,0, 

10*0,0, 

ZCG 

real 

N 

NSURF 

ONLY 

0,0, 

zcJc 

REAL<Yu. 30) 
rEA L (10,10) 

NSURF 

I SURF 

only 

only 

300*0,0, 

100*0,0, 


300*0,0, 

100 * 0 , 0 , 





















5.0 OUTPUT 


5.1 General Description of Output 

The printed-output and tape-output for the main execution modes 
of the program are organized in the following manner* 

1) Raw Data 

The input data for all the case studies that are to be executed 
by the computer which includes punched card data up to and including 
the $ENDJ0BS card is printed in the first page or pages in the exact 
form it was read into the computer, i.e., raw data including punched- 
card errors, etc* 

2) Initial Values 

For each individual case study to be executed the job-execution 
flags, geometry data, flight data, etc* are output via NAMELIST state¬ 
ment, i.e., the values of all the input variables are output via 
$ INPUT. 

2) Short-Print Output (NFLG(2Q) or IFLG(IO) = 0) 

The following tables are output under the short-print output 
option: 


Table Title & Description Table it in Section J5.2 

Lifting-Surface Geometry Table 5,01 

(one for each surface) 

Camber for Airfoil Section Table 5,02 

(one for each surface) 

Section Airload Coefficients Table 5.03 

(one for each surface) 

Spatially-Integrated Airload Table 5,04 

Coefficients 

Linearized (Lifting-Line) Solutions Table 5,05 

(ISURF execution mode only) 

Job/Jobs Termination Output Table 5,06 

4) Long-Print Output (NFLG(20) or IFLG(10) > 2) 

The short-print tables and the following tables are output under the 
long-print option: 

Table Title & Description Table # in Section 5.2 


Vortex-Lattice Geometry Detail 
(one for each surface) 


Table 5.07 
Table 5,08 


/ 






Lift Distribution Detail 
(one for each surface) 
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5.1 General Description of Output (Continued) 

5) D ebug-Print Output (NFLG(20) or IFLG(IQ) > 5) 

In addition to the short-print and long-print tables, the follow¬ 
ing tables are output under the debug-print option 

Table Title & Description Table # in Section 5.2 

Vortex-Lattice Induced Velocity Table 5.09 

Matrices Detail 
(one for each surface) 

6) Program Checkout-Print Output (NFLG(2Q) or IFLG(10 > 16) 

Under the program checkout-print option, detail data on the 

vortex-lattice velocity induced for each individual vortex filament 
is output via NAMELIST statement, accordingly 

Table Title & Description Table // in Section 5.2 

Program Checkout & Debug Print Table 5,10 

7) Tape Output (NFLG(19) or 1FLG (11) through IFLG(14) > 1) 

A summary of the analytical solutions generated by the program 
is output on magnetic tape. This output is used by the auxiliary 
execution mode (TRWPLT) for generating 4060-microfilm or Calcomp 
output, A detailed description of the format and variables output 
on tape is presented in Section 5,3, 

8) Execution Diagnostics and Job Abort Output 
See Section 5.4, 

9) Alphabetical List of Output Quantities 
See Section 5.5, 

10) List of Abbreviations for Output 
See Section 5.6. 

11) Sign Conventions for Output 

The sign conventions adopted for output purposes are described 
in Figure 5,01 (Page 5-3). 
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ORIGINAL PAGE IS 
OP POOR QUALITY 



TABLE 5.01 - LIFTING-SURFACE GEOMETRY 


LIFTt NG SURFACE NC* N j 

*************■**** + *:** 



S P AN 

°nn t 

TIP 

ROOT 

TIP 

AREA 

ASPECT 



chord 

CHORO 

Twl ST 

TWl ST 


PATIO 


b 

c 

c 

r 

E 

S 

AR 



R 

T 

R 

T 




Ft AP 

FL ap 

FLAP 

F LAP 

TAR 

L. AIL 

P . 41 L 


SPAN l 

SPAN 2 

SPAN 3 

OtFIFC 

oeflfc 

' DFFLEC 

OEFLEC 

Ln 

1 

Y 1 

Y 2 

Y 3 

5 f 

5 u 
tab 

6 la 

6 ra 





FU$ STA 

WING STA 

WL STA 

AREA 





XICG) 

Y(CG) 

2( CG1 

SI CGI 





X r 

ref 

Y c 
ref 

Z ref 

S 4T 

ref 


W$ 

Y 

L 

X(CF 1 

XIC/M 

X(TE) 

TWIST 


w Y Z X X (C/4) ^TE 




HP AN 

MGC 

YRAk 

XB AR 

ZB AR 

CHnRD 

(MAC) 

I MGC 1 

I MGC I 

(MGC 1 





_ 

c 

mean 

C 

Y 

X 

** z 

C1HED. 

SWEFP 

NO # SPAN 

Nn.CHfl- D 

NO. CHnRD 

MGC/4 

MGC/4 

ELEMENTS 

ELEMENTS 

01 SCDNT. 

<t ’(C/4) 

CHORD 

C< CG) 

A (C/4) 

SPAN 

BI C S » 

NSE 

NCE 

NCD 


0IHFIC/4I SWFP(C/4| C(MING) CIFLAPI C t T 401 




5.2 Printed-Output Format Summary (Continued) 


TABLE 5.02 - AIRFOIL-SECTION CAMBER (One for Each Surface) 


t/i 

l 


KA( n/C XA { 2 I /C XA(3 I/C X A( 4) / C XAI5I/C XA(6I/C XA(TI/C XAI8I/C XA{9)/C 


Y ZAtn/C Z A (2 ) /C ZM3I/C ZA14I/C ZAI5J/C Z Al ^ I / C l AC7)/C ZA(B)/C ZAIPI/C 


t 


t t 


r t ? t t 


[A] Single-Surface Representation 


[B] Two-Surface Representation 



xa< 10) ft 


ZM 10) /C 


1 


+ X 



5.2 Printed-Output Format Summary (Continued) 


TABLE 5.03 - SECTION AIRLOAD COEFFICIENTS (One for Each Surface) 


Ln 

I 

O's 


[A] NSURF Execution Mode 


SECTION AIPLQAO COFFF IC I ENTS-SU PF AC E NO. = N j /1 f \ 1 

*************************************************** 


J Y* Y 

j Y/b Y 


k 

w 


SC N 
c n 


SCX 


SCI 
c. 


S CD 


SMP C/4 SCL C/6 


C m(C/4) 


c £ C/b 


LXL LVL 1ZL 

section airloads unit vector 


t 


T 





T 


» 


I 


t 


t 


f 


T 


[B] ISURF Execution Mode 


SECTION LIFT COEFFCtFNTS 

************************ 


J 2Y/B 

j Y/Cb/2) 


Y C 

Y C 


SCL SCL C/B OLIFT 

c c C/b AL/q 

l Jt . ® 


SCMIC/4) 

C m(C/4) 


IXL 1YL iZL 

airload unit vector 


r 


T 


¥ 


! 


I 


! 


If 


f 


f 


♦ 


! 



5.2 Printed-Output Format Summary (Continued) 


TABLE'5.03 [B] - SECTION AIRLOAD COEFFICIENTS (Continued) 

I 


Ui 

I 


CHORDWlSE PRESSURE 01STRI BUTIHN DETAIL 

************************************** 


Cx - x^/c 

21 ff 
Y/(b/2) 


*********** * * * 

*00000 .1COOO *^0000 


SCL *****♦**•**♦♦• 

c. (c - c ) — - 

1 P L P U 


* * * * CHORD STATION (X-XIEI/C ******************* 

.JOOOO .40000 .50000 .60000 .70000 .00000 .90000 1.00000 

* * * CHORD PRESSURE »CPl -CPU)*l7l ***************** 


t 


t 


r 






1 


t 


t 


t 




1 



SPANWI SE SFCT1GN LIFT DISTRIBUTION HEX AIL 

********************************* ******** 


MTH LF SUCTION NC LE SUCTION FLAP /A 11 ERON 


Y 

21 /H 

SCL 

SCDI 

SC*(C/4J 

SCL 

SC01 

SCM(c/4) 

FCN 

FCX 

Y 

Y/(b/2) 

c * 

% 

C to(C/ 4) 

C A 

V 

l 


Cm v(C/4) 

c 

n f 

C 

X f 


FCH 



f 


t 


f 


T 


T 


r 


T 



t 


T 
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5.2 Printed-Output Format Summary (Continued) 


TABLE 5.04 - SPATIALLY-INTEGRATED AIRLOAD COEFFICIENTS 


[A] NSURF Execution Mode 


INTEGRATED AIRLOAD C0EPFICIENTS-5UWFACL NQS.5 N t -N k 


AC 

CG 

AC 

CG 


f.Zti 

C N 


t 


t T 


ECX 




ECV 

c„ 


* 


I ♦ 


,1 

I 


ECL 

C 


t 


t 

i 

I 


ECD 


ECMR 

Sl(c/4) 


* t 


ECMR 

Si 


roll 


t 


t 


ECMY 

C M 

yaw 


*** airload sums **• 


• DETERMINANTS A 


I 


• SCALES s 


EXA 

X (C/4) 




EZ4 

Z (C/4) 


t 


t 

Jl 

! 


ES 

s 


t 


EMGC 

c 




EB 

b 


t 


i t I 


[B] ISURF Execution Mode 


fcING A1PL1AD COEFFICIENTS 

************************* 


rfC L 
C, 


tfITH LF SUCTION 
ND LF SUCTION 


1 


fcCD I 

?* 


WCMP 

°MCC/4) 

t 


WCMR 

S 


J ro11 1 

i * 


WC MY 

Si 


I X L 


yaw 


I 


1YL IZL 

airload unit vector 


t 


1 


DELTA 

d 


SCALE 

s 


Note; Starred entries in the table (*) refer to calculated values of vortex-lift increments 









[A] Basic Lift Distribution 


LINEARIZED SOLUTION WINC COEFFICIENTS 

WITH LE SUCTION no LE SJCTION 


ALFA WCL WCD WCMCC/41 WCL WCO WCM<C/A> 



[B] Linearized Solutions 

(_n 

1 

VO 


LI NEAR IZEU SOLUTION WITH LE 5UCT1QN 


ALFA 

alfaho 

WCL 

WCL 

SLOPE 

CMP 

SLOPE 

CMR 

SLOPE 

CMY 

a 

ctR 

o 

C L 

m 

“pitch 

roll 

m 

yaw 


WITH LE SUCTION NO LE SUCTION FL**Va |LE R QN 


T 2V/ 9 SCL SCU1 SCH(C/W) SCL SCDJ SCM(C/«> FCN PCX FCH 



with LE SUCTION WCL* C / WCDI" c. t WCHlc/’«» B C. t LXO* C /C 

NO LE SUCTION u t D i / ^(C/4) / L D 
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5»2 Printed-Output Format Summary (Continued) 


TABLE 5.05 - LINEARIZED (LIFTING-LINE) SOLUTIONS (Continued) 
[C] Spatially-Integrated Linearized Solutions 


LINEAR! ZED SOLUTION WITH IF SUCMON 

***************+*+****+***«+******* 


ALFA 

ALFARO 

WCL 

WCL 

SLOPE 

CM n 
SLG^E 

CMR 

SLOPE 

CMY 

a 

aR 

0 

C L 

m 

m pitch 

IR N 

roll 

in 

yaw 


Y 


2Y/B SCLAL 


SC L B 


SCL SCMU/4) 


Y 


Y/(b/2) 


'ial 


C Lb C A C m(C/4) 


f 


f 


1 


I ! 


TABLE 5.06 - JOB/JOBS TERMINATION OUTPUT 


[A] NSURF Execution Mode 

«*•* JOB TIME* t 2 / ELAPSED TJME= t 2 / NO,PLOT FILES* n t NSUHF EXEC. VERSION 6-18-72 •••• 
«******•#**•****###*#*#*•**#•#*«***#**#*******#***•#•••#♦#*•#•*#•••#*#***♦#**#•*#**#*«•»••»»»*« 


[B] ISURE Execution Mode 

•••• J08 TIME* t 1 / ELAPSED time* t 2 / NO,PLOT FILES* np t ISUHF EXEC. VERSION 6-18-72 **** 







TT-S 



2) Long-Print Output 


TABLE 5.07 - VORTEX-LATTICE GEOMETRY 



J K XV Y V ZV IXV IYV UV 

j k Coordinates of BCX P Y,Z) Unit Vector 





5.2 Printed-Output Format Summary (Continued) 


TABLE 5.08 - LIFT DISTRIBUTION DETAIL (One for Each Surface) 


LIFT DISTRIBUTION DETAIL-SURFACE N0,« N j/t N i, N kl 


J K P(X) P(Y) P(Z) 

j k Coordinates of CCX,Y,Z) 


AREA CP N G(X) G(V) G{Z) 

AS (c c ) Unit Vector IV 

, P L P U . 


VI{X> VI {Y) VIU) 

Induced Velocity Vector V 


cama 

r j.k 


f 


T 


t 




f 


t 


1 


T 


1 


t 


1 


t 


t 


! 


3) Debug-Print Output: 


to 

TABLE 5.09 - VORTEX-LATTICE INDUCED VELOCITY MATRICES DETAIL (One for Each Surface) 


VORTEX U*TTiC£ MATRjX DETAIL-SURFACE NO,» N j/{ N i, \J 


J K NP Ng VFS<MaT) VIN(MAT) P(X) PI Y) P(Z) 


j k m n 


V *1N 
to n 


^ -• IN Control Point P(X,Y,Z) 


m.n n 


mm i * 


n 


* 


9 ( X J B(Y) flU) 

Coordinates of B(X,Y,Z) 


m 


DCX) DCV> D«2 J 

Coordinates of D(X,Y,Z) 


m 


+ t ir r t 





5,2 Printed-Output Format Summary (Continued) 

4) Program Checkout and Debug Print Output 


TABLE 5.10 - PROGRAM CHECKOUT AND DEBUG PRINT 


[A] Induced Velocity Calculation Detail-Print 
Origin: Subroutine V0RTEX (A13 or Bll) 


SDBUGV1 

P 

z 

P(X,Y,Z) 

B 


B (X, Y, Z) 

D 

= • 

D(X,Y,Z) 

TANA 


Tan(a) 

GAMA 

s 

r 

PS IF 

= 

K 

vcqs 

$end 

** 

IV. 

1 

SDBUGV2 

PS IF 

1m 

K 

VCoS 

send 


lv i 

SDBUGV3 

PSIF 

= 

K 

VCOS 

SEND 


IV. 

1 


Branch °°-A-B 


Branch D-E-°° 


| Branch B-C-D 


[B] Ground Effect Mirror Image Calculation Petal1-Print 


Origin: Subroutine REFLEC (A10 or B12) 


IREFLE* 

PX 

py 

XI 

Y1 

PHI 

ALpAR 

RX 

RY 

ZL 

COSR 

SEND 


X of P(X,Y,Z) 

Y of P(X,Y,Z) 

X coordinate for intermediate point 

Y coordinate for intermediate point 
<J>, rotation angle (.radians) 

a, angle of attack (radians) 

X coordinate of mirror-image point 

Y coordinate of mirror-image point 
Z coordinate to ground plane 

Co s (4 1 ) 
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5.3 Tape-Output Format Summary 


In exercising the Calcomp/4060-microfilm plot-option of the program 
through the execution of XQT TRWPLT, the auxiliary execution mode, a data 
tape (or an internal unit) has to be provided in addition to the plotting 
instructions. The data tape is generated in the main execution modes of 
program, XQT NSURF or XQT ISURF, when the tape output option is specified 
in the input, i.e., NFLG(19) f 0 or IFLG(12), IFLG(13) , and IFLG(U) 4 0. 
The data in the data—tape is organized into a number of separate files, 
each file containing a single solution or a separate class of informa¬ 
tion. The data in each file is organized as illustrated below: 


Execution Mode 

File No. 

Type of Information 

Reference 

NSURF 

//I 

Geometry for 1st. Surface 

Example #1 


til 

Geometry for 2nd. Surface 

(Section 6.2 


#3 

Geometry for 3rd. Surface 



#4 I 




#5 \ 

Geometry for 4th. Surface 



tie ) 




JJ 

Geometry for 5th. Surface 


ISURF 

til 

Geometry for 1st. Surface 

Example #2 


til 

Chordwise pressure distribution 

(Section 6.3 


#3 

Spanwise airload distribution 



#4 

Linearized airload solution 



The data record format adopted for each file is given by 
IREC, N, DATA^ DATA^ * ., DATA N , 

IREC, N, DATA^ DATA 2 , .. DATA^, 


U 11 


N 


IT 


rt 


I! 


M 


M 


11 


END 0F FILE 

where 

IREC is the record type or number 

N is the number of variables 

th 

DATA^ is the i variable in the record 

The definition of the variables that are output in the data-tape is 
presented in Table 5.11. 


'3 
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TABLE 5.11 


TAPE-OUTPUT FORMAT SUMMARY 


1 

File 

Execution 

Mode 

Origin 
Routine No. 

Record No. 
TREC 

No. Words 

N 

Data 

Function 

i 

NSURF 


1 

6 

X LE’ Y LE’ Z 1E* X TE’ Y TE’ Z TE* 

Isometric Projection of the 

N tb Lifting-Surface Geometry 

A03 

2 

3 

y fi’ z fi’ 

3 

3 

X F2’ Y F2’ Z F2’ 

* 

3 

ISURF 

B03 

1 

7 

Y > ^E’ X C/4’ X TE’ C W’ C F’ 

Ortographic Projection of the 

f'Vi 

I Lifting-Surface Geometry 

2 

2 

Y F1’ ^l’ 

3 

2 

Y F2* ^2’ 

4 

3 

Y ’ Z LE’ Z TE’ 

■ - ■ “ "- 

5 

6 

X LE’ Y LE’ Z LE’ X TE' Y TE’ Z TE’ 

Isometric Projection of the 
th 

I Lifting-Surface Geometry 

6 

3 

^Fl’ Y F1’ Z F1’ 

7 

3 

*F2» Y F2’ Z F2’ 

k 

ISURF 

B05 

1 

2 

X/C, (c - C ) 

P U P L 

Chordwise Pressure Distribution 

2 

10 

Y/b ’ V V C m(C/4)’ C n f ’ C x f ’ C h f ’ 

C l ’ C d ’ °m (r . tA ' 
v v v(C/4) 

Span Distribution of Section 
Airload Coefficients for 
Vortex-Lattice Solution 

1 

ISURF 

_ 

B06 

1 

10 

Y/b, c^, c d , c m(c/4) » c n ^’ c Xf * c h f ’ 

c , c, , c 
*v d v m v(C/4) 

Span Distribution of Section 
Airload Coefficients for 
Linearized Solutions 

2 

7 

C L* V Si (C/4)’ V Sl vC - M) ’ 

Spatially-Integrated 

Airload Coefficients 











5,4 Execution Diagnostics and Job Abort Output 


Aside from the system (the computer) diagnostic error messages that may 
be output in the normal execution of the program, diagnostic or job termination 
messages are output when unallowable errors are incurred in the execution. 
Generally, these errors result because of bad input or because some of the cal¬ 
culated dependent variables fall outside the range of the program. A complete 
list of the error messages that may be output by the program and the corrective 
action that should be taken for each individual case is presented below: 

1) J0B AB0RTED BECAUSE, N0. 0F LIFTING SURFACES = N EXCEEDS FIVE 

Origin: Subroutine L0FT (A03) 

Cause: The number of lifting surfaces specified in the input 

exceeds the maximum number of lifting surfaces allowed 
in execution. 

Correction: The absolute value sum of NWING, NFUS, and NVTAIL must be 

less than or equal to five. Revise accordingly. 

2) J0B AB0RTED BECAUSE, N0. 0F SPAN ELEMENTS = NSE EXCEEDS 60 


Origin: Subroutine L0FT (A03) 

Cause: The number of spanwise elements of the vortex-lattice 

geometric configuration exceeds the maximum number of 
allowable elements. 


Correction: Decrease the number of spanwise elements in the vortex- 

lattice by revising the entries in NFLG(l), NFLG(2), 

.., NFLG(5). 

3) J0B AB0RTED BECAUSE, N0. 0F CH0RD ELEMENTS = NCE EXCEEDS TEN 

Origin: Subroutine L0FT (A03) 


Cause: 


Correction: 


The vortex-lattice number of chordwise elements assigned to 
th 

the N surface exceeds the maximum allowable number. 

The value assigned to NFLG(6) , NFLG(7) ,1 ,or, NFLG(10) 
cannot exceed 10. Revise these entries accordingly. 
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5.4 Execution Diagnostics and Job Abort Output (Continued) 


4) J0B AB0RTED BECAUSE, N0. 0F V0RTEX-LATTICE ELEMENTS = NVME EXCEEDS 100 

Subroutine LIFTX (A04) 

Too many elemental panels are considered simultaneously 
in obtaining a solution, i.e., the number of elements 
in the induced-velocity matrix exceeds the maximum 
allowable number. 

A smaller number of lifting-surfaces or a smaller number 
of elemental panels per surface has to be considered in 
obtaining a solution. To achieve these objectives 
revise the entries made for NS0LV, and NFLG(l) through 
NFLG(IO). 

5) J0B AB0RTED BECAUSE, MACH N0. = MACHN EXCEEDS 0.90 

Origin: Subroutine MAIN (A01) 

Cause: The free stream Mach Number assigned to a given solution 

exceeds the maximum allowable limit of the program. 

Correction: Revise the entries made for the MACHN array. 

6) J0B AB0RTED BECAUSE, N0. 0F SPAN STATI0NS = NSS EXCEEDS 30 

Origin: Subroutine L0FT (A03) 

Cause: Too much data input for the X, Y, Z, E, C, and X0CR arrays. 

Correction: Revise entries for NSS, X, Y, Z» E, C, and X0CR. 

7) J0B AB0RTED BECAUSE, N0. 0F CH0RD STATI0NS = NSC EXCEEDS 10 

Origin: Subroutine L0FT (A03) 

Cause: Too much data input for X0C and Z0C arrays. 

Correction: Revise entries for NCS, X0C, and Z0C. 

8) J0B AB0RTED BECAUSE, N0. 0F S?m ELEMENTS = NSPE N0T PERMITTED 

Origin: Subroutine L0FT (A03) 

Cause: The number of span elements assigned to any lifting 

surface has to be a positive integer. 

Correction: Revise (increase) entries for NFLG(l), through NFLG(5). 


Origin: 
Cause: 

Correction; 
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5,4 Execution Diagnostics and Job Abort Output (Continued) 

9) JjQB AB0RTED BECAUSE, N0. 0F WING CH0RD ELEMENTS = NWCE N0T PERMITTED 

Origin: Subroutine L0FT (A03) 

Cause: Too few chordwise elements assigned to the lifting 

surface. 

Correction: Revise (increase) entries for NFLG(6) through NFLG(IO). 

10) J0B AB0RTED BECAUSE, INPUT ERR0R IN NSS FLAG, NSS(N) - II.LT.NSS(M)=12 

Origin: Subroutine L0FI (A03) 

Cause: Input error incurred in the NSS array specification. 

Correction: Revise entries for NSS array. 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES 


* PROGRAM OUTPUT OPTIONS * 


(1) - short-print output, 

(2) - LONG-PRINT OUTPUT, 

(3) - debug-print output, 
(4> - program-checkout,' 
(5) - PLOT TAPE OUTPUT, 


NFLGI20) ,OR, IFLCUO) |EQ,0, 
NFLGC20K0R. IFLGUO), GE,2, 

NFLGI20),0R,IFIGC10).GE.5, 

NFLG(20) .OR, IFLGU0),GE,8. 

NFLGC19),OR,(IFLG(I)i1*11.3,4)>GE*i« 


* INPUT-DaTA OUTPUT - NAMELIST INPUT * 


NAMELIST INPUT. SEE INPUT VARIABLES LIST (SECTION 3,4) FOR DEFINITION 

OF INPUT VARjAB L eS jN NAMELIST INPUT, 


* STaNdARd'PRINT OUTPUT - SHORT-PRINT. LONG-PRINT, OR DEBUG-PRINT * 


variable 

COMMENT 

UNITS + 

• definition 

AC 

INTG♦COEFF, 


aerodynamic center for elemental SURFACE NO. 1, 

ALFA 


DEG. 

angle of attack measured relative to the frf.e 

STREAM v £c tor and The x-cOORqinate axis, 

alfar# 

ISURF 

DEG. 

WING ANCLE OF ATTACK FOR CL=0,0, 

altitude 


L 

ALTITUDE ABOCE the GROUND PLANE, I,E,, THE 

shortest straight-line distance measured from 

the COORDINATE SYSTEM ORIGIN CX«Y s Z s O> TO THE 

GROUND PLANE, 

AREA 

geometry 


PROJECTED area of lifting SURFACE. 

AREA 

1 

QQj 

AREA OF AN ELEMENTAL SURFACE, 

area 

S(CG> 

GEOMETRY 


REFERENCE area USED FOR NORMALIZING THE C.G. 
aerodynamic coefficients, 

a s pect ratI£ 

' GEOMETRY 


aspect ratio of lifting surface, i,e,, equal to 

<SPAN**2)/AREA 

BOO 

ND.GE.5 

L 

X-COORDINATE OF POINT B(X.Y.Z) THAT DEFINES 
the GEOMETRY OF the VORTEX FILAMENT B-D, 

8 (Y) 

ND.GE.5 

U 

Y-COOROINATE OF POINT B(X.Y.Z) THAT DEFINES 

THe GEOMETRY Op THE VORTEX FILAMENT B-q. 

R( Z) 

NO.GE,5 

L 

Z-COOROInATE OF POINT B(X,Y,Z) THAT DEFINES 
.THE GEOMETRY OF THE VORTEX FILAMENT B-Di 

C(FLAP) 

GEOMETRY 

L 

CHORO LENGTH OF FLAP AND/OR AILERONS, 


tBlank entries denote dimensionless quantities. 
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5.5 ALPHABETICAL LIST OF OUTPUT OUANTITIES (CONTINUED) 


variable 

COMMENT 

UNITS 

DEFINITION 

C(TAB) 

geometry 

L 

CHORO LENGTH OF TAB OR AUXILIARY FLAP 6URFACE, 

C<WlNG> 

geometry 

L 

CHORD LENGTH OF LIFTING SURFACE CHORD-PLANE, 

cc 

INTG.COEFF, 


CENTER OF GRaVJTY LOCATION DEFINED BY REFERENCE ' 

DIMENSIONS, 

CH0RI5 

C<CG) 

GEOMETRY 

L 

REFERENCE CHORD LENGTH USED FOR NORMALIZING THE 

C.G, AERODYNAMIC COEFFICIENTS, 

CMP SL0PE 

(SURF 


WING PITCHING MOMENT COEFFICIENT SLOPE, I.E., 

= q{wcmp>/d<alfa>. 

Sl0PE 

ISURF 


wi n g rolling moment coefficient slope, i.e,, 

S D<WCMR)/0(ALFA). 

CMY SL0PE 

ISURF 


wing yawing moment coefficient slope, j,e., 

= dcwcmy)/d<alfa>, 

CPN 

fs|D i GE f 2 


normal force pressure coefficient for an 

ELEMENTAL SURFACE, 

DU) 

N0.GE.5 

L 

X-COORDINaTE OF POINT D(X|Y»Z> THAT DEFINES 
the geometry of the vortex filament B-o, 

DC Y) 

ND.GE.5 

L 

X-COORQlNATE of point 0(X,Y,Z) THAT DEFINES 
the GEOMETRY Of the VORTEX FILAMENT B-d, 

D C Z) 

ND.CE.5 

L 

X-COORDlNATE OF POINT DCX,Y,Z> THAT DEFINES 
the GEOMETRY of THE VORTEX FILAMENT B-D, 

DC 

ND.GE.l 

L 

CHORD INCREMENT OF A VORTEX-LATTICE ELEMENTAL 

surface. 

•DETERMINANT 

INTG.COEFF, 


VALUE OF DETERMINANT IN VORTEX-LATTICE MATRIX 

inversion. 

DlHEDIMGC/4) 

GEOMETRY 

DEG. 

DIHEDRAL ANCLE BASED ON THE 1/A-CHQRQ LOCATION 

of the mean geometric chord and root chord 

SPAN STATIONS, 

ds 

ND.GEiI 

L**2 

TRUE AREA INCREMENT OF A VORTEX-LATTJC£ 

ELEMENTAL surface, 

DWL 

fS|D * G£ , 1 

L 

true spam DIMENSION QF a VORTEX-LAttjce 

ELEMENTAL SURFACE, 

E 

INTG.COEFF. 


DESIGNATION of ELEMENTAL SURFACE (NTH SURFACE), 

EB 

INTG.COEFF, 

L 

span OF ELEMENTAL surface, 

ECD 

INTG.COEFF, 


INDUCED ORaG COEFFICIENT FOR ELEMENTAL SURFACE, 

ECU 

— 

INTG.COEFF, 


LIFT COEFFICIENT FOR ELEMENTAL SURFACE, 

ECMP 

INTG.COEFF, 


PITCHING MOMENT COEFFICIENT FOR ELEMENTAL 

surface* 

ECMR 

INTG.COEFF. 


ROLLING MOMENT COEFFICIENT FOR ELEMENTAL 

SURFACE. 

ecmy 

INTG.COEFF. 


yawing moment COEFFICIENT For ELEMENTAL surface 

'--- 1 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


variable 

comment 

UNITS 

DEFINITION 

ECN 

INTG.COEFF, 


NORMAL FORCE COEFFICIENT for ELEMENTAL SURFACE, 

ECX 

into.coeff. 


HORIZONTAL FORCE COEFFICIENT FOR ELEMENTAL 

SURFACE- 

ECY 

into.coeff. 


side fqrce coefficient for elemental surface, 

ELAPSED TIME 

COMMENT 


TIME ELAPSED SINQE START OF EXECUTION. 

EMCC 

into.coeff, 

L 

mean GEOMETRIC chord OF ELEMENTAL SURFACE. 

ES 

INTG.COEFF, 

B9 

area OF ELEMENTAL surface, 

EW 

ND,QE,1 

i 

TRUE SPAN COORDINATE MEASURED AT POINT B OF AN 
ELEMENTAL SURFACE VORTEX FILAMENT. 

exa 

INTG.COEFF, 

L 

LONGITUDINAL STATION FOR 3,/4-CHORD POINT 

LOCATION OF ELEMENTAL SURFACE MEAN GEOMETRIC 

CHORD. 

EZA 

INTG.COEFF. 

L 

WATERLINE STATION FOR 1/4-CHORD POINT LOCATION 

of elemental surface mean geometric chord* ' 

FCH 

JSURF 


hinge moment section coefficient for flap or 
aileron control surfaces, 

FCN 

Jsurf 


normal force section coefficient for flap OR 
aileron control surfaces, 

FCX 

I SURF 


CHOROWISE force section coefficient for flap or 
aileron CONTROL SURFACES, 

flap DEFLEC 

GEOMETRY 

OEG, 

flap DEFLECTION# I,E,, ♦ 9 DOWN, 

flap SPaNI 

geometry l 

OR L/B 

SPaN LOCATION OF THE INNER EDGE OF THE FLAP, 

Flap SPAN2 

GEOMETRY 

1 

OR L/B 

SPAN LOCATION OF the OUTER EDGE OF THE FLAP OR 

INNER EDGE OF THE AILERON, 

flap spans 

geometry l 

OR L/B 

SPAN LOCATION OF THE OUTER EDGE OF THE AILERON, 

FUS STa 

X(CG) 

geometry 

L 

LONGITUDINAL STATION (X-COORDINaTE) FOR THE 

LOCATION Op THg CENTER Op GRAVITY. 

GAmA 

NDiGE | 2 


strength 0 r concentrated vorticity fqr the 

VORTEX FILAMENT OF AN ELEMENTAL SURFACE DEFINED 

BY THE POINTS B<X#Y#Z> AND D<X,Y,Z), 

G (X) 

NO.Ge , 2 


X-cOMPONENT OF the UNIT VECTOR THaT DEFINES THE 

LINE OF ACTION OF fME LIFT FORCE ACTING ON aN 

elemental SURFACE, 

G( Y> 

ND.GE.2 


Y-cOMPONENT of the unit vector that DEFINES the 

LINE OF action of the lift force acting on an 
elemental SURFACE. 

G (Z) 

N0,CE,2 


z-compqnent of the unit vector THAT DEFINES the 
line of action of THE lift force acting ON an 
elemental surface, 

J 



span argument or index, 

TIME 

comment 


time ELAPSED FOR EXECUTION OF LAST JOB, 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


variable 

COMMENT 


DEFINITION 

K 



CHORD ARGUMENT or INDEX. 

L/D 

J SURF 


lift to drag ratio, 

L.AIL DEFLEC 

GEOMETRY 

DEG • 

left aileron deflection, i.e», * * down, anq, 

- = UP, 

machn 



MACH NUMBER OF THE FREE STREAM VELOCITY. 

«ean chPRd 

GEOMETRY 

L 

mean chord of lifting surface, 1 ,E,, EQU A L to 

AREA/SPAN 

MGC (MAC) 

GEOMETRY 

L 

mean GEOMETRIC CHORD that is defined equal to 
the mean AERODYNAMIC chord, 

NO 

OUTPUT 


value ASSIGNED to NFLGI20) OR IFLGUD), 

NG 

ND.GE»S 


SECOND ARGUMENT OR INDEX OF VORTEX-LATTICE 

influence coefficient matrix, 

Nef,CH0RO 

OISC 0 N, 

geometry 


number of chord discontinuities for THE lifting 
SURFACE VORTeX-LATTIcE REPRESENTATION, 

N 0 .CH 0 RD 

elements 

geometry 


NUMBER OF CHORD ElEmEnTS FOR the lIPTInG- 
SURFaCE VORTEX-LATTICE REPRESENTATION, 

N0.PL0T FILE 

S COMMENT 


NUMBER OF FILES OUTPUT ON UNIT KT2 THAT ARE 

USED IN THE PROGRAM PLOTTING OPTJON, 

N0,SPAN 
ELEMENTS 

geometry 


NUMBER of span ELEMENTS FOR THE LIF T ING-SURFACE 
VORTeX-LATTIcE REPRESENTATION, 

N P 

NO * GE 9 5 


FjRST ARGUMENT OR INDEX OF VQRTEX-LATT{CE 

INFLUENCE COEFFICIENT MATRIX, 

PCX) 

N0.GE|2 

L 

X-COORDINaTE OF A FIELD POINT ABOUT WHJCH 
the INqUcEO VELOCITY is CALCULATED, 

PC Y) 

NO,GE»2 

L 

Y-cOOROINaTE of a field point ABOUT which 
the INDUCED velocity is CALCULATED, 

P(Z) 

NO.CE.2 

L 

Z-COORDInATE of a field POINT ABOUT WHICH 
the INDUCED VELOCITY is calculated, 

R 00 T CH 0 RD 

GEOMETRY 

L 

CHORD length of THE ROOT STATION, 

R00T TWIST 

geometry 

DEG, 

GEOMETRIC TWIST of chord plane at the ROOT, 

STATION (WASH2N), WHERE, 

♦ * leading edge up, and * ■ leading edge down, 

R.AIL DEFLEC 

geometry 

OEG, 

RIGHT AILERON DEFLECTION, I,E, * = OQwN, AND, 

- = UP, 

•SCALE 

INTG.COEFF, 


AVERAGE VALUE OF ELEMENTS IN THE VORTEX-LATTICE 
MATRIX 

SCO 

SECT.COEFF, 


section drag coefficient, 

S CDI 

I surf 


section coefficient for induced drag, 

SCL 



section lift coefficient, 

SCLAl 

I SURF 


additional lift distribution section lift 

COEFFICIENT, 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


variable 

COMMENT 

UNITS 

DEFINITION 

sclb 

tSURF 


BASIC LIFT DISTRIBUTION <WCL*0.0> SECTION LIFT 
COEFFICIENT, 

ScLC/B 

SECT.COEFF. 


SECTION SPAN LOADING COEFFICIENT, J,E,, 

SCL*<C/B), 

SCN 

SECTiCOEFF, 


SECTION NORMAL AIRLOAD COEFFICIENT, l.E,, 

ACTING IN THE -Z DIRECTION, 

sex 

sect.coeff, 


SECTION CHQRDWISE AIRLOAD COEFFICIENT, J,E,, 

ACTING IN the +X DIRECTION, 

SmP c/4 

SECT.CqEFF. 


section pitchi n g-momEnt coefficient abqut the 

LOCAL 1/4-CHQRD LOCATION, 

SPAN 

geometry 

L 

SPAN of lifting surface, 

span 

B ( CG j 

geometry 

L 

REFERENCE SPaN LENGTH USED FOR NORMALIZING THE 

C,G. AERODYNAMIC coefficients, 

Sw£EP(MSC/4 

——————- 

GEOMETRY 1 

1 - 

DEG, 

SWEEPBACK ANGLE BASED ON THE 1/4-CHORD LOCATION 

of the mean geometric chord and root chord 
span stations, 

tab deflec 

geometry 

DEG, 

tab deflection, I,E.1 ♦ = down,and,- » UP. 

TIP CH0RD 

geometry 

L 

CHORD LENGTH OF THE TIP STATION, 

TIP TWJST 

geometry 

DEG. 

GEOMETRIC TWIST OF CHORD PLANE AT THE TIP. 

STATION (WASHOUT), WHERE* 

+ s LEADING EDGE UP, AND - « LEADING EDGE DOWN, 

TWIST 

geometry 

DEG i 

GEOMETRIC TWIST OF THE CHORD PLANE. WHERE. 

+ = LEADING EDGE UP.AND, - ■ LEADING EDGE DOWN, 

VFS(MAT) 

NP « OEi5 

V/UFS 

FREE STREAM VECTOR VELOCITY COMPONENT NORMAL 

TO THE ELEMENTAL SURFACE AT THE COLOCATION 

POINT P(X»Y» Z ), 

VIN(MaT) 

ND.GEi5 

V/UFS 

INDUCED VELOCITY VECTOR COMPONENT NORMAL TO 

the elemental surface at the colocatjon pojnt 

P(X,Y,Z> DUE TO THE VORTEX FILAMENT DEFINED BY 

B< X►T,Z ) AND D(X,Y,Z) POINTS, 

VI (X) 

NO.GE.2 

V/UFS 

X-COMPONENT of THE VELOCITY VECTOR INDUCED BY 

the sum of all elemental surface vortex 

FILAMENTS, 

VI < Y) 

N0.GE.2 

V/UFS 

Y-COMPONENT OF the VELOCITY VECTOR induceo by 
the SUM OF ALL ELEMENTAL SURFACE VORTEX 
filaments. 

VI <z> 

No • G£ > 2 

V/UFS 

z-c°mponent of the velocity vector induced by 

THE SUM Of ALL ELEMENTAL SURFACE VQRTeX 

FILAMENTS, __ 

VI 

SECT « CO&FF, 

L 

CUMULATIVE WETTED-SPAN OIMENSIQN IN CORE, 

WCDI 

1 

J SURF 


WING INDUCED DRAG COEFFICIENT, __ 

wet 

I SURF 


WING LIFT COEFFICIENT, _ 

WCL sgbPE 

I SURF 


WING LIFT SLOPE, I,E,« WCl/ULFA-ALFARtf) __ 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


variable 

comment 

UNITS 

DEFINITION 

wcmp 

(SURE 


WING PITCHING MOMENT COEFFICIENT ABOUT 1/4 Mac, 

<mac= mean aerodynamic chord) 

WCMR 

I SURF 


WING ROLLING MOMENT COEFFICIENT, 

l.'CMY 

I SURF 


WING YAWING MOMENT COEFFICIENT, 

wing sta 
V(CG) 

GEOMETRY 

L 

SPAN STATION (Y-COQRDJNATE) FOR THE LOCATION OF 

THE CENTER OF GRAVITY, 

WL 

!\|0,G£,l 

L 

span coordinate jn-cqre for point b of an 

ELEMENTAL SURFACE vortex FILAMENT. 

WL ST 4 

2 < CG ) 

GEOMETRY 


VERTICAL WaT£R-LINE STATION (Z*COORDINAT£) for 
the LOCATION Of THE CENTER OF GRAVITY, 

U'S 

GEOMETRY 

L 

WETTED-LENGTH span STATION, 

X 


L 

X-COORDiNATE DEFINED FOR A RIGHT-HAND LOFT 
COORDINATE SYSTEM, 

Xa(N)/C 

camber 

L/C 

CHORD STATION NORMALIZED BY CHORD LENGTH FOR 

THE NTH.LOCATION, N«1,2,3i,,,,,10. 

XBAR 

geometry 

L 

LONGITUDINAL COORDINATE FoR THE 1/4-CHQRD 

LOCATION OF THE MEAN GEOMETRIC CHORD, 

X(C/4) 

geometry 

L 

LONGITUDINAL STATION (X-COORDINATE) of the 

1/4-CHQRQ LOCATION OF THE CHORD PLANE, 

XCLE) 

geometry 

L 

LONGITUDINAL STATION (X-COORDINATE) OF THE 

LEADING EDGE oF THE CHoRD PLAnE, 

XN 

ND t GE 11 

L 

X-COORDINATE OF THE COLOCATION POINT OF AN 

elemental surface. 

X(T£) 

GEOMETRY 

L 

LONGITUDINAL STATION (X-COORDiNATE) qF the 

TRAILING EDGE of THE CHORD PLANE, 

XV 

NO.GE.l 

L 

X-COORDINaTE of POINT B OF AN ELEMENTAL SURFACE 
VORTEX FILAMENT, 

Y 


L 

Y-cOORqINaTE DEFINED FOR A RIGHT-HaNd LOpT 

coordinate system. 

Y* 

-- 

SECT.COEFF, 


DIMENSIONLESS span COOROJNaTEj 1, Em Y/SPaN, 

V8AR 

geometry 

L 

span COORDINATE for the 1/4-CHORD LOCATION 

of the mean geometric chord. 

YN 

NP.GEil 

L 

Y-COORdINATE of the colocation POINT of an 

ELEMENTAL SURFACE. 

YV 

no.ce,i 

L 

Y-COQRQInaTE OF POINT B QF AN ELEMENTAL SURFACE 
VORTEX FILAMENT ' 

Z 


L 

Z-CODRDlNATE DEFINED for a RIGHT-HAND LOFT 

COORDINATE SYSTEM, 

ZA(N)/C 

CAmBER 

L/C 

vertical location of mean-camber plane relative 

TO THE CHORD PLANE AND NORMALIZED BY THE CHORD, 

ZBAR 

geometry 

L 

vertical coordinate for the i/4-chord location 

OF THE MEAN GEOMETRIC C MQ"0. 
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5,5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


variable 

QOMMENT 

UNITS 

-- 

DEFINITION 

ZN 

ND.QE.l 

L 

Z-COORDINaTE of THE COLOCATION POINT OF AN 

elemental surface. 

ZV 

t G£ 11 

L 

Z-COORQlNATE OF POINT B qf an ELEMENTAL surface 
VORTEX FILAMENT 

1 XL 

.. 

SECT.COEFF, 


UNIT VECTOR IN THE *X DIRECTION FOR SECTION 

AIRLOAD. 

lXN 

ND.GEi1 

* 

X-COMPONENT OF THE NQRMAl“UNJT-VECTOR aT THE 
COLOCATION point of an ELEMENTAL SURFACE, 

1 XV 

NO.GE 11 


X-COMpqNENT of the UNIT VECTOR THAT DEFINES THE 
SPaNWISE ORIENTATION OF THE VORTEX FJLAMENT OF 
an elemental SURFACE, 

1 YL 

SECT.COEFF. 


unit vector in the +y direction for section 
airlqaq. 

1 YN 

NO.G£|1 


Y-COMPONENT of the NORMAL-UNIT-VECTOR at the 
COLOCATION POINT Of an elemental SURFACE, 

1YV 

ND.GE, 1 


Y-COMPONENT of the unit vector that defines the 

SPaNWISE ORIENTATION OF THE VORTEX FJLAMENT OF 

an elemental surface, 

1 ZL 

SECT.COEFF, 


UNIT VECTOR IN THE +Z DIRECTION FOR SECTION 

AIRLOAp. 

1 ZN 

no.ge.x 


Z-COMPONENT OF THE NORMAL-UNlT-VECTOR AT THE 
COLOCATION POINT OF An ELEMENTAL SURFACE, 

izv 

NO.GEti 


Z-COMPONENT OF THE UNIT VECTOR THAT DEFINES THE 
SPANWISE ORIENTATION Op THE VORT£X FJLAMENT OF 

AN ELEMENTAL SURFACE, 


* program-checkout output - namelist dbugvi, D8UGV2, dbugv3, or reflex * 


''ARIARLE 

COMMENT 

UNITS 

DEFINITION 

alfar 

ND.GT.15 

RAD. 

ANCLE OF ATTACK, 

B 

ND.GE.5 

L 

X-Y-Z COORDINATES OF POINT B(X,Y,Z) THAT 

DEFINES THE LOCATION OF THE ELEMENTAL VORTEx . 
FILAMENT B-D, 

C0SR 

NO « GTi15 


COSINE(ALFAR), 

D 

ND.CE,5 

L 

X-Y-Z COORDINATES QF POINT D(X,Y,Z> THAT 

DEFINES The LOCATION Of the ELEMENTAL VORTEX 
filament b-o, 

GAMA 

ND.GE.5 


strength or CONCENTRATED VQRTICITY OF THE 

VORTEX FILAMENT B-d. 

P 

ND.GE.5 

L 

X-Y-Z COORDINATES OF THE FIELD POINT P(X,Y,Z), 

PHI 

NO«GT,15 

RAD * 

ROTATION AN&LE, 


5-25 














































5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


VARIABLE 

COMMENT 

UNITS 

DEFINITION 

PSIF 

•ND.GE.5 


INFLUENCE FUNCTION PSJ, 

PX 

NO.GTi15 

L 

X-COORDINaTE, 

PY 

NO.GTi15 

L 

Y-COORDINaTE, 

RX 

NO i G T115 

L 

X-cOORdINaTE for image point, 

RY 

ND.GT,15 

L 

Y-cOORdINaTE for image POINT, 

tana 

NO.GE.5 


tangent OF AUPHA, 

VC0S 

ND.GE.5 


X-Y-Z COMPONENTS of THE INDUCED VELOCITY 

VECTOR at POINT P<X,Y»Z> DUE TO THE VORTfiX 

FILAMENT B-O, 

XI 

ND,GT,15 

L 

X-COORDINATE FOR INTERMEDIATE POjNT, 

Y1 

ND.GT,15 

L 

y-coordinate for intermediate point, 

ZL 

NO * GT,15 

L 

altitude. 


5.6 LIST OF ABBREVIATIONS FOR OUTPUT 


ALFA ANGLE OF ATTACK 

AIL AILERON 

ASSIG. ASSIGNMENT 

camber AIRFOIL section MEAN camber SPECIFICATIONS 

CL LIFT COEFFICIENT 

C0NS, CONSTANT 

C.G, CENTER OF GRAVITY 

DEG. ANGLE MEASURED IN DEGREES 

n im ^ t MrM'' < 

is * n i \j i nfc,3 l 0m 

.EQ. EQUAL 

E,G. FOR EXAMPLE 

GEOMETRY LIFTING SURFACE GEOMETRY SPECIFICATIONS 
.GE. GREATER OR EQUAL 

.GT. GREATER THAN 

INTG.C0EFF, SPATlALLT-INTEGRATED COEFFICIENTS 

1»E. EQUIVALENT TO 


/ 
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5.6 LIST OF ABBREVIATIONS FOR OUTPUT tCONTINUED) 

L LINEAR OIMENSJON 

.LE. LESS OR EQUAL 

•LT. LESS THAN 

L/B LINEAR DIMENSION NORMALIZED BY THE SPaN 

L/C LINEAR DIMENSION NORMALIZED BY THE CHORD 

L**2 AREA UNITS, I,E.i LINEAR UNITS SQUARED 
ND f CE,l NFLAC(20) OR IFlAG(IO) GREATER OR EQUAL TO 1 

ND.GE.2 NFLAG(20> OR IFLAGUO) GREATER OR EQUAL TO ? 

ND.GE.5 NFLAG(20> OR IFLAGUO) GREATER OR EQUAL TO 5 

ND.GT.15 NFLAG(20) OR IFLAGC10) GREATER THAN 15 

0PT. optional 

RAD. ANGLE MEASURED- IN RADJANS 
REF REFERENCE 

SECT,C0EFF, AIRLOAD SECTION COEFFICIENTS 
SURF, SURFACE 

V/UFS VELOCITY NORMALIZED BY THE FREE STREAM VELOCITY 

* multiplication 

*• ' exponentiation 
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6.0 EXAMPLE PROBLEMS 


6.1 INPUT-DATA LISTINGS 


EXAMPLE PROBLEM NO, 1 * MULTIPLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 


VZ RUN T5«589,TRW,10Q1.33D3A,1DQ1,C,5.1 COMEZ TRW 

V PLT . 

?N MSG FILE «E3. T 4 PE 1 FH02 3 FSTRN 1 

V ASG X»*1C202 

V A5G F 

9 XQT CUR 
TRW X 
ER5 
PEF x 


I N X 
TRI X 

V XQT NSURF - 

example problem no, i - multiple surf ac e analysis caPabJUTY demonstration 

Task 702. PROJECT 33Q3A, MJO 147033, A E RQ D YNAMt C ANALYSES ANh DESIGN 
SU0SONJC-PLD W LIFTING SURFACE ANALySlS, TR W PROGRAM NO, HA|)1CB INSURF) 

A,V.GOMEZ/ 5 JULY 1972 

* INPUT 


Nw]NG*21 NFUS-1, NVTA[L 3 ~2, 

MV.'lNG*lr 

NSS (1 j *3, NCS(1)*2, NFLC< 1) e 28 , NFuC<6> = 4, NFLC(U>*1, 

X(l> 3 3*30,. Y«U®0.|40.#140., Z11) =2*0 « *-17,*33 , 6<1 *"2*4.,-1,, XOCR<ll*3*i»r 
Cd)* 2*4 q,,10,. XOc<1»1>*0.,1,i FL4Pc<l)*3*0.30. TA8e<t>»3*0,Q6, 

FLAPDJ<D» 4 0) , AIlDJ( 1,D«-20, its. , wFLAPl<U«0, ,^PLlP2Il)*4o,,w' r LAP3Il)*i4o., 

MhTaILcIi 

NSS(2)«3, NCS<2I*2, NFLG(2)=8, NFLG<Z)s3, NFL5<12 )b 1, 

X( 4 ) =2*150 i • Y(4)*Om 40., Z C 4)« 2*-2Q,, eI4>*2*-2, ( X0 C R < ♦ > *2*1, , c< 4 >*^0 -i20«r 
XOCl1»2)*0-,1., FLAPc< 4)=2*10 ■ , T ABc( 4 )=2 »3 , , 

FlAPDJ(2)*-30i . WFLAP1<2>*0.<wFUP2<2>Mq,,ljFLAP3I2)*4d,, 

MFUSELul* 

NSS(3)*7* NCS<3 )*2» NFLGC3)=2, NFLG<8) «4, 

X<6 >=2*-5C . , Y<6>*2*0., Z<6 >*0 n-20 * * E<6>«2*0,, XqCR ( 6 >*2»0 . , C < 6 ) *80 , i 200 . , 
XOC(1,3>*0.,1., 

MVTAIL*1 • 

NSS(4)»9i NcS<4>*2, NFLC<4)«=3, NFLG<9>*4 i NFLGU4>*1, 

X(8)*2*15o.j Y<8>a2«40,, Z<8)■-10,,-4Q , . E {B>=2*U., XOCR<8>*2*11* 

C(B)*25.,10. < XQO (11 4 ) vQ ,, i,, FLAPC<B >=2 *o.S, T A9C< 8 ) *2*0.10# 

FUAPDJ(4)« 3Q., wFLAPl<4)*0,,WFLiP2(4)*30,»WFLAPiI4>a30., 

NaCELE.1, 

NSS(5)»12, NCSI 5 J *2 r NFLGt5)*2, NFlG(10)*6, 

X(10)«3*-30., rtlO)*3MG,, Z<lOJnO.»0.'-lOt# EUOJ*3*0»» XOCR<ID>»>*Dn 
c<io)«30., 2*io t . xac<i,»)*o,.ii» 

XCGKa.Q, «EFC*32,601, REFa»20O,O, REFS*82 QO,Oi 

KT2*8, NFLCU9>*1> NJDB = 1, A LF A * 10 ., MAcHN=D,2, NS0LV*12»0i 


SEND 

EXAMPLE PRO0LEM NO, 1 . MULTIPLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 


5 INPUT 

NW[NG*2» NFUS«0, NYTaIL s C. NFLGU9)*0, NS0LV*1,1» 1.2, FLAPQU* 3D,,-10|» 


NFLGI1 )«14 .4 , 

SpNo 

*ENOJOB8 


v X&T TRWPLT 
KUNIT ■ 8 
ICCOMP* 0 
NTRAN * 0 
IPRINT* 0 
hTYPE * 0 
NOFSCL* 1 

ISCALY ‘ 1*lri»l»1.1,1.1,1,1 
NXL = 24 
NXR s ?4 


NYL s 24 
NYH = 24 


NPOsNl 3 6DC, 950 
HPOSNZ ■ 600, 925 
NP0SN3 s 600* 900 
NP0SN4 = 600, 50 

ANN0T1 |Q s example PRO0, 1 ■> MUlT iple-sjrface 

ANN0T2 3 ID ' CAPABILITY DEMONSTRATION RUN 
ANN0T3 « ID = A.GOMEZ/ 5 JULY 72 

ANNOT A • ID = 


CHaRSZ = 1.0,1.0,1.0. l.c 

TITLE = ID * [50M E TRj c PROJECTION Of LIFTING SURFACES 

XLA8EL = 10 « HDRI20NTAL AX15, SEMISPANS 

YLABEL = ID ■ VERTICAL AXIS SEMISPANS 

XHI= 1.5 

XLOs-l.V 


YHI= 1.5 

ylo=-i. : 

plot = 2,1, 3,1, ENDLST 
FNdPLT 
anotsv = 0 

NOaDV 3 1 

PLOT s 5,1. 6,1, ENDLST 
ENOPLT 
MOAOV 3 1 

PLOT = 2.2, 3,2, ENDLST 

emqplt 

NDAOV = 1 

PLOT * 2,3i 3,3, ENDLST 
ENQPLT 
ffJOFlL 
nOadv ■ l 

PLOT e 2,1, 3,1, ENDLST 
ENQPLT 
NQaDV » 1 

PLOT * 5,1, 6,1, ENDLST 
f.NOPLT 


ORIGINAL PAGE IS 
OF POOR QUALITY 


GENERAL NOTES: 


1. 7=7/8 PUNCH 

2. COMMENTS ARE PRINTED IN "ITALIC TYPE " 

3. DASHED’LINES INDICATE THE START OF A NEW OUTPUT PAGE ( 

4. BROKEN-SOLID-LINES INDICATES OUTPUT HAS BEEN EDITED ( - 


39 PmCHED-CARDS INFLIT DECK 
REQUIRED FOR XQT NSVRF 


120 PVNCHED-CARDS INPUT DEC}', 
REQUIRED FOR XQT TRWPLT 
(PLOT-OPTION) 


) 

) 
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C 





6,1 INPUT*DATA LISTINGS (COKTINUED) 


NOaDv ■ 1 
PLOT * 2,2 
ENOPLT 
NOaDv * l 
PLOT * 2.3 
ENDPLT 
F.NDPIL 
NOADV • 1 
PLOT « 2,1 
ENDPLT 
MOaDV ■ 1 
PLOT t 5,1 

enoplt, 

NOADV ■ 1 
PLOT * 2,2 
F.NDPLT 
NQADV * 1 
PLOT « 2,3 
ENDPLT 
ENDFIL 
NOADV ■ 1 
PLOT a 2,1 
F.NDPLT 
NOADV » l 
PLOT = 5.1, 
ENDPLT 
NOaOV * 1 
PLOT « 2,2, 
ENDPLT 
NOAOV * 1 

PLOT a 2,3 
ENDPLT 
F.NOF IL 
NOAOV * 1 
PLOT a 2,1 
ENOPLt 
NOADV a 1 
PLOT * 5,1 
ENQPLT 
NOAOV ■ 1 
PLOT * 2,2 
ENOPLT 
NOAOV » 1 
PLOT « 2,3 
ENOPLT 

endfil 

NOAOV » 1 
PLOT « 2,1 
ENOPLT 
NOAOV ■ 1 
PLOT c 5,1 
ENOPLT 
NOAQv 8 1 
PLOT ■ 2.2 
ENOPLT 
NOAOv a 1 
PLOT * 2,3 
ENOPLT 

Endfil 

NOADV * 1 
PLOT * 2,1 
ENOPLT 
NOADV 3 1 
PLOT s 5,1 
ENDPLT 
NOAOV 3 1 
PLOT ■ 2,2 
ENOPLT 
NOAOV ■ 1 
PLOT a 2,3 
ENDPLT 
ENDFIL 
ENDRUN 
7 EOF 


3.2, ENDLST 

3.3, ENDLST 

3.1, ENDLST 

6.1, ENDLST 

3.2, ENDLST 

3.3, ENDLST 

3.1, ENOLST 

6.1, ENDLST 

3.2, ENOLST 

3.3, ENOLST 

3.1, ENDLST 

6.1, ENDLST 

3.2, ENDLST 

3.3, ENDLST 

3.1. ENDLST 

6.1. ENOLST 

3.2. ENOLST 

3.3. ENOLST 

3.1, ENDLST 

6.1, ENOLST 

3.2, ENDLST 

3.3, ENOLST 





6.1 INPUT-DATA LISTINGS (CONTINUED) 


EXAWPui PftOBuM NO. 2 - StN^Lt SURFACE A^AL^lS CAPABILITY OImONSTRATIQN 


VZ RUN t34S89,TRK,1Q02,33Q3A,1QQ2,C,3,1 GOMEZ TRU 

vN MSC FILE REQ. TAPE 1 FH432 3 FSTRN 1 

V ASC X«410202 
7 ABC F 
v PIT 
7 XQT CUR 
U’V, x 


&r 5 
P r - F \ 


1M X 


7 XQT I$URF 

example problem no, 2 - single surface analysis capability demonstration 

Task T02, PROJECT 3303*, MjO 147033. AgflODYNAMjC ANALYSIS ANn DESIGN 
SuaSONjC-FLOw LIFTING SURFACE ANALYSIS, TRy PROGRAM NO, HA010B (NSURF) 

A,V.GOMEZ/ S JULY 1972 

* INPUT 


NsS = 2, NCS*2, IFL6<2 )bO.16,0i JFLfiI»J.l.4,0. IFLCIai«l, IPLGI101.5, 
X=2»0.0i Y*0,D,3a.O# Z«2»a,0i E*2‘0,0# C c i5,0,5,0# XDCR«0.25, XOC*OiOi1iO< 
^FLAPlsO., NfLAP2°0i62S. VFLAP3*1,Q, FL*PC*0,2S# WSMDTH"0 i23, 

PNECF*i, LDRAG*i, CLEaNF = o»OQ35i NjO0>x* MACHN«|) t 2 # ALFA»P, 0ELALF"'12i 
FLAPDJOC.O. AILDJ =10,0. -15,01 
KT2«8, IFLGril)*4*i t 

Nj0BL«9, WCL*1» 0..0.23.0,5.0,73.1,0,1,25.1(9.1,7112,Q, 

IEND ___ 

v XQT TRWPiT 
KUNIT * I 
ICCOMP» 0 

NTRAN ■ o 

1 PRINT* 0 


NTYPE * 0 
NOFSCL* 1 

iscaly = i#i#i#i,i#i.i#i,i.i 

NXL * 24 
VXR * 24 
NYL » 24 
NYH * 24 

NPOSNi * 600# 950 

NP0SN2 * 600, 923 

NPOSNJ * 6QDi 900 

NP0SN4 B 600. 30 

CHARS* * 1,0. 1.3, 1.0, 1,0 

ANNOU * ID * EXAMPLE PROB ♦ 2 - SJ N&L£-SuRFACE 

annot 2 = io ■ capability demonstration run 

ANN0T3 * 10 • A,GOMEZ/ 5 JULY 72 

ANN0T4 * 10 » 

TITLE * 10 * LIFTING SURFACE PUNFORR GEOMETRY 
XLABEL ■ 10 ■ HORIZONTAL AXIS, SEMISPaNS 
YlABEL * 10 • VERTICAL AXIS SEMISPANS 


14 VUNCKED-CARDS INPUT DECK 
REQUIRED FOR XQT TSURF 


30S PUNCHED-CARDS INPUT DECK 
REQUIRED FOR XQT 7RWPLT 
(13 FIGURES) 




XLO «-l,l 
XHI * 1,1 
YLO o -.5 
YHI * 1.7 
PLOT 8 1,1. 
ENDPLT 
ANOTSV = 0 
NOaDV* 1 
PLOT * 1,2. 
ENDPLT 
NOAOV* l 
PLOT « 1,3, 
ENDPLT 
NO A DV 8 1 
PLOT * 1,4, 
FNOPLT 
TITLE " ID 
YLO 8-1.1 


2.1, 4,1, ENDLST 

2.2, ENDLST 

2.3, ENDLST 

2.4, 3,4, ENOLST 

= I Sojie TR ] C PROJECTION OF WING PlANFQRM 


YHI » lil 

PLOT * 1,5,' 2,5. ENDLST 
ENDPLT 
I40ADV • 1 

PLOT = 3.S, 4,5, ENDLST 

ENDPLT 
NOADV * 1 


PLOT 

1 1,6, 2,6i 

ENOLST 

ENDPLT 



NOADV 

* 1 


PLOT 

8 1 # 7i 2,7i 

ENOLST 

ENDPLT 



PLOT = 

5.5, Z,5* ENOLST 


ENDPLT 
noaov * i 

PLOT = 6,5, 4,3, ENOLST 
ENDPLT 
NOAOV = 1 

PLOT * 3,6, 2,6, ENOLST 
ENDPLT 
NOADV e 1 


FIGURE ft J > PlANFORM VIEW OF WING 


FIGURE ft ?- 3 ISOMETRIC PROJECTION OF WING 


PLOT s 3,7. 2,7, ENDLST 
F.NQPLT 

F.NOFIL _ 

4NNQTl = 10 s EXAMPLE PROB, 2 - SINGLE-SURFaCE 
ANN0T2 = lo 5 CAPABILITY DEMONSTRATION run 
ANN 0T3 s 10 = A.GOMEz/ 5 JJLy 72 

ANN0T4 = 10 * 

CHARSZ = 1.0# 1.0, 1.0, 1,0 

TITLE = 10 = CHORDWISE PRESSURE DISTRIBUTION <CPL-CPU> 

xlabel 1 id « horizontal distance# choros 

yLABEL » JO « DIFFERENTIAL pressure coefficient 

XLO * 0,C 

XHI 3 3.2 

YLO **3.0 

VHI = 9.C 


CADO = 0.0, 

0,0 


PLOT s 1,1, 
ENDPLi 

MOADV « 1 

2,1. 

ENDLST 

CAOD = J.2, 

0.5 


PLOT « 1,2. 
FNDPLT 

2,2, 

ENDLST 


FIGURE ft 3> CHORDWISE PRESSURE DISTRIBUTION 

I 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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6.1 INPUT-DATA LISTINGS (CONTINUED) 


NOAOV * 1 


CAOO « O.A, 

1.0 

PLOT i 1,4, 

2,*, ENQLST 

ENDPLT 


NOAOV • 1 


CADD « O.Ai 

1,3 

PLOT s 1,6, 

2,6, ENQLST 

EnDplt 


NOAOV * 1 


CADD * 0,B. 

2,0 

PLOT = 1i8, 

2,8, ENqlST 

EMDPLT 


NOAOV F 1 


cado * i.o. 

2.5 

PLOT = 1,9. 

2,9, EnOlST 

ENDPLT 


NOADV » 1 


CADD = 1.2, 

3.0 

plot * 1,11 

,2,11.ENDLST 

ENDPLT 


NOAOV * 1 


CADD « 1.4, 

3.3 

PLOT a 1,13 

,2,13,gNOLST 

ENOPLT 


NOaDV 8 1 


CADD “ 1-S, 

4.0 

PLOT « 1,15 

,2,15,£NOLST 

ENOPLT 


NOaDV • 1 


CAOO • 1.8. 

4.3 

PLOT * 1.16 

,2,16,eN DL ST 


ENOPLT 

ENOFlL _ 

TITLE = 10 ■ SPAM AIRLOAD DISTRlgUTION 
XlflQEL * 10 * HORIZONTAL OIST A NcE. SEMISPaNS 
YLabEL » 10 1 SECTION lift coefficient cl 
CADD • O.OiOiO.Q.0,0.0,0*0,0»Q»Q»Q,O«O,Q,QiQ»O 
XLO *-1,2 
XHI » 1.2 
YHl = 3.0 
YLO » -1.0 

PLOT » 1,1, 2.1. ENqlST 
EnDplt 

YLABEt * to * SECTION INDUCED DRAG COEFFICIENT col 
PLOT * 1.1, 3,1. ENDlST 


FIGURE it 4j SECTION LIFT COEFFICIENT 


I 

FIGURE if S, SECTION INDUCED DRAG COEFFICIENT 


ENDPLT __—...*- 

TLABEL " 10 ■ SECTION PITCHING MOMENT COEFFICIENT C*6C j 

Ih? " J 1 ^ 5 FIGURE H 6. SECTION PITCHING MOMENT COEFFICIENT 

YHi « i.o i 

PLOT * 1.1. 4.1. ENDLST l 

ENDPLT » 

EM0F1L __ 

TITLE - 10 * LINEAR SOLUTION - SPAN AIRLOAD DISTRIBUTION 

xlabel = id * horizontal distance, se^ispans 

YLASEL - 10 « SECTION LIFT COEFFICIENT CL 
XLO « -1,2 


XHI ■ 1.2 
YLO v -1.5 
YHl « 30 


PLOT » 

1,1, 

2 r 1 , 

ENDLST 




ENOPLT 




FIGURE J 

?> SECTION LIFT COEFFICIENT ARRAY 

NOADV * 

1 





PLOT « 

1,2, 

2,2. 

ENDLST 


(LINEAR SOLUTION) 

ENOPLT 







NOAQV « 

1 






PLOT ■ 

1.3, 

2,3, 

ENDLST 




ENDPLT 







NOAOV » 

1 






PLOT » 

1,4, 

2,4 , 

ENDLST 




ENDPLT 







NOADV * 

1 






PLOT » 

1,5, 

2.5, 

ENDLST 



ENDPLT 






NOAOV * 

1 





PLOT ■ 

1,6, 

2,6, 

ENDLST 



ENDPLT 






NOADV = 

1 





plot • 

1,7, 

2*7, 

ENDLST 



ENDPLT 






NOADV 8 

1 





PLOT = 

1,6, 

2,8, 

ENDLST 



ENOPLT 






YLABEL = 

JO 

* sec 

TION INDUCED DRAG COEFFICIENT CD I 




PLOT * 

1,1, 

3,1, 

ENDLST 




ENDPLT 







NOAOV = 

1 






PLOT = 

1,2. 

3,2, 

ENDLST 




ENOPLT 







NOADV * 

1 



FIGURE # 

SECTION INDUCED DRAG COEFFICIENT .ARUM 

PLOT • 

1,3, 

3,3, 

ENOLST 



ENDPLT 





(LINEAR SOLUTION) 

NOAOV = 

l 






PLOT * 

1, 4 r 

3,4, 

ENDLST 




ENDPLT 







NOADV - 

1 






plot = 

1,5, 

3,5, 

ENDLST 




ENDPLT 







NOADV a 

1 






PLOT a 

1,6, 

3,6, 

ENOLST 



ENDPLT 






NOAQV = 

1 





PLOT a 

1,7, 

3.7, 

ENDLST 



ENDPLT 






NOADV = 

1 





PLOT a 

1,6, 

3.8, 

ENOLST 




ENDPLT 

YLABFL = 10 ■ SECTION PITCHING MOMENT COEFFICIENT C^AC 
YLO a -1.5 
YHl = lO 

PLOT c 1,1. 4,1. ENDLST 
ENDPLT 
NOADV # 1 

PLOT 3 1,2, A,2, ENDLST 
ENDPLT 


FIGURE it 9 t SECTION PITCHING MOMENT COEFFICIENT ARRAY 
(LINEAR SOLUTION) 

* 


6-4 





5.1 INPUT-DATA LISTINGS (CONTINUED) 


\ 


NOADV ■ 1 
PLOT a 1,3, 

4,3, ENOLST 

endplt 

NOADV » 1 
PLOT a 1,4, 

4,4, ENOLST 

ENQPLT 

N 0 A 0 V * i 
PLOT = 1,5, 

4,5, ENDLST 

ENQPLT 

NQAOV « 1 
PLOT e 1,6, 

4,6, ENDLST 

FNDPLT 

NOADV * 1 
PLOT - 1,7, 

4,7, ENDLST 

endplt 

NOADV « 1 
PLOT S 1.8, 

4 i 8. ENDLST 

Endplt 

YLa8EL» ID = 

FLAP/AIL NORMAL FORCE COEFF 

YLO * -2.0 
YHI - 4,0 
PLOT a 1.1, 

5,1. ENDLST 

ENDPLT 

NOADV a 1 
PLOT * 1,2, 

5,2, ENDLST 

FNDPLT 

NOADV a 1 
PLOT = 1,3, 

5,3, ENDLST 

ENQPLT 

NOADV « 1 
PLOT * 1.4, 

5,4, ENDLST 

FNDPLT 

NOADV r 1 
PLOT * 1,5, 

5,3. ENDLST 

ENDPLT 

NOADV » 1 
PLOT * 1,6. 

5,6. ENOLST 

endplt 

NOADV a 1 
PLOT = 1,7, 

5,7, ENDLST 

endplt 

NOADV * 1 
PLOT a 1,8, 

EnDPlT 

ylabel - id s 

5,8, ENDLST 

FLAP/AIL HORIZ FORCE COEFF 

PLOT e 1,1, 

6,1, ENDLST 

endplt 

NOADV • 1 
PLOT * 1,2, 

6.2, ENDLST 

endplt 

NOADV » 1 

r 

PLOT * 1,3, 

6,3, ENOLST 

FNDPLT 

NOADV 3 \ 

PLOT = 1,4, 

6,4, ENDLST 

ENDPLT 

NOADV a 1 
PLOT a 1,5, 

5,9. ENDLST 

ENDPLT 

NOADV ■ 1 
PLOT * 1,6, 

6,6, ENDLST 

endplt 

NOADV a 1 
PLOT ■ 1,7, 

6,7, ENDLST 

FNQPLT 

NOADV * 1 
PLOT a 1.0, 

6,8, ENDLST 


ENDPLT 
YLA8FL= ID 
YLO = '1.5 
YHI « 1*0 
PLOT = 1.1 
ENQPLT 
NOADV * 1 
PLOT * 1,2 
FNQPLT 
NQADV » 1 
PLOT • 1.3 
F.NOPLT 
NOADV » 1 
PLOT « 1,4 
FNDPLT 
NOADV a 1 
PLOT =1,5 
ENQPLT 
MOAOV • t 
PLOT = 1,6 
Endplt 
NDADV * 1 
PLOT = 1,7 


' FLAP/AIL HINGE moment COEFF chf 

7.1, ENDLST 

7.2, e n DLST 

7.3, ENDLST 
7,A, ENDLST 

7.5, ENOLST 

7.6, ENOLST 

7.7, ENDLST 


ENDPLT 
NOADV • 1 


PLOT s 
ENQPLT 
YLA8EL 
XLASEL 
XLO = 


1,0, 7,6, ENDLST 

* 10 « WING AIRLOAD COEFF1C IENTS 
= 10 a WING ANGLE OF ATTACK, ALFA 
15.0 


XH1 * 25,0 
YLO = -1,0 
YHI = 3,0 

PLOT a 1,9, 2,9, 3,9, 4,9, ENDLST 
F.NOPLT 
EIJOFIL 
FNDRUN 
9'F.OF 


FIGURE M 10, FLAP NORMAL FORCE SECTION COEFFICIENT ARRAY 
(LINEAR SOLUTION) 


FIGURE 8 11, FLAP CHORE FORCE SECTION COEFFICIENT ARRAY 
(LINEAR SOLUTION) 


FIGURE 8 IS, FLAF HINGE MOMENT SECTION COEFFICIENT AitfaY 
(LINEAR SOLUTION) 


FIGURE ft 13, WING AIRLOAD COEFFICIENTS 
(LINEAR SOLUTION) 


t 
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6,1 INPUT-DATA LISTINGS (CONTINUES) 


EXAMPLE PROBLEM NO. 3 - XB*7C AjRPlANE SUBSONIC AEMOOYNAMjC ANALY«I» 


VI RUN T549B9,TRW,1003,3303a,1QC3,C. 5,1 G0M£Z TRW 

7N M5G FILE REQ. TAPE 1 FH432 3 pSTRN 1 

V aSG XdA1u202 
v ASC f 

V PIT 

7 XQT CU* 

TR* A 
lrs 

met X . 

Iw i __ 

V XGT NSURF ~ 

EXAMPLE PROBLEM NO, 3 - X0-7O AlHPLANE SUBSONIC AERODYNAMIC ANALYSIS 
Task 72?' PROJECT 3303A » MJD 147Q33, AeROdYNAKjc ANALYSIS AND DESIGN 
SUBSONIC-FLOw LIFTING SURFACE ANALf515, TRW PROGRAM NO, HAQ1DB <N^URF> 

A.V.GOMEZ/ 5 JULY 1*72 

MNPUT 

NL']NC*3,NVTAJL*-1, CScaL£*0»Q83333, C0L0CP*0« 8 0* 

MU INC s1» 

M5S(11=7,< kJ CS(l3»2.NPLCtiJ a Z2*NFL5U>"6 l XOC<Xil>-D»0ili0* 

X( i)=-50,5#«50,5»»&0,B,-50,5*3*0,0* XOCRtl)«7*1,0, 

V (13 =0,, 57.27,1*4,54,17l,8i.229,QS*4 qq,89,629,97, 

7(1>*2*0i0*0.441,0,882,3*0.0. 

£11>=2*0.0,-0«5,-1.0.-1.5,-3,0.-3,0, 

C<l>=l4i3,g8<l2*l»5l8r1110.456,984.394,9 q8, 832,33a» A 47,2 8 «4, 

MCANRObi 

NSS<2 ) t 9,NCS(2 )*3,NFLC(2)*6,NFLG17 jaZ.XOCtl.23*0,0,0,3,1,0, 

XI3)=-1723.0,-1723.0. XOCR(8)*0•55,0«3l532. 

V(fi3 *0,0,171.81, 

Z<8)«-73.0,-73,0, 

E< 8 > *2*310, 

Cl6 3*249,5,96,71, 

7oc<1,8 > 5 Q,a,g,0,0,08816, 
zac< l,9>3,0,O,O < O r O*D8BlA # 

MFUS=1, 

NSS<3>*ll,NCS<J>=2,NFLCt3)*2.NFLGU3*3,XOcU'*> B QfO»1.0, 

X(10)*-1463.u 8,-1312,010, Yt10J*0,,5?•2?, 2<101*2*0,0»EUD3*2*0•0» 

C(10)*74D,Di64g,0iXaCR(10)=1.0,l,0,X0C{l,3)*C.,1,0, 

MFJNS*1, 

NSS(4 > * 13 t NCS(4)«2 I NFLG(4)*3, NFLCl9)=2, XOC(1,4]«0,0,1,0, XOCR{12)*2*1 1 0, 
XC12)*-9C.5,3A.a, Y< I2>*2*l7l,81, Z< 12 1 3 Q.882,-l7i, «1, EU2 3 *-l ,0,-1,0, 

C1123*328.1313,B3,0 7, 

XCG*-725,9, 2CC"5«5,YCC*0.0, ReFS«906883,Q, R£fC*942,38, ReFB*1260.0, 

NJOB*l, ALFAS10. MACHM= 0,20, N&0LV*1,1#1,2<1<A, 

KT2* 8 , nflgu?)* 1, a, 

*END 

JENDJObS _ 

V XQT TRWPLT 
KUNIT • 8 
ICCOMP* C 
NTRAN ■ 0 

I PR]NT* 0 
NTYPE ■ 0 
NOFSCL* 1 

ISCALV 3 1,1,1,1*111.1,1,1,1 

NXL * 24 

NXR *24 

JiYL ■ 24 

NYU = 24 

NP05N1 3 600, 950 
NP0SN2 3 600, 925 
SJP0SN3 3 600* 900 
NP0SN4 3 600, 50 

ANN0T1 3 10 = EXAMPLE PROB, 3 - XB-7C airplane 
ANN0T2 3 ID 8 SUBSONIC AERODYNAMIC ANALYSIS 
ANN0T3 3 ID * A.G0ME2/ 5 JULY 72 

ANN0T4 3 ID 3 
CHARSz 3 1,D»l<Qi1.0*1■0 

TITLE * ID 3 ISOMETRIC PROJECTION OF LIFTING SURFACES 
XLABFL 3 ID 3 horizontal AXIS, SEMISPaNS 
ylabel c id 3 vertical axis semispans 

XHI= 2.C 

xlo= - 2 .: 

YHI 3 2.0 
YLO- -?.0 


PLOT * 2,1. 
EMDPLT 
anotsv = 0 

NOADV 0 1 

3*1, 

ENOLST 

PLOT s 5.1. 
ENDPLT 

NOADV * 1 

6,1, 

ENOLST 

PLOT * 2.2. 
ENDPLT 

MDADV * 1 

3.2, 

ENdLST 

PLOT = 2.3, 
ENDPLT 

FNDFIL 

NOAOV « 1 

3*3. 

endlst 

PLOT c 2,1, 
ENDPLT 

NOADV 3 t 

3,1. 

ENDLST 

PLOT s 5,1, 

fndplt 

NQADV * 1 

6,1. 

ENDLST 

PLOT w 2,2, 
ENDPLT 

NOADV = 1 

3.2. 

ENDLST 

PLOT = 2,3. 

fndplt 

e.NOFlL 

SIOADV « 1 

3.3. 

ENDLST 

PLOT * 2.1, 

LnDplt 

NOAOV * 1 

3,1. 

ENOLST 

PLOT = 5,1. 
FNQPLT 

NOAOV 3 1 

6,1, 

ENDLST 

PLOT = 2 , 2 , 

V2, 

ENOLST 


35 FVNCEED-CAEDS INPUT DECK 
PEQUTEED FOR XQT NEL'RP 


108 PUNCHED-CARDS INPUT DECK 
REQUIRED FOR XQT TRWPLT 
(PLOT OPTION) 


1 


ORIGINAL PAGE IS 
OF POOR QUALITY 




6.1 INPUT-DATA LISTINGS (CONTINUED) 


NQ4DV ■ 1 


PLOT ■ 2,3, 3,3# 

ENDPLT 

F.MDF IL 

N04DV ■ 1 

ENDLST 

PLOT a 2,1# 3,1, 

ENDPLT 

NOADY * 1 

ENDLST 

PLOT » 5,1, 6,1. 
ENDPLT 

NOAOV. a 1 

ENDLST 

PLOT = 2,2, 3# 2, 
ENDPLT 

WOADV 5 l 

ENOLST 

PLOT * 2,3. 3,3, 
F.NDPLT 

emofil 

NOaOV * 1 

ENDLST 

PLOT « 2,1. 3*1, 
F.NDPLT 

NOADV * 1 

enolst 

PLOT s 5,1# 6 #1, 
F.NDPUT 

MOADV » \ 

ENDLST 

PLOT « 2,2# 3 # Z # 
endplt 

NOADv * 1 

ENDLST 

PLOT * 2.3# 3,3, 
ENDPLT 

ENDF!L 

NOAOV « 1 

ENDLST 

PLOT a 2,1. 3.1# 
F.NOPLT 

MQADv ■ 1 

ENDLST 

PLOT s 5,1# 6#1. 
ENDPLT 

NOaDV * 1 

ENOLST 

PLOT * 2,2 1 3#2# 
ENDPLT 

NOADV B l 

ENDLST 

PLOT = 2.3# 3 # 3, 

Endplt 

f.nofil 

FnDRUN 

EOF 

ENDLST 


EXAMPLE PROBLEM NO. a - THICK ylNG PnOgLEM AERODYNAMIC ANALYSIS 


vz run T54509,TRy,ioa4,33c3A#iOO4#c#2#i cqmez trw 

VN MSG file NEO. Tape 1 FH432 3 FSTRN 1 

v A5G y=AlG202 
v ASG F 
7 PIT 
V XQT CUP 
Tfl* k 
LRS 
P£F * 

\ K A __ , 

7 EXAMPl!e U PP09L6M no. 4 - THICK WING PROBLEM AERODYNAMIC ANALYSIS 
T/5K T02i PNaUECT 3303A# MUO 147033. AERODYNAMIC ANALYSIS and DESIGN 
SligSONlC-FLOW LIFTING SURF A CE ANALYSIS, ^^ E ^ 0 | M *2 L Y°i972 D1Dt3 ^ 

$ INPUT 

NUING*3. NVTAH a O, NFUS’O, CQL0CP=0,75, 

NFLGU >0*10# NFLGt6)*3*S. NFLG<l9) 3 1.2, 

NCSr2*l0.2. NSS*2.4#6, 

XQCll.ll* .001 .05, .10. »15, *20* .30# .40# 
xorCi.?)= i00i .05, *10* .15# |20, «J0. .40# ,60# i D 0# 

= .0-0444^,05633..06682,.07172# ,07302# f Q72M t .057J4, ,03279#^, 


60 

60# 


i a 0i 

BO, 


1 . 0 , 

1 , 0 , 


Sc i:i -:s :S 4 U 3 ;: 55 m 5 :: 56688 (1 57172 #. Q 7 5 o 2 #.jw, 

7DC< 1.3 > = .0,-.04443 #-.05853,-.06682.-, 07172,-,0?50Zf, 07254#^ 09704^,05279 #,0» 

Z0CU#4> = .0^,04443,-.05053.-,06602,-.07172,-.07&02r-,07254,-,09704. .0^279, ,0 , 

X 


DrO# 

o.ia# 

o.o, 

10 , 10 , 

0 , 0 . 


o.o, 

Y = 0 i 1 u , 

Z - 0,0. 

c. * i, i" 

F = D . 0 > 

7 . = 0.0# 0,0. 
FLATP- 1* 
X0C<1*3> S .00. 1 
7oCU,51s.O, .0, 

Z0C<1,61 a ,0• <0* 
X< 5> = n,0, 
v(5> = 0.10» 

7(51= 0*0. 

C(5I- 10,10 * 

& ( 5 ) * D # v , 
XcC=0.0, PEFO*l0 
NjOa=l# *LF i= 10, 

send 

SENDJOBS 
? XQT TRWPLT 


25 PUNCHED-CARDS INPUT DECK 
REQUIRED FOR XQT USURP 


0. 


3# R£FB = 2D.0i R£F5*2D0.0, 
MACHHsO.O, N50L v *1,2.3.3 


KUN1T * 

!CCOMP# 

mthan “ 

lPRINT* 
NTYPE a 
NOFSCL* 
I5CALY - 
NXL = 24 
>JXR = 24 
rjYL = 24 
riYH ■ ?4 
NPOSNl s 


n 

0 

c 

0 

0 

1 

= 1 , 1 #l# 1 .I# 1 . 1 #i#ii 1 


6 OG 1 950 


32 PVNCHED-CARDS INPUT DECK 
REQUIRED FOR XQT TRWPL7 
(FLO? OPTION) 
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6,1 INPUT-DATA LISTINGS (CONTINUED) 


NP0SN2 * 600i *23 
UP 0SV3 » 600> too 

NP0SN4 - 600r 50 

CHARSZ * 1,0. 1.0, 1.0. liO 

ANN0T2 * 10 • 3UBS0NJC AeftOoYNAMlC ANALYSIS 

aNNOTj * ID • SUBSONIC AEROUyNAM IC ANALyS (S 

ANN0T3 = 10 « A,COMEZ/ 5 JULY 72 

ANN0T4 * 10 * 

CNARSZ * 1,0,1*0.1,0,1.0 

TITLE * ID * ISOMETRIC PROJECTION OK LIFTING SURFACES 
XLABEL s ID * HORIZONTAL AXIS, SEmISPaNS 

ylabel 8 to • vertical axis semispans 


XLO r -1,0 
XHI * ‘ 2,0 
YLO * -1.0 
YHI 3 2.0 

XL0 = -2»0 

XHI s 3.0 
YLO=-2,0 

YHI - 3,0 



PLOT * 2,1, 
FNDPLT 

4N0TSV = o 
NOAOV 3 1 

3,1, 

ENDLST 

PLOT 3 5,1, 
ENOPLT 

NOAOV ■ 1 

6,1, 

ENOLST 

PLOT « 2.2, 

fndplt 

NOAOV • 1 

3,2, 

ENDLST 

PLOT a 2,3, 
ENOPLT 

ENDFIL 
nDaOv ■ l 

3,3, 

ENDLST 

PLOT » 2,1, 
ENOPLT 

NDaDV ■ 1 

3,1, 

ENOLST 

PLOT * 5.1, 
FNDPLT 

NOAOV 3 1 

6,1, 

ENOLST 

PLOT * 2,2. 
F.NDPLT 

NOADV ■ 1 

3,2, 

ENOLST 

PLOT » 2,3, 

endplt 

3,3, 

ENDLST 


endftl 

FnDRUN 

7E0F 


EXAMPLE PROBLEM NO, 3 - DEBUG-PRINT OUTPUT OPTJONS DEMONSTRATION 


PI RUN T34S89,TRW.1003,3303A,1003,C,1,1 GOMEZ TRW 

*N MSG FILE REQ, TAPE 1 FH432 3 FSTRN 0 

7 4SC X*41Q202 
v XQT CUR 
TRW X 
ERS 
IN X 
TRl X 

7 XQT NSURF --™ 

Example no .5 - oebuG-dump demonstration/ nflgi2oi» o 

• T a $K 702, PROJECT 3303 a, MJO 147q33, AERODYNAMIC ANALYSIS AND 0ES1GN 
SIJbSONIC-FLOW lifting SURFACE ANALYSIS, TRW PROGRAM NO, HA010B <NSURf} 

A.v.GOMEZ/ 5 JULY 1*72 

S INPUT 
NWlNG=i. 

N5S(1 > * 2, NCS(l)*2i NFL6(1)*3, NfLG<6>=2, NFLG<U>»1i 

X f l ) = ?«C ♦, Y <1, 10 . » ZU)»2*0., E<U-2*0i, C<l } °2*l0.f XOCR 1 1 ) a 2*Q • 25, 
X0CU)*Q, ,1 i • FLAPOJdl- 10,. NJOBel, ALFA 3 5, MACRN* 0., NS0LV«1’1, 
NFLG(2 ->= q, 

FEND 

EXAMPLE NO.5 - OE0UG-DUMP DEMONSTRATION/ NFLG(2Q>» 1 
F1NPUT 

NFLC(?:>= 1, 

FEND 

example no,5 - derug-oump demonstration/ nflg<20 )= 2 

FINPUT 

nflg<2.:> = ?t 


send 

EXAMPLE NO.S - DEBUG-DUMP DEMONSTRATION/ NFLC120I- s 
FINPUT 
NrLG(?C>3= 5. 

&CNO 

EXAMPLE No,5 - DEBUG-DUMP DEMONSTRATION/ NFLGC201 * S 
* INPUT 

HrLG<2?>* 5. 

*ENq 

EXAMPLE no.5 - DEBUG-OUMP DEMONSTRATION/ NFLG(20) 3 16 
*INPUT 

NFLCCJ'jJ- 16, NFLG<17> = 1, 

*e:no 

FENDJOBS 


33 FUNCHED-CARDS INPUT DECK 
REQUIRED FOR XQT NSURF 


V XQT NSURFT 
7 XQT rs'JRFT 
VEOF 


S-; 

OS' -GOB Q 


-p /vGE 

■J AIJJ* 
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6.2 EXAMPLE PROBLEM # 1„ MULTIPLE-SURFACE ANALYSIS CAPABILITY 


SUB SONIl-F LLM* UHLNG SURFACE ANALYSIS PROGRAM HAD LOB 
Ik*» o Y ST tM:i INC., HCUSTON OPEft AT ION S 
r<i>UiTGN, TEXAS <770581 


*»** JOBS INPUT LIST ***♦ 


7 xgT nsurf 

EXAMPLE PRllBlFM NO. 1 - MULTIPLE SukFAlL ANALYSIS CAPABILITY DfcNQNSTR A TI ON 
TASK ?H2i PRCJJECT 3393A, NJCi 14703J, «LK<jUY(**rt IC ANALYSIS AND OfcSIGN 
SUBSUNJC-FLOW LIFTING SURFACE ANAL»>ii, i Km RkOGRAN NO. I N5URF J 

A.V.muMcZ/ b JULY 1972 

♦ INPUT 

Ml*TNG = 2, NFUS=1, NVTAH —2, 

MWlNGU, 

NSSUlUi NC.Sin=2, NFLG l 1J » 28 , NFlo46I-m» nFLG( 1lI=1r 

X!1I=3*3P.» YU )*0.,40. f 140. , Zi II ,U7. ciA3 r E(l1=2*4.,-1., XUCft I 1J = 3* L • « 

CIU= 2*40.,10., XOCi1»II-0*,l*, FlaPlI 11 =J+U. 30 t T ABC ( U =3*0 .OS * 

FLAPOJI11 m 40., A1L0JI1,11=-20*»15. , mFLam!U l=0.,kFLAP2I1)=40«♦WFLAP3U1=140., 
MHT AIL = 11 

NSS12) = 5, NCS(21=2, NFLGI2J-8, NFLcUI=J, nFLuI12>* 1, 

X|4|=2*15°., Y(41=C.,40., 2141= 2*-2J., i. tJ =2*-Z„ , XCCRI4J=2*l., Cl4 )=30.,20., 
XOC ( 1»2> =0 . , 1. « Ft APC ( 41 = 2* 10. , T Aul i**J -2*.> . , 

FLAP DJI 2 ) =-30 ., wl* LMPl 12 1 *0. ,WF LAP2I2 1 = 40 . , WFLAP3 l 2 > = 4H *« 

MfUSFlU, 

NSS(3)*7, NC SI 31=2 , NFLGI31=2» NfLoI&l=4 r 

XI61 = 2*-bO., Y< 61 *2*0 . , ZI6>=0.,-2 l>. , fcIoJ«L*n*i XQCR<61 = 2+0 . , C 16 I =8C . , 200 * , 

xnct 1 , 31 =o.,i. t 

MVTAKU, 

NS$(4J=9, NC SI 4 ) =2 , NFLG141=3, NFLu 1YI=4, h*PcU14l = l, 

X I 8 I = 2* L 5° . , YI0l" : 2*4O., Z < ai =-1°. »-4J . ♦ clbiU*^., XDCR!81=2*1., 

CC81=25.,10. t XOC! L,4>=0.»i.* Fl API 1 o j = ^*0 .>, I ABCl81*2*0 * 10, 

FLA P DJ(41■ 30., mFLAPI(4|=0.,WFLAP2I430.,UFLAP3141 = 30., 

NAC EL E= 1, 

NSSI 51 = 12, NCSI 5)=2 » NFLG I 51 =2 , NPlU11u1=o, 

X! 101»3*-3T . , Y( 10|c3+40. , ZU01 »lU ► ,-iG* i EllOI=3*°.t XQCRUO) = 3*° 

C<101=30.t 2*60., XUCIlfbl-O.tl.a 

XCG=0.0 1 REFC=32.6fil, «£F6=28°.0, KcFh=totDU.U, 

K T2 = 6 ♦ NFLG(l9> = li NJQ8 = L , ALF A=10. , «*LrtN=;).2, NSULV-U*0, 

♦ END 

EXAMPLE PROBLEM NU* 1 - MULTIPLE Simr-MLt ANALYSIS . C AR Abl L l T Y DEMONSTRATION 
♦INPUT 

NVtNG-2, NFU5=0, NVTAIL=0, NfLGUO^u, nSulY = 1,I» 1,2, FLAPDJ= 30.,-10., 

NFL GI 11 = 14,4, 

♦END 

♦ FNOJOBS 

7 XUT NSUftf 


DASHED LINE INDICATES NEW PAGE 


JOQFLAG I 
VALUE 2 8 


8 9 10 11 it 13 14 lb 16 17 18 19 20 

44oi IO1O0O114 


EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP 
ALFA* .0* MACHNO= .0000 ALT ITUOE = ****** 


♦INPUT 

KOUT 

XT 1 

XT 2 

KT3 

L INX 

NW1NG 

NVTA1L 

NFUS 

CQLOCP 

CUT0F1 

CUT0F2 

LFIAP 

GSCALE 

NS S 

NCS 


*6 , 

+ 1, 

♦ 8 , 

♦3, 

♦ 56, 
* 2 , 
“2 r 
*lr 

75CDCCOOE+CO, 

10C000C0E-03, 

29COnoon£-02r 

♦Or 

. L00OO0COE + 0Lr 


♦ 12 , 


+ 2 , 


+ 3, 

* 'j » 

*71 

+9, 

+ 2» 

♦2, 

Ur 

♦ 2 ♦ 


.l50onnoOE+03, 
.lb00OO0OE+03, 
-.irnoOTOTE+OZ, 
.00090000 F +00, 

.oocoonooE+oo, 
. O^OOnoOOE +00, 
.OOOOOOOOE+OO, 
Y 

.op°ooonnE+°n, 

,4O000 r ' f > r 'E+n2, 

.4r»oo000OE+n2, 

.oooooooDe+ofl, 

.OOOOOOOOE+OO, 

♦00000900E+00, 

.000OO000F+0Q, 

z 

-.20000000E + 02, 
l00O^iO0 r >E + 02, 
10000 rt OOE*02, 

.noooo^o^E^oo, 
,0P°O0°OOE + nr>, 
.0009?9°°E + r)0, 
.poomooot + oo, 
E 

-.ZOOOO'iOTF^OIt 

.OC9°MOOE ♦00, 

.oooooo*" at+ 00 , 
.OOOOOonoE+OO, 
.OOOOO'iOOE tOO, 

.OOOOrOO^E+OO, 

.oaonm^ot+oo, 

c 

.30000000E+02, 

.25000000E+02, 

.60000000E+02, 


300QCOP0E+O2, .30uULJUout + 

. 15«OOOOOE*03 , iMjUUuLiOUL + 02 

. 15000000E*C?3» 

,crorooooe^on, 

. OOOfSOOOOE ♦PO, 

.oonooOOOE^OO, 

,onaoonnoE+po, 

.00O00000E+00, 

OOOOOOCOE^OO, .4000uuUUt+U^, 

.40000000E+02, .uuuuuuuOt^OO 

# 4f>0000 OOF+C2, 

.OCOOOOOOE+OO, 

.noonooOOE+oo, 

.COOOOOOOt + CiO, 

.OOOOOOOOE+OO, 

.OCOOOonOE+OO, 

OOOOOOOOE+OO, .OOuy^0UUt+JU, 

- . 200000OOE +02, . GtiJuioOMc + OQ 

-.4000000nE+02r 

.OCOOOOCOE + Ofi, 

,acoonnooE+OO, 

.COOOOOOOE+oo, 

.COOOOOOOE+OO, 

.COOOOOOOE*O n » 

4nflODOOOE+01, .40UUU0uUc + J 1 * 

- .20000000EMO 1, .UJUJULiUOt^OO 

.000000005*0°, 

.OOOCOOOOE+ro, 

.CO0000DAEWOO, 

.COOOOOOOE^OO, 

.CCOOOOOOE+OO, 

.CCOOOOnOE+CO, 

4O00O0C r E^D2, .40jJjyOjc+J2, 

♦ 20nooo0o£*02, . ai/UiiJuuit*02 

.10000000E+02, .jJuyuUUUt+02 

.COOOOOOOE+OO, .OUOOOOOjl+OO 


-.^UUJUUUUt+OZ 
.u^UJUJUUc^OO 
. uUUOLl jUuL + OO 
.guuUOUUOc+OO 
.oUOJUUGUt+OO 
.uuoUOJUUc *00 


. 4^iiUUUUUL^02 
. juUiJuuUlIL^OO 
.cuOjuUGuL^OO 
* JouuiiLKJjt^no 
,6JUJJUOjc*00 
. umOjJ J jUl*0'J 


. 1L/UJ JJUUt:*Q2 
.UlUUJJ Ujt +03 
,ouOiji/CjajE*oo 
.UuuUGUOUc +00 
. u00Ui>L>ujL + 00 

,uuauuougt+oo 


.UUUJUJuUc+00 
.UUJJJJUUt+OO 

.Gu03UUUUt*00 
. oOUJuGOUc+OO 
.JUUv jUUU^+OO 
■jOJUJUOJt+OO 


.30000000 E+02, 

, -.50000000E+02, 

, 30OO0OOOF+02, 

, .onononooE+Oo, 

, .OOOOOOOOE+OO, 

, .00000OO0E+00, 

, .O0OO00OOE+00, 

.14000000F+03, 

, .O000O0O0E+O0, 

, .4nnooOUOE+02, 

, .IQOOOOOOE+OO, 

, .OOOOOOOOE+OO, 

, .ooooooooe+oo, 

, .OOOOOOOOE+OO, 

.17633000 E*0 2» 

, -.20000000E+02, 

, .noooooooE+oo, 

.OOOOOOOOF+OOr 

.r>oooooooe+oo, 

.00000000€*°0, 

.OOOOOOOOE+OO, 

ioacnoooE+oi, 

. 0000000 °t+30, 
.OOOODO°°E+°n, 
.a'iO°OOOOE+°o, 

.ODOOOOOOE+OO, 

.ooooooooe+oo, 

.OOOOOOOOE+OO, 

lOOOOfnOE+02, 

.20000000E+03, 

.60000000E*02, 

.OOOOOOOOE+OO, 


ORIGINAL page is 
OR ROOR QUALITY 
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6JJEXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


oiomocnE+oo 

oohhoif+oi 

00l1H rt 0E + 0O 

OniOOIOOE+il 


cooooo ioe*oo 

ftftCrOHOE+Ol 

chiooioe+h 

OiOIOiOOE+H 


xoc - 
.ooonoooiE+oo, 
.OOdOOHE + OI* 
♦ tOOKliliE + ll* 
.OlOl1lftlE+01i 
.nnnpmnnE + Oi, 
.oooinnoF + oi, 

.OiOftOlOiC+OO, 
. iiioonooE+ni* 
.OOinmiE + OO, 
•0r»nn0O0'JE+0% 

.OO1011O1E + 11, 
.OOioiiHE + OO, 
ZDC = 
.110111116+00, 
T r\oiinniiE + 00, 
. nftnnnnonE+10, 


oroaociib+oo, 

.oooaoioiE+on, 

.000001016*00, 

.OiOOOIOOE+OO, 

.coooooooe+oo, 

.eonooooic+ 11 , 

.COniOaCOE+d, 

.ohoooioe+oo, 

.00000010E+00, 
• OOOOOC OOE *il, 

.c'mooooE+ofl, 
.COllOOUt+H, 
.CONOCOOOE *oo, 
oormnoiiE*oo* . 

.C?n00111E+0i, 
.OCIOOHIE + H, 
. C1110000E *10« 


OOOOOOO^E+00 
OnniiiniF *no 
0nnnnnF + 1l 
OliiOOOiE+ii 
OOlimiE + ll 
H0110O1E + 10, 
OOPOOOOOE+OO 
OOOlllHE + OO 
oooinnoE+oo 

OIHIOIlEtli 

OOOOOOOOE+OO 


OOriftCline+no, 
POOOOOOOE+OO f 
00000010E+00, 
OOOOOOOOE+OO, 
00000000€*00. 
000000OOE+10, 
OOOOOIOOE+OO, 
00H0001E+C0, 
OOOOOOOOE+OO, 
OOOOOOOOE+OO, 
C000000OE+0O, 


.OtiJtfUOWOu + lO 
.UuOOOOtKJt + H) 
.ociauouodt+ia 
»<J JJJO'jOdt* 00 
lOdUdOoUL+31, 

.JjQUOJuUh+OO 
.OuddddaJt+QO 
. Oj JJQdUdt+OO 

■ yUdddOuQt+OO 
.AuOUOvKiWcOl 
. LiJJjJJuOL^OO 
. Uu\J0odddl*01 
.OJdl>JdUdL + Ol 
* OOddOw>dJi- + OQ 
. i<j jooCK^c*01 
. UJUJOdlKJt + lO 

■ 0 o<JO0dd06 *00 
CfigyyOUVit + UCl t 

. y oO'jOO\Ji)t*QO 
.JJjjJJJvc+90 
. Oj(j uudOJt+OO 
. UUOOUUO Jt+10 

.OOQUdCiQdt+OO 
.OOUDUdOUL+OO 
. udUt)udoOc.+OQ 
. U JUUd0<J0t*00 
. UUOdOOUut+OO 
.QuOdUdUUt+OO 
.UuODUifOUt + OO 
.ugudOOOat+OO 
♦UUODOUUUfc+OO 
.Uo0L)0J0dc*00 


.OOOOCOOOE+OO, 
.1111inilE*0ft, 
.OOonoonoE+oo, 
. 00011100 E+-00, 
.nnoiaiiE + Oi, 
.CHIOOHE + nO, 

♦ OOOOmOOE+OO, 
.on00ooooE+O0, 
.00inini0E+0i, 
.OOnniiiiE+Oi, 

♦ OOOIOIHE+OO, 

• ooooooooe+00, 

.OOOOOOnoF+OO, 
.IlftlOiiifc+io, 
.OOHHOIE+OO, 
.COnnoooOE+OO, 
*101101006 + 00, 
.001101116*01, 
.OftiniiiiE+in, 

*oooooonoe*oo, 
.omouftie+ll, 
.OOOOlinE + OO, 

.lOOOOICOf + rift, 
. iw*m n ■M'n e ♦ o ^ t 
.0011H01E + 01, 
.onno iooof *rm. 

.00011H1E + 10, 
.110011116*10, 
.011111116+01, 
,0ni1iiriE+00, 

.000nniiE*on T 
.OOoniiii6*ii, 
.oiiioiiie+oi, 
.00010)116*00, 
.ooiniHF+on, 
.OOOoooooe+oo, 
,011111106+01, 
.0110H01E + 10, 

.OinilioiF+oo, 
.OOOliHOE+IO, 
.ooiaoooie+oo, 
.anionii6*ift, 
♦ooontnoftF+no. 
.OOftooiooE+no, 
.OOllHdE+OI, 
.oftooi^o^E+OO, 

.Oftrinnn^E + n<->, 
.101111116+11, 
.ftOonoopoF+oo, 
.OftOCOOftOE+CO, 
.OliniftiF + li, 
.ftftftnoooiE*co # 

.OOcnr)0 <, 'OE + nft ( 
. 00010101F *0°, 

* on^nnon^ F + 00, 
. QHIliftit. + nn, 
.OOlnftftftftF+00, 
.OOftlOOOOF+OO, 
, OO^lllftlt+OO, 
. oooii^ftOE + rift, 


.001100116*31, 

.ooicooioe+oi, 

.QfH00000E*00» 
.O0n000OftE«-o(j, 
♦iiooioioE*oo, 
.OOOOOOOOE+on, 
.001000016*01, 
♦ rt 000O1l0E*10, 
.000000006*00, 
.OOOOOnooE+oo, 
.101100006*11, 
.OOHOOHE+OO, 
.0000000^6+00, 
.onoonooofitoo, 
.000000006*^0, 
.aoooooooE*i A , 
.flC010000E*oo, 
•0O00000OE*0°, 
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.OCllOlOOE+11, 
.niOIOOHE+H, 
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.OOOOflOOOF*OO f 
._p ooiqo nn£ *n ru 

.onooooiOE*io t 
.OoonocoiEKi, 
.COiOO n OOE*ni< 
.OOOoroniE+Or, 
.OOOOOOOOF+Oi, 
,100000OOE*0i, 
.OoorooooE+oo, 

.irftOOOOOE+^l, 
.000001016*00, 
.conooioiE*oo, 
.C00000006+00, 
.rc-o^OOlOE + Oi, 
.0OO00000E+10, 
.OniOOlOOE+ii, 
.cnoo0H0E*il, 
, OCOOOIHE + Oi, 
.ccnooaiOE+n, 
.011010006*10, 
.011000106*11, 
.0ft0O0001E*iO, 
»rftftOOOOOF*Oi, 
.onooncfc+ic, 
.oononOiot*oo, 
. r^nftnoOOE*!!, 
.0ftftft0int*oi, 
. oonncoiob+iO, 
. iioroii^E*r.r, 
. 0 A OCOC 10t*n, 
.CniOOOOE*!©, 
. inft0O0iiE*nl, 
. QOiiftnOE+00, 
.CniCOOOiEtOo, 
. loioirorttrft. 


.UO0uUJ00t*00 
. v^OJ JU^>Ot*10 
.OJOJuUOJt*01 

■ uuuUijOU t.*00 
.^ U yjjygi>t*00 
.uJUdJJ0Dt*00 
. uO0dl>UiJOt*00 
.UOuJjOUOJt+10 
. J<JL/LiGu0L>£*00 

• uiduJ i)0»JOt*00 

.uuOJwflOUc+OO 
. i>ogJujui>c*oo 
« U j jj j'J Owt + 00 
.OgggyUjgt*00 
. uu jijOG Uut + 00 
. ggujUUOJt + 0'1 

■ k/Ji/Jd U lidL *10 
. LiJJoiJODUL + Ol 

. gugojuuiit*01 

. dUuij0JUdt*00 
.UUOjJ dOdfc+OO 
.uJugjj^Jc *11 
.udJJUJUJc*0O 
■uwJjJjU un+01 
. dwyidJOUc + H 
jo ju_g ia) l_*do 
. ddduvws/wc ▼ vy 
.(jwUgUOUJL+00 
. u Jo^utdUJc *QD 
. OuuJi/Jugt *10 
. tiJOduOUuc*Q3 
.VJJdOOOd t +00 

. OdOJ JOliOc *00 
. OuOJ&dUijc + OO 
. (jgugujgjc + 11 
.oauj^jajL+Do 

■ <J JujOu U j c*00 

• 0<jjJU(j<Jdt*00 

*OUdt/OQu(Jt+03 

. yJOOuUJJc + J1 

• CJJUl *11 
.<jJ<JJi>JOOh*CJO 

. U rJj J J uU C + ") 1 

.ooojowggc+oo 

. v'JJJdJ'dOt+10 
.Ud^JUduUt*01 
. vOOOjjogL+OO 

. ^yUJUjsJJy + OD 

.og^Jwguuc+OO 
. JJOOL +0o 

• vdlilliiUOJt+OO 
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.ddwJddOdL+OO 
. Uw’ddLiuUjL+OO 1 
. Uuu Jj j Oxjc * 00 
. gdOOtiL/Out + QO 
. uiju JUdudt*!! 
. ^v/dJddUUc+OO 

• wfdoJddotJc+O r ) 

. d JuJ JJoJ L * 00 


JCOCR 

.JOlO^l^OE *iL, 
.lnoooftoCEtoi, 
. COllim E* ii, 
, 2&niftriF *oo, 
.25011H1F + 11, 
.250H111F + 11, 
.25001 inif*ni r 
WFLAPl = 
.OOOlllHF *m, 
W6LAP2 = 

. 310H1HE +02, 
hlFLAPi =: 

.3C01iiooE*rz, 
FLAPC 

.iinoniioE*12, 
.501011116*01, 
.25 n iHiiE +01, 
.251110116+00, 
♦ 25001lOiE + oo, 
.251100006*01, 
.250001006+00, 
TA8C 


ironninE+11, 

.ICCiOOOOfc+1L 
.lOlCOCOOE+Ol 
. 251iOMie*00 
.250000006+11 
.2SoftOOonE+ro 
.251000006*11 

.250COnoot+ii 
iroocccit+ro ( 


. juUju 1 Qiit + 1Q 
.+00 
. ^ 3 yy) JuiddL *00 

. £. J WQ J Judt +00 
■ & litiJ J j y Jc *00 
.i^UdyOUJL+OO 
i A yy^yyyL*yU, 


. lOiOOOOOE + i'O, 
4C1000+02, 

.601100006*01, 

i40iO''(T6*ft3, 

.iiocroo?t+ix, 
noionpiE+no, . 
.110001006+02, 
. 50ftonrjnrE+r-o, 
.250000006+11, 
.250011006+00, 
.250000006+11, 
♦250C01O1E+O0, 
.25O01OC1E+11, 
erooooooE-oi, 


5 Oduyiyyj(. +y ^ , . 

5 A JjJ w L>Ut+J*, . 

3ldudl/0jt + j*, 

. «.3yvudUUt + 00 * 
.taujOdddL+OO, 
. *L L-UvuUUdC + 00 , 
.t3UddJddL+10 * 
. t-j ULMJU OuL +00 , 
. fjuuv JUwt + 00 , 
. t3dv>0<Jdd t + 00 , 

60uudjyyc~g1 , • 


.010000006*00, 
.OOOOtJOOOE + OO* 

■ 03D003GOE+00 , 

10001000E+00, 

.oionooooE+oo, 
.oiooooonE*oo, 
.110000006+00, 
.100 000106*00, 
.0101O00OE+00, 
.000on 000E+00, 
,01010000E*00, 
.OOlOaOioE+OO, 
.111001116*00, 
.000000006*00, 
. 00 010100 E *0 0, 

000000006+00, 

.01000110E+10, 

♦ 0000001ft E + 00, 
.10010110E+01, 
.100000016+00, 
.000000006+00, 
.00000000E+00, 
.onoaooooE+oo, 

.OOOOOOOOE+OO, 

.ooo ioo rue * 00 , 

♦10000000E+00, 
.000000006+00, 
.000000006*00, 
.000100006+00, 
.00000000E+00, 
.rioionoooEtoi, 
.000000006*00, 
.000000006*00, 
.0010000°E+00, 

.O0000OOnfc*oo, 

.00000010E +00, 
.000000006+00, 
.000000006+00, 
.O0000000E +00, 
.010100016+00, 
.010000006+10, 

• OOOOOOOOE +00, 
.001010016*00, 
.ooii0iort*00, 
.110110106*10, 
.010010016*00, 
.000000016*00, 
.oooiooooe*oo, 
.100000106*00, 
.010000106*00, 
.011000106+10, 
,011000016*01* 
.000000116*00, 
.100000006+00, 
.OOOOOOOOE+OO, 

_.003 00 000 6*0 Q_, 

*’ '^VUV^t/'lL ^ r\A t 
.010 000016 +01, 
.O'jnoooiOE+io, 
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. 00) 00111E+li, 
.nooociiEOOt 
.ooooooior*oft, 
.lOOlOOlCE +10, 
.0)0000116+00, 
.100 r 0 00 n F +10, 
.0000000 6*00, 
.0)1010116+11, 
.OiaoiooftE+on, 
.oonooioiE*oi, 
.000000116*00, 
.OOiftOOaOE+11, 
. Oil OHIO E+00, 
.oionmit+oi, 
.r.oooooooF+oo, 
.lOiooonF+on, 
.llonrtn-joE+Oft, 
.ftOOftOifiiF+Oft, 
.niftioilE+on, 
.10T30O11E + 1O, 
.0000101-1 E + 00, 
.011100116*0.1, 
.npinoonE + li, 
.1111000^6*10, 
.113100006+11, 
.10011lO^E+11, 
.OiOinOi;:F +00, 
.0001001^6+11, 
.Afnnooii‘E + 10, 
, 11010 WE+ 10, 


.110001116+01, 
. HOOOOir F + 0i, 
.250010016+10, 
.250 00 ront+ft/ft, 
.250C0001E+01, 
.251110116+10, 


* 110 .OOOF+OO, 


oi:in r )ift£+<V), 
i orniftjot+n, 


301111016+00, 
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. 25110011E+11, 
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6.2 EXAMPLE PROBLEM # 1, MULTIPLE^SURFACE ANALYSIS CAPABILITY (CONTINUED) 


. 3OC<00fl0 0E*01» .3OC0OOO0E+O1, ♦ li5JOUOUfc + OQ, .125000006*00, 

. 100no*00£*00, .10*COO*OE+PO, . l,z 5OUQOJt + O0, .125000006*00, 

. 125***0IE*00, -I2500n00e«10, . U. aOOQOO1* 00, . 125000006*00* 

.12500*10E*00, , 1250nOOOE*PO. . l^JUOQiJttOO, . 12500000E*00, 

. I2500110E+0O, . L25000196*00, . 1<:;>0U0UJt * 10 , . 1250900DE*00, 

, U50mCOE*00, .I2500000E+00, .JOOOOut♦09 * . L2500000E*f)0■ 

, 12 5OmC0E + OO, . 12 5OOO0OE*C’i, . jOOJQU t + 00 , 

wsmoth > .looonrooE+oo, 

XCG s ,OOOOOOC''E*on, 

YCG = .nOPnnponE+OOt 

icg - .oooorroce>no, 

REFS = ,d200C001E+04, 

refc * . J2eaiC< , 're+r>2, 

REF6 =» .280CHKroE+03» 

NJGB = *1, 

ALFA s . I00000rci6+02 t .0OjClyUujt *00 , .00999090E*OD, 

.oooooiooe+oo, .aoooooooE+on, . . uoouoooot+oo, .ooooooooe*oo» 

,000000108400, . fiiiOOOQOE + r'n, .OuUOOOUJt+OO, .OOOOOOOOE+OOt 

*nononno06*00f , <30000100 E+00, . »)OUUOUOOfc4O0 , .00000000E+00* 

■ 000000 OOE+001 . UdUDUuOut+OO f .09000010E*90, 

.OOlllHOEtlO, 

MACHN s .2C00O0C0E+O0* ,OlOUJuuUE>00» .OOOOOOOOEtOO, 

. OOOOO r ' r 'OE + OO f . OCOOOOOOE+OOi .OUUUUOOJE+OO, .OOOOQOOOE+OO, 

.no/noonEm, .cooooonoE+oo, .oauouoojfc+oo, 

HEIGHT = , I0000000e+05« .100guOUOfc*0s, .10000100E*05, 

. indOO^O^E+OSt . 10QOOOQOE+OS* . 10 JOOOOOt <-05 , . 1910001Q E *0 5, 

.1000^0000 405, . IOCOOOOOE+05, . l00UCl0tJUtO5 , 

FLAPOJ = .4C0000006+02, 30jgjOOQt+CU , .000000006*00# 

. 30000000E+021 .OceaOOOOE+OO, 

TABOJ = .OOOOOaOOE+OO, . 91UCi Ju u0t*00 • * 09009000E*01, 

.ooooooooe*oo» .aocoonooE+oo, 

AILOJ S -■200000000+02 » .15UjgOuJfc*02 , .QOOOOOOOE+OO* 

,00H900OE *00, . COOOOOOOE+OO# . OOOUOOOOfc♦ oo» .oonoonoPE^oo, 

.000000000 400, .ao^oooooE+oo, .ouoooooat*oo, 

NFlG * 428, *8. *2, 
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♦ 4 f 

♦ it 

♦ 4 

♦4, 

♦ 6, 

*1 r 

♦ l 

*0, 

+ 1, 

*u. 

40 

♦0, 

*1* 

* 1 4 

*4 

NSOLV 

♦0, 

♦0, 

*0, 

♦ 0, 

*0, 

♦ u» 

40 

*0, 

+0, 

♦u* 

♦0 

SEND 
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VALUE 28 82324344uiiO 1000114 ALFA* .00 MACHNO- .0000 ALTITUDE******* 2 

— SURFACE » 1 = WING 

LIFTING SURFACE NO* 1 

********************* 


SPAN 

ROOT 

CHORD 

TIP 

CHORO 

k L»U 1 
r ml iT 

TIP 

JklST 

AREA 

200.000 

40.000 

ia.oao 

4.UJ00 

-1.0000 

8199.59 

FLAP 
$ PAN l 
.000 

FLAP 
SPAN 2 
40.000 

FLAP 

5PAN3 

I4f\fl00 

FuaP 
DbFLtu 
4li. JOU 

lAb 

UtFLEC 

.000 

L. AIL 

offlec 

-20.000 




FUS iTa 
XI Co 1 
. GOu 

NiNii STA 
YUG) 
.000 

toL STA 
Z ICG) 
.000 


MS 

Y 

l 

XlLtU 

X 1 C/41 

X1TE) 

-141.543 

-140.000 

-17.633 

20.JUU 

22.500 

30.000 

-127.3«B 

-126.061 

-15.L 75 

15.Uid 

IV.364 

30.000 

-113.234 

-112.122 

-12.717 

11 • a .it> 

16.227 

30.000 

— 99 .0 BO 

-98.182 

-10.259 

1 • <* 35 

13.091 

30.000 

-84.926 

-04.243 

-7.801 

5. C 75 

V.955 

30.000 

-70.771 

-70.304 

-5.343 

-.909 

0.818 

30.000 

-56.617 

-56.365 

-2.806 

-5. 391 

4. 6 02 

30.0*0 

-42*463 

-42.425 

— .428 

-9.t72 

» 546 

39.000 

-26.309 

-20.309 

.000 

- 10.UOO 

.000 

3*.000 

-14. 154 

-14. 154 

.000 

“10. oi)0 

.000 

30.*00 

.oro 

.000 

.000 

-10.000 

.000 

30.000 

14.154 

14. 154 

.000 

-1J.00G 

.000 

30.000 

28.309 

26.30 9 

.00* 

—lu•JOJ 

.000 

30.000 

42.463 

42.425 

-.428 

-9.272 

■ 54b 

30.000 

56.617 

56.36 5 

-2.886 

-5.09i 

3*602 

30.000 

70.771 

70.304 

-5.343 

-,9U9 

0.016 

30.000 

84.926 

04.243 

-7.801 

5.2/j 

9.955 

30.000 

99.000 

98.102 

-10.259 

7 . **55 

U.091 

30.000 

113.234 

112. 122 

-12.717 

11.0JO 

16.227 

30.000 

127.308 

126.061 

-15.175 

l5.ola 

19. 364 

30.000 

141.543 

140.000 

-17.633 

20.000 

22.500 

30.000 


ASPECT 
RAT 10 

MEAN 

CHORD 

HGC 
IMAC 1 

YBAR 

4 MGC) 

XBAR 
l MGC 1 

l BAR 
(MGC 1 

9.5615 

29.204 

32.6B1 

56.591 

5.489 

-5.655 

R. AIL 

DEFLEC 

15.000 

OIHED. 

MGC/4 

lo.oon 

SWEEP 

MGC/4 

12.494 

NU.SPAN 

elements 

28 

NO.CHORD 
ELEMENTS 

4 

NO.CHORD 
DISCONT. 
1 - 

AREA 

SCCGI 

8200.000 

CHORD 

CICG) 

32.681 

SPAN 

BICG) 

280.000 





TWIST 

01 HE 1 C/41 

SNEPIC/4) 

Cl WING) 

C1 FLAP) 

CITAB) 

—1.003 

-id. non 

-12.494 

10.000 

3.000 

.800 

-.303 

-10.000 

-12.494 

14.182 

4.255 

1.135 

.394 

-10.ODD 

-12.494 

18.364 

5.509 

1.469 

1.091 

-10.0*0 

-12.494 

22.545 

6.764 

1.804 

1.700 

-10.000 

-12.494 

26.727 

8.018 

2.138 

2.405 

-10.000 

-12.494 

30.909 

9.273 

2.473 

3. 102 

-10.000 

-12.494 

35.091 

10.527 

2.BQ7 

3.879 

-10.0*0 

-12.494 

39.272 

11.782 

3.142 

4.000 

.000 

.000 

40.000 

12.000 

3.200 

4.000 

.000 

.0*0 

40.000 

12.000 

3.200 

4.000 

.000 

,000 

40.000 

12.000 

3.200 

4.00* 

.000 

.000 

40.000 

12.000 

3.200 

4.000 

.000 

.000 

40.000 

12.000 

3.200 

3.679 

10.000 

12.494 

39.272 

11.782 

3.142 

3.1B2 

10.000 

12.494 

35,091 

10.527 

2.80 7 

2 .4B5 

10.000 

12.494 

30.90 9 

9.273 

2.473 

1.7B8 

10.000 

12.494 

26.727 

8.018 

2.138 

1.091 

10.000 

12.494 

22.545 

6.764 

1.B94 

.394 

10.000 

12.494 

18.364 

5.509 

1.469 

-.3*3 

10.000 

12.494 

14.102 

4.255 

1.135 

-1.00* 

10.000 

12.494 

10.00C 

3.000 

.800 
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XA(1)/C XAUI/C AMISI/C XAI4I/C XA<5)/C XAI6I/C XA17I/C XACBI/C XA19I/C XAUOl/C 

*0000 l.JJOO .0010 .0000 .0000 .0000 .0000 .0000 .0000 .0000 


X Y 2AI1I/C 2A14I/C t*l*l/C ZA(4 I/C ZA<5>/C ZACbl/C ZA17I/C L A18I/C ZA19I/C 2AU9I/C 

30.0000 .0000 .0000 .OuuO .jOOO .0000 .0000 .0000 .0000 .0000 .0000 .0000 
30. OHIO 40.0091 *000 rt ,o0uu .UOOO .0000 *0919 .0000 .0000 .HOC .0000 .0000 
30.0000 140.0000 .0000 .UUUO «J00Q .0000 .9109 .0000 .0000 .0000 .0000 .0000 
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6.2 EXAMPLE PROBLEM # T, MULTIPIE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


J 

K 

Y l 

WL 

Lm 

out 

DC 

OS 

1 

1 

-1.350+02 -1.6E4+01 

1.365+ / 'c 

1.JO2+02 

1*911+01 

2.333+00 

2.711+11 

2 

1 

-1.251+02 -1*495+01 

1.264+"* 

1 ■ *o*t+02 

1.11 1 + 01 

3.0 30+00 

3.4 16+01 

3 

1 

-1*15i+ n 2 -1.331+01 

1.163+02 

i. • 1*6+02 

1*01 1+01 

3.727+00 

4.121+01 

A 

1 

-1.052+02 -1.171+01 

1.062+02 

1* Uo*+U2 

1 . o u +o i 

4.424+00 

4* 8 25+n1 

5 

1 

-9.520+01 -I.C16+01 

9*605+01 

9.UUD+01 

1.011+01 

5.121+00 

5.530+01 

6 

1 

-d. 524+01 -a.644 + 00 

8.594+ni 

0* 5*4+(li 

l.011+01 

5 .BIU+OO 

6.235+01 

7 

l 

-7.528+01 -7*174+00 

7. 583+ "t 

7.30J+Ol 

i.OU+Ol 

6.515+00 

6.939+01 

8 

l 

-6*533+01 -5.747+00 

6.572+H 

t>. 'j/2 + ul 

1.111+01 

7.212+00 

7.644+01 

9 

1 

-5*537+01 -4.364+00 

5.561+01 

5 • 1 ♦ 01 

l.011+01 

7.909 + 00 

6.348+01 

in 

1 

-4.541+01 -3.023+00 

4*550+01. 

4.33 J* L»1 

1.011+01 

8.60o+00 

9."53+01 

11 

l 

-3.533+OL -2.336+00 

3.5 39*"1 

J.539+ J1 

1.011+01 

9.303+00 

9*421+01 

12 

l 

-2.526+01 -2.308+00 

2.528+01 

1.52 o+Ol 

1.011+91 

4.333+00 

9.4 36+01 

13 

1 

-1.517+01 -2.308*00 

1*517+01 

1.317+01 

1. 111+01 

9.333+00 

9.4 36+01 

14 

1 

-5.055+0" -2.3C8+0Q 

5*055+o^ 

5.053+00 

L. 011+01 

9.333+00 

9.436+01 

15 

L 

5.055+0" -2.3C8*00 

5.055+0 W 

3.1/3 3+ Oo 

1 . 011*01 

9.333+00 

9.436+11 

in 

1 

1.517+01 -2.3C8+00 

1*517 + 0!. 

1.317 + 1/1 

1.011*01 

9*333+00 

9.436+01 

17 

L 

2.528+01 -2m 308+00 

2.528+01 

t. 32 o+ Ol 

1.011+01 

9.333+09 

9.436*01 

18 

1 

3.538+OL -2.336+00 

3.539 + 01 

3.3JV+01 

1.011+01 

4.333+00 

9.421+01 

19 

i 

4.541+01 -3.023+00 

4.550 + 01 

4. 33 0+01 

1.011+01 

9,303+00 

9.153+01 

21 

1 

5.537*01 -4.364+00 

5.561+01 

3.301 + 01 

1.011+01 

0.606+00 

8*348+01 

21 

1 

6.533+01 -5.747+00 

6.572+01 

o.372+01 

l.Oli+Ol 

7.909+01 

7.644+01 

22 

1 

7.528+01 -7.174+00 

7.583 + 01 

Z.3uJ+Ui 

1.011+01 

7.212+00 

6.939+01 

23 

1 

8.524*01 -8.644+00 

0.594+01 

ti.39t+Ul 

1.911*01 

6.S15+O0 

6.2 35+01 

24 

1 

9.520+01 —1.016+01 

9.605+01 

3.0U3+LU 

1.011+01 

5 .818+01 

5.5 30 +01 

25 

1 

1.052+02 -l.lTi+01 

1 ■ 062 + 0*1 

1. J02+04 

1*011+01 

5*121+00 

4,825+01 

26 

1 

l. 151+02 -1.331 + 01 

1.163+02 

1.1U3+U2 

i.ou+ni 

4.424+00 

4.121+01 

27 

1 

1.251+02 -1.495+01 

L.2 64+"i 

1*204+02 

i.Oli+Ol 

3.727+00 

3.416+01 

2 B 

1 

1.350+02 -1*664+01 

1.365+02 

1. JU3+02 

i.ou+ni 

3.130+01 

2*711+01 

l 

2 

-1.350+02 -1*667+01 

1.365+0*. 

1.303+02 

i* m+oi 

2.333+00 

2.711+01 

2 

2 

-1.251+02 -1.447+01 

1.264+0*: 

1.204+02 

1.011+01 

3.030+11 

3.416+01 

3 

l 

-1*151+02 -1.329+01 

1.163*0* 

1.103+1)2 

uau+ci 

3.727+00 

4.121+01 

4 

1 

-1.052+02 -1*165+01 

1.062+0*1 

1.0OO+CJ4 

1.011+01 

4.424+00 

4. B25+11 

5 

2 

-9.520+01 -1.C04+01 

9.605+01 

V.003+01 

1 . 011+01 

5.121+00 

5.530+01 










JQ8FLAG 1 

2 

3 

4 

5 6 

7 

8 9 iJ 

U 12 H 

14 

15 

16 

17 

18 

19 

20 

EXAMPLE PROBLEM 

NO. 1 - MULTIPLE SURFACE ANALYSIS CAP 

PAGE 

VALUE 28 

6 

2 

3 

2 4 

3 

4 4 o 

1 l 0 

1 

C 

0 

0 

1 

l 

4 

ALFA = *C1 

MACHNOt .OOOC AL TIT DDE******* 

4 


J ‘ 

K. 

Y ’ 2 

WL 

C m 

OWL 

oc 

DS 

6 

2 

-8.524+11 -8.455+00 

8.594+01 

a • 3 l /'»+ 0 1 

l.nii+oi 

5.818+00 

6.235+01 

7 

2 

-7.528+01 -6.9C5+00 

7.583+01 

7. -jo J* Oi 

1 . 011+11 

6.515*00 

6*939+H 

8 

2 

-6*533+"l -5.385+00 

6.572+01 

6.j72+ul 

1 . 011+01 

Y. 212 + 1 " 

7.644+11 

9 

2 

-5.537+01 -3*856+01 

5.561+01 

5• 601 +Gi 

l. 011+01 

7*909+01 

8.348 *01 

10 

2 

-4.541+"1 -2.438+00 

4.550+0i 

4.35W+U1 

1 . 011+01 

0 . 606+01 

9.153+01 

11 

2 

-3.538+01 -1.686*01 

3.539+ "1 

A. 01 

1 . 011+01 

9.303+00 

9.421+01 

12 

2 

-2.528+01 - 1 .655+00 

2.528+01 

1 .5* 0 + U 1 

l.Hl +01 

9.333+11 

9.436+H 

13 

2 

-1.517+11 -L.655+00 

1.517+01 

1.51 /+U1 

1 .Oil +11 

9.333+01 

9.436+01 

14 

2 

-5.155+00 -1,655+00 

5.155+n^ 

5.U55+UJ 

1 .Hl+Ol 

9.333*00 

9.436+01 

15 

2 

5.155+00 -1.655+11 

5."55+0u 

5.055+00 

1 . 011+01 

9.333+00 

9.436 + 01 

16 

2 

1.517+01 -1,655+00 

1.517+01 

1.51 7+01 

i.iii+ii 

9*333*03 

9.436+H 

17 

2 

2.528+01 -1.655+00 

2.528+01 

2 ♦5*0 + 0 1 

1.911+01 

9,333+01 

9.436+11 

18 

2 

3.538+01 - 1 . 686+00 

3.539+01 

>.5J9+Ul 

1 . 111+01 

9.333+00 

9.421+01 

19 

2 

4.541+11 -2.430+00 

4.550+01 

4.55U*Ol 

Uflll +01 

9.303+11 

9.153 + 01 

2 " 

2 

5.537+11 -3.896+01 

5.561+"! 

5.i»l> 1 ♦ J 1 

1 * 011+11 

8 . 606+00 

8.348+01 

21 

2 

6 . 533 + 11 -5.365+00 

6.572+01 

0.572+01 

1 . 011+01 

7.909*03 

7.644*11 

22 

2 

7*528+11 -6.SC5+00 

7.583+01 

7.505+ 01 

1.311+11 

7.212+01 

6.939+0 l 

23 

Z 

9.524+11 -8.455+01 

0.594+1i 

< 1 .54*t+ 0 1 

1 . 011+01 

6.515+01 

6.235+11 

24 

2 

9.520+11 -1.004+01 

9.605+Ox 

9.O05+U1 

1.311+11 

5.818+0" 

5. 53P+01 

25 

2 

1.152+12 -1.165+01 

1.162+C* 

i.jk,c + u* 

1.2U+G l 

5*121+10 

4. 825+H 

26 

2 

1.151+02 -1.329+01 

1.163 + 0*. 

i. 105+02 

1.011+01 

4.424*10 

4.121*01 

27 

2 

1.251+02 -1.457+01 

1.2 64+0a 

1 ■ *L><«+U* 

l.011+11 

3.727+00 

3.416+H 

28 

2 

1.350+02 -1.667+01 

1.365+0* 

1.505+ 0 * 

1 . 011+01 

3.030+11 

2.711+01 

1. 

3 

-1.350+02 -1.671+01 

1.365 + 1*. 

1■505+ 0* 

1*311+01 

2.333+00 

2.711+01 

2 

3 

-1.251+02 -1*458+01 

1.264+04 

i.*OH+ 0* 

1.011+11 

3*033+00 

3.4 16+01 

3 

3 

-1.151+02 -1.327+11 

1.163 + 0*/ 

l«105+02 

U"ll*01 

3.72T+1" 

4.121 ♦" 1 

4 

3 

-1.152+02 -1.159+01 

1.162+0* 

1.Qu*+u* 

1*311+11 

4.424+31 

4. 825+01 

5 

3 

-9.520+11 -9.417+00 

5.605+01 

4.005+01 

l, 011+01 

5.121*00 

5.530+11 

6 

3 

-8.524+11 -8.267+11 

8.594+01 

0*344+01 

1.3 Ll+"1 

5.018*01 

b. 2 35+"l 

7 

3 

-7.528+01 -6.635+11 

7.583+Ot 

7.353+01 

1.311+01 

t>. 515+11 

6. 939*11 

8 

3 

-6.533+H -5.122+11 

6.572+01 

Um 372+01 

l.111+01 

7.212+01 

7.6 44 +11 

9 

3 

-5*537+11 -3.428+00 

5.561+ii 

3.301+Ji 

l.H 1+01 

7.909+00 

8.348+"l 

10 

3 

-4.54 l + r l -1.853+00 

4.550+11 

4.33J+U1 

1.911+11 

d.606+3 1 

9.15 3 *i> 1 

11 

3 

-3.53B+"! -1.136+0" 

3.539*"i 

3.554+ 01 

1,011+01 

5.333+11 

9.421*11 

12 

3 

-2.520+11 -l.C"2+0i 

2.528+i-i 

*.3* d+u1 

1.011 + , 'l 

9.333+00 

9.4 36+11 

13 

3 

-1*517+11 -1.102+01 

1.517+Ci 

1.51/+01 

1*011+01 

9.33 3 + "1 

9.436+01 

14 

3 

-5."55+11 -1.112+00 

5.055+Oj 

3.033+ JJ 

1.011+it 

9.333*00 

9.426+11 

15 

3 

5.155+11 -1.112+10 

5 *"55+"\> 

3.03 J+UJ 

1.311+91 

9.333+01 

9.430+11 

16 

3 

1.517+H -1.C12 + C1 

1.517+Oi 

1 .5i7+ oi 

1*011 +;-i 

9.333+0" 

9.436+01 

17 

3 

2.528+11 -1.112+10 

2.528+H 

* . 3* d + O 1 

i.on + :>i 

9.333+01 

9.4 36+11 

18 

3 

3.538+Cl -1.C36+10 

3.539+"i 

5.334+ V1 

l.Oll+ll 

9.333+00 

9.421+11 

19 

3 

4* 541+ r L -1.853+01 

4.551+li 

4 . 330+01 

1 . 011 +n 

9.313+00 

9,153+11 

20 

3 

5.53T+"! -3.428+01 

5.561+11 

3 ■ JO 1+ O 1 

1*011+31 

8.616+0" 

8.340+11 

21 

3 

6.533+11 -5.122+0" 

6.572+"1 

0 « 3 ‘7 * + 0 1 

1.111+91 

7.909+0" 

7.044+11 

22 

3 

7.528+11 -6.635+00 

7.583+01 

7•3o j + u 1 

L.011*91 

7.212+00 

6.939+01 

23 

3 

8.524+01 -8.267+00 

8.594+ Oi 

0 .54 + + u l 

l.OU+H 

b.515+9" 

6. 235+01 

24 

3 

9.520+01 -9.917+10 

9.605+"i 

4.OU 3 + vl 

1.011+01 

5*818+10 

5*5 30+01 

25 

3 

l."52+"2 -1.159+01 

1.162+0* 

1. Ot/2 + 02 

1.011+01 

5.U1 + M 

4.825+01 


JOBFLAG i 
value 2d 


2 3 * 5 6 7 8 9 1J li U U li, 1(, L 1 Id 19 21 

3 ^ 3 24344 OA ij i 1 3 1 1 


EXAMPLE PROBLEM NO. 1 - 
ALFA = ."1 MACHNU- 


multiple surface ANALYSIS CAP 
.1111 ALT ITUOE■»***** 


PAGE 

5 


J 

K 

V 2 

Wl 

26 

3 

1. l51+"2 -1 . 327+11 

UU3 + 1* 

27 

3 

1.251+12 -1.498+01 

1.2o4 + 1c 

28 

3 

l. 35l»-"2 -1.67C+11 

1.365+1* 

1 

4 

-1.351+12 -1.674+01 

1.365+1* 

2 

4 

-1.251+02 -1.5 r 1+0l 

1.264+1* 

3 

4 

-1.151+12 -1.325+01 

1.163 + "*: 

4 

4 

-1.052+12 -1*151+01 

1.062+0* 


c H 

DwL 

oc 

OS 

i . Id5+ »/* 

l. 01 1+01 

A.424+00 

4.121+01 

1 » * l> 4+ 02 

1.011*01 

j.727+11 

3.416+01 

1.565 +u* 

1 . m+"i 

3.031*10 

2.711+11 

1* 3U3+U* 

1 . m+oi 

3.0G0+"0 

3.436+11 

1. *<j*t+U* 

1.011*01 

3.896+1" 

4. 392+11 

1 .16 J + U * 

1.011*11 

4.792+1-0 

5.290+01 

1.1/0*+J 2 

1 . 011+01 

5.688+0" 

6,204+0 t 


6-12 







6.2 EXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


N 


5 

4 

-9.520+01 -9*771+00 

9*t»05+0± 

4* qG i< + vl 

1.011+01 

6.584+00 

7. 1 10 +01 

6 

4 

-0.524+01 -8*038+00 

0.594+ Oi 

to. j 94+ g i 

l. 011+01 

7*480+00 

B.016+01 

7 

4 

- 7.526+01 -6.3C8+OC 

7.583+01 

Z.?tti+01 

1.011+01 

8*377+00 

8*922+01 

6 

4 

-6.533+01 -4.582+0° 

6.572+Oi 

Om?IC+OL 

1.011*31 

9.273+00 

9,828+01 

9 

4 

-5.537+01 -2.860+00 

5.561+01 

> . >»1 + Oi 

1.011+01 

1.017+01 

1.073+02 

10 

4 

-4.541+01 -1.142+00 

4.550+01 

4.>aU+Vi 

1.011+01 

1.106+0 1 

1. 164+02 

11 

4 

-3.530+01 -2.47l-°l 

3.539+01 

J.dj 9+Ji 

1.011+01 

1*196+01 

l. 211+02 

12 

4 

-2,520+01 -2.C58-01 

2.52B+01 

2 » 'jc o + Ui 

1.011+01 

1.200+01 

1.213+02 

13 

4 

-1.517*01 —2 * CS 8-01 

1.517+Oi 

1*51/♦Gi 

1 . 011+01 

1*200 + 0 i 

1.2 13+02 

14 

4 

-5. 055 + 0‘j -2 .058-01 

5.055+Ou 

?.0:>5 + Ug 

1.011+01 

1.200+01 

1,2 13+r>2 

15 

4 

5 .055+°° -2 .C58-01 

5.055+Ou 

■Jm JlO+Uj 

1.011+01 

1.200 +0 1 

1.213+02 

16 

4 

1.51.7+*! -2.C58-01 

1.517+01 

1.51 7 + Gi 

1*011+01 

1. 200+0 1 

1.213+02 

17 

4 

2.E20+OI -2.CS6-01 

2.528+01 

Cm 520+Ol 

1,011*01 

1.200+01 

1.213+02 

18 

4 

3.530+n -2.471-01 

3.539+0 t 

J . 4+ t/i 

1.011+01 

1.200 + 0 l 

1.2 11+02 

19 

4 

4*541+01 -1.142+00 

4.55?+0i 

4.2 ’J G+ ul 

1*011+01 

1.196+n 1 

1. 164+02 

2* 

4 

6.537+01 -2.860+0* 

5.561+01 

5r 5bl + yl 

i.011+01 

1*106+0 1 

1.0 73+02 

21 

4 

6.533+01 -4,582+00 

6*572+01. 

6.5U + U1 

1.011+01 

1*017+0 l 

9.8 26+01 

22 

4 

7.520+*! -6.3C8+0* 

7.583 + Oi 

7 . >t»_. + ul 

1.011+01 

9.273+00 

8*922+01 

23 

4 

6.524+01 -8.C38+0* 

8.594+ *i 

0.594+ul 

1.011+01 

0.377+00 

8. *16+01 

24 

4 

9.520+01 -9,771+00 

9.605+m 

9.6U5+G1 

1 . 011+01 

7.480+00 

7. 1 10 +0 1 

25 

4 

1.052+02 -1.151**1 

1*062 +*2 

i . Go*. + Gc 

1.011+01 

6.584+00 

6.204+01 

26 

4 

1.151**2 -1.325+01 

1.163+02 

1. iLO+02 

1.011+01 

5.680+00 

5*298+01 

27 

4 

1. 251+02 -1. 500 + 01 

1.264+04 

i.^o4+w2 

1*011 + 0 1 

4.792+00 

4.392*01 

28 

4 

1.350+02 -1.674+01 

1 * 365+n*. 

1 • jo5 + U<- 

1.011+01 

3.896+00 

3.486+ni 


J K XV 


YV ZV 


1 XV 


iYV 


UV XN YN ZN 


1XN 1 YN UN 


1 

2 

3 

4 

5 

6 
7 
9 
9 

10 

11 


i 2.056+01 
1 1.777+01 

1 1.496+01 

1 1.Z15+01 

1 9.332+00 

l 6.520+00 

1 3.707+00 

l 6.942-01 
1 -1.919+00 
1 -4. 731+00 
1 -T.544+00 


-1,400+02 
-1.300+02 
- 1 . 201+02 
-1*1C1+02 
-1,C02+92 
-9.022+01 
-8.C26+0L 
-7. 030+01 
-6.035+01 
- 5 « C39 +01 
-4.C43+01 


-1.747+01 
-1.577+01 
-1.412+01 
-1.252+01 
-1,097+0i 
-9,465+00 
-0.011 + Oj 
- 6 . 0 OT+O 0 
-5.251 + Ou 
-3,945+OJ 
— 2.b8S+0u 


—2. 1 
-2. 063-ul 
-^««ao7-<Ji 

-Cm 069-0 1 

-o'to-bi 
-Cm O*Z“0 fc. 
-*.oV4-ol 
— 4 • o9o -u 1 
-2*09 7-Oi 
-t.ovy-Gl 
-1.214-02 


9.49 6 -° l 
9.503-01 
9.510-01 
9.517-01 
9.523-01 
9.530-01 
9.536-01 

9.542- 01 

9.543- 01 
9.553-01 
9.999-01 


1.620-01 
1.575-01 
1.529-01 
1 .483-01 
1.437-01 
1.392-01 
1.345-01 
1.299-01 
1 .253-01 
1.206-01 
5.312-03 


2.052+01 
1.805+01 
1.559+01 
1.313+01 
1 . 066+01 
B.197+00 
5.732+00 
3.268+00 
B. 038-01 
-1.660+00 
-2.946+00 


-1.350+02 
-1.251+02 
-1.151+02 
-1.052+02 
-9.520+01 
-8.524+01 
-7.528+01 
-6.533+01 
-5.537+01 
-4.341+01 
— 3• 530+01 


-1.664+01 
-1*495+01 
-1.331+01 
-1.171+01 
-1.016+01 
-8.644+00 
-7.174+00 
-5. 747+00 
-4.364+00 
-3.023+00 
-2.336+00 


1.237-02 
3.919-03 
-4*530-03 
-1.311-02 
-2.166-02 
- 3 * 022-02 
-3.879-02 
-4.737-02 
-5*595-02 
-6*454-02 
-6.957-02 


1,647-01 
1.624-01 
1.600-01 
1.576-01 
1.552-01 
•1.528-01 
1.503-Q1 
1,479-01 
■1.454-01 
1.429-01 
6.144-03 


9*863-01 
9*867-01 
9.871-01 
9.074-01 
9.076-01 
9.670-01 
9.879-01 
9.879-01 
9.878-01 
9*876-01 
9*976-01 


JQBFLAG 12 3 

4 5 6 7 8 9 10 

li 12 lJ 

14 15 16 17 18 19 20 

EXAMPLE 

PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 

VALUE 

28 8 2 

3 2 4 3 4 4 b 

1 1 0 

1 * 0 0 

0 114 

ALFA= .00 MACMNQ* .OUOC AL71TUDE a ****** 

6 

J 

K 

XV 

> 

> 

> 

i XV 

1Y V 

UV 

XN 

YN ZN 1XN 

I YN 

1ZN 

12 

1 

- 7»66 7 +00 

-3.033+01 -2.634 + °u 

O.UJg 

i.000+00 

0.000 

—3,000+00 

-2.520+01 -2.308+00 -6.976-02 

0.000 

9.976-01 

13 

1 

-7,667+00 

-2.022+01 -2.634+00 

•J.Ogg 

1.000+00 

0.0°0 

-3.0 00+00 

-1.517+01 -2.308+00 -6.976-02 

o.ooa 

9.976-01 

14 

1 

-7.667+00 

-1.011 + 01 -2 .634+00 

u.uvG 

1.000+00 

0.000 

-3.003+00 

-5.055+00 -2.308+00 -6.976-02 

0.000 

9.976—01 

15 

1 

-7.667+00 

1,90 7-06 -2.634+06 

u.uvu 

1.090+00 

0,000 

-3.000+00 

5.055+00 -2« 3OA+00 -6.976-02 

0.000 

9.976-01 

16 

1 

-7.667+00 

l.011+01 - 2.634+00 

U.OGG 

1.060+0 } 

0.0 00 

-3.000+00 

1.517+01 -2. 100+00 -6.976-02 

0.000 

9.976-01 

17 

l 

— 7 • 66 7 +00 

2.022+01 -2,634+0u 

g. UllO 

1.000+00 

0.000 

— 3.0°O+OO 

2.528+01 -2.308+00 -6.976-02 

0.000 

9.976-01 

18 

1 

— 7* 667+00 

3.033+01 -2.034+0y 

i « <• l 4- 02 

9.999-01 

-5.312-03 

-2,946+00 

3.538+01 -2.336+00 -6.957-02 

6.144-03 

9.976-01 

19 

1 

- 7.5 44 +'50 

4.043+01 - 2 *6 B8+0u 

.L.uvy-Ci 

9.553-01 

-1.206-01 

-1. 660+00 

4.541+01 -3.023+00 -6.454-02 

1,429-01 

9.876-01 

20 

1 

-4.731+00 

5,039+01 -3,945+OU 

t»w-ui 

9.548-01 

-i .253-0 1 

8,038-01 

5.537+01 -4.364+00 -5.595-02 

1.454-01 

9.878-01 

21 

1 

-1.919+00 

6.035+01 -5.251+OG 

2. OV 0 - g A 

9.542-01 

-1.299-01 

3.268+00 

6.533*01 -5.74 7+O0 -4.737-02 

1.479-01 

9.079-01 

22 

1 

8.942-01 

7.030+01 -6.607+00 

2 . oV't—01 

9.536-01 

-1 .345-01 

5. 7 32+00 

7.52B+01 -7. 174+00 -3.879-02 

i.503-01 

9.879-01 

23 

1 

3.707+00 

a. 026+01 -a.m+ou 

4 m Q'tC-U 1 

9.530-01 

-1*392-01 

6.197+00 

8.524+01 -8.644+00 -3.022-02 

1.528-01 

9.878-01 

24 

1 

6.520+0° 

9.C22+01 -9.465+Oy 

C . t>4g-J 1 

9- 523-01 

-1.437-01 

1.066+01 

9.520+01 -1.016+01 -2.166-02 

1.552-01 

9.876-01 

25 

l 

9.332+00 

1.C02+02 -1 .097+01 

c. oo9-gi 

9.517-01 

-i .483-01 

1.313+31 

1.052+C2 -i.171+01 -1.311-02 

1.576-01 

9.074-01 

26 

1 

1.215+01 

1.101+02 -1.252+01 

4 . otj/-ui 

9.510-01 

-i.529-01 

1. 559+01 

1.151+02 -1.331 + 01 -4.500-03 

1.600-01 

9.871-01 

27 

1 

1.496+01 

1,201+02 -1.412+Oi 

i,oo3-0l 

9.503-01 

-1.575-01 

1,805+01 

1.251+02 -l.495+01 3.919-03 

1.624-01 

9.867-01 

28 

1 

1.777+01 

1.300+02 -1.577+01 

Cm t>a3-01 

9.496-01 

-1.620-01 

2.052+01 

1.350+02-1.664+01 1.237-02 

1.647-01 

9.863-01 

1 

2 

Z. 2 92+01 

-1.400+02 -1.751+01 

-c.sliG-ui 

9.646-01 

1.659-01 

2.320+01 

-1.350+02 -1.667+01 1.23T-02 

-1.670-01 

9.859-01 

2 

2 

2.080+01 

-1.300+02 -1.580+01 


9,652-01 

1 .625-0 1 

2. 143+0 1 

-1.251+02 -1.497+01 3.918-03 

-1.652-01 

9.863-01 

3 

2 

1.869+01 

-1*201+02 -1.412+01 

-c.UoZ-g1 

9.657-01 

1.590-01 

1.9o7+01 

-1.151+02 -1.329+01 -4.578-03 

-1.634-01 

9.866-01 

4 

2 

1.657+01 

-1.101+02 -1*248+01 

-a. 05 _>-Gl 

9.6o3-01 

1 .555-01 

1.790+01 

-1.052+02 -1.165+01 -1.310-02 

-1.616-01 

9.868-01 

5 

2 

1*445+01 

-1.002+02 -1.088+01 

-Cm i 

9.668-91 

1.520-0 1 

1.613+01 

-9.520+01 -1.004+01 -2.164-02 

-1.598-01 

9.869-01 

6 

2 

1.234+01 

-9.022+01 -9.314+00 

-4m 030—0A 

9, 673-01 

1.485-01 

1.436+01 

-8.524+01 -B.455+00 -3.019-Q2 

-1.579-01 

9.070-01 

7 

2 

1.022+01 

-8.026+01 -7.785+Ou 

“2.05 /-yl 

9.6 7 a -01 

1.450 -01 

1.260+01 

-7.528+01 -6.905+00 -3.875-02 

-L. 561-01 

9.870-01 

8 

2 

8.106+00 

-7.C30+CI1 -6.294 + Ou 

-<;« O5d-0i 

9.683-01 

1.415-01 

1.083+01 

-6.533+01 -5. 385+00 -4.732-02 

-1.542-01 

9.869-01 

9 

2 

5.990+00 

-6*035+01 -4.839+Og 

-4m 05V-GI 

9.668-01 

1.379-0 1 

9. °bl+00 

-5.537+01 -3.896+00 -5.58^-02 

-1.524-01 

9.867-01 

10 

2 

3*875+0° 

-5.C 39+01 -3.421 + °g 

-Cm GOO-U1 

9.093-01 

1.344-0 1 

7.294+00 

-4.541 + 01 -2.433+00 -6.44 7-02 

-1.505-01 

9.865-01 

11 

2 

1.759+0° 

-4.C43+01 -2.041+Ou 

- V. 1C 9-UJ 

9. 999—0 l 

5.873-03 

6. 372+00 

-3,538+01 -1.686+00 -6.957-02 

-6,494-03 

9.976-01 

12 

2 

1.667+00 

-3.033+01 -1.901 + 00 

u ■ uGu 

1.000+00 

0.000 

6.333+0° 

-2.528+01 -1.655+O0 -6.976-02 

O.0OO 

9.976-01 

13 

2 

1*667+0° 

-Z.C2Z + CU -1.981+°g 

u . UGg 

l. D00 + c:; 

0.000 

6.333+00 

-1.517+01 -1.655+00 -6.976-02 

0.000 

9.976-01 

14 

2 

1.667+00 

-1.011+01 -1.901 + 00 

J.UJO 

1 . 900 +ca 

3.00° 

6.333+00 

-5.055+C0 -1.655+00 -6.976-02 

0.000 

9.976-01 

15 

2 

1*667+0° 

1.9C7-06 -1.981+00 

O.OGO 

1 . 00 o+oc 

0.000 

6.333+00 

5.055+00 -1.655+PO -6.976-02 

0.000 

9.976-01 

16 

2 

1.667+00 

l.Cll+Ol -1.981+00 

u.aoo 

l.0°0+0 r 

0.000 

6.333+00 

1.517+01 -1.655+00 -6.976-02 

0.000 

9.976-01 

17 

2 

1.66 7+00 

2.022+01 -1.981+00 

O.OJU 

1.000+00 

0.000 

6.333+00 

2.528+01 -1.655+00 -6.976-02 

0.000 

9.976-01 

10 

2 

1.667+00 

3.033+01 -1.981+00 

9. i2‘^ox 

9.999-01 

-5.873-03 

6.372+00 

3.538*01 -1.686+0° -6.957-02 

6.494-03 

9,976-01 

19 

2 

1.759+00 

4.043+01 -2.041+00 

4mUoO-Ul 

9*643-01 

-l ,344-01 

7.294+00 

4.541+01 -2.438+01? -6.447-02 

1.50 5-01 

9.865-01 

20 

2 

3*87 5+0.0 

5.739+01 -3.421+90 

Cm ObV-ul 

9.688-01 

-1,379-01 

9.06 1 +00 

5.537 + 01 -3.896+00 -5.589-02 

1.524-01 

9.867-01 

21 

2 

5.990+00 

6.035+01 -4.839+00 

Cm GP0-01 

9. 6a3-0 L 

-i.4 15-01 

1.0 83+01 

6.533+01 —5.385+00 -4.732-02 

1.542-01 

9.869-01 

22 

2 

8.106+00 

7*030+01 -6.294+Oj 

Cm 057-01 

9.678-01 

-1.450-01 

1.Z60+01 

7.528+01 -6.9O5+0O -3.875-02 

1.561-01 

9.870-01 

23 

2 

1,022+01 

8.C26+01 -7.765+90 

4 . U5 a—0 1 

9.673-01 

-1.48 5-0 l 

1.436+01 

8.524+01 -8.455+00 -3.019-02 

1.579-01 

9.870-01 

24 

2 

1.234+01 

9.022+01 -9.314+0g 

4m 05*-0l 

9.668-01 

-1.520-01 

1.613+01 

9.520+01 -1.004+01 -2.164-OZ 

1.598-01 

9 . 369-01 

25 

2 

1.445+01 

1.002+02 -1.088+01 

4m 05 5-Mi 

9.6b3-01 

-1.555-01 

1.790 +01 

1.0S2+02 -1.165+01 -1.310-02 

1.616-01 

9.868-01 

26 

2 

1.657+01 

1.101+02 -1.248+Oi 

2*05^-01 

9,657-01 

-1.590-01 

1.967+0 I 

1.151+02 -1.329+01 -4.578-03 

1.634-01 

9.866-01 

27 

2 

1.869+01 

1.201+02 -1.412+Ci 

4m 051-01 

9.652-01 

-i *625-0 l 

2. 143+0 1 

1,251+02 -1.497+01 3.918-03 

1.652-01 

9.863-01 

28 

2 

2.080+01 

1.300+02 -1.580+01 

i.U5 J-Ul 

9.O46-01 

-1.6 59-01 

2.320+01 

1.350+02 -1.667+01 1.237-02 

1.670-01 

9.859-01 

1 

3 

2.525+01 

-1.400+02 -1.755+01 

-1,3V J-Gl 

9.757-01 

1.692-0 1 

2,568+01 

-1.350+02 -1.670+01 1.236-02 

-1.692-01 

9.855-01 

2 

3 

2.383+01 

-1.300+02 -1.582+01 

-1.591-G1 

9.7 61-0i 

1.669-01 

2.481+01 

-1.251+02 -1.498+01 3.916-03 

-1.680-01 

9.858-01 

3 

3 

2.241+01 

-1.201+02 -1.412 + 01 

-l.JYi.-Jl 

9.765-01 

1.645-0 1 

2. 3 74+01 

-1,151+02 -1.327+01 -4.575-03 

-1.668-01 

9.860-01 


J08FLA0 1 
VALUE 28 


iu U lz 13 14 15 16 17 18 19 20 

giiOlOC0ll4 


EXAMPLE PRUBLE* NO. 1 - MULTIPLE SURFACE ANALYSIS CAP 
ALFA- .00 MACHNO- .°0°C ALTlTUOE-****** 


PACE 

7 


XV 


YV 


IV 


1XV 


4 3 2.099*01 -1.101+02 -1*244+01 

5 3 1.957+01 — 1 * C02+02 -1.079+°1 -i._j9.j-Gi 

6 3 1.016+01 -9.022+01 -9.163+03 


1 YV 

9.769-01 
9.773-01 
9.777-01 


UV 

1.622-01 
1 .590-01 
1 .574-01 

6-13 


XN 


YN 


ZN 


1 XN 


1 YN 


2,267+01 -1.052+02 -1.159+01 -L.309-°2 -1.656-01 
2. 160+01 -9.520+01 -9.917+00 -2.162-02 -1.643-01 
2.053+01 -8.524+01 -8*267+00 -3.017-02 -1.631-01 


Uhl 

9.661-01 

9.862-01 

9.061-01 




6,2 EXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALfSIS CAPABILITY (CONTINUED) 


7 

3 

1.674+01 

-8.026+01 -7.559*00 

-l.*9*-Ui 

9.700-01 

1.551-01 

1.946+01 

-7.528*01 

8 

3 

1.532+01 

-7.030*01 -5.981*00 

-1.394-01 

9* 704—01 

l* 527-01 

1.039*01 

-6.533*01 

9 

3 

1.390+01 

-6.035*01 —4,427+0J 


9.TH8-01 

1.503-01 

1.732+01 

-5.537*01 

10 

3 

1.246+01 

-5.CJ9+01 -2.898+OJ 

- A ,^V>-UA 

9.791-01 

1.479-01 

1.625*01 

-4.541*01 

11 

3 

1.106+01 

-4.043*01 -1.394+Ou 

-*.142-03 

1.000+09 

6.434-03 

1. 569+01 

-3.530+01 

12 

3 

1 .100+01 

-3.033*01 -1.329+0U 

u. uJu 

l.noo+OO 

0.000 

1.567+01 

-2.520*01 

13 

3 

l.100*01 

-2.022+01 -1.329+0U 

O.OOu 

1.000+00 

0,000 

1.5o7+0 1 

-1.517+01 

14 

3 

1.l?0*0l 

-l.CU+01 —1.329+ Ou 

m <jjj 

1.000*09 

0.000 

1.567*01 

-5.055*00 

15 

3 

1.100+11 

1.9C7-06 -1.329+00 

U.UOJ 

1.000+09 

0.000 

1.567*01 

5.055*00 

16 

3 

1.l*9+*l 

1.Cll+01 -1.329+Oj 

u.uOu 

l.*00+Q0 

0.000 

1.561*01 

1.517+01 

17 

3 

1.100+01 

2.022*01 -1.329+0u 

*.000 

1,000+00 

0.000 

1.567+01 

2.520+01 

18 

3 

1.110+91 

3.033+01 -1.329+00 

O. 1*4-0.3 

1.000+90 

-6.434-03 

1.569+01 

3,538+01 

19 

3 

1,106+C1 

4.C43+01 -1.394+Ou 

1 .J93-01 

9.791-01 

-1.479-01 

1,625*01 

4 • 541 + 01 

20 

3 

1.248+01 

5.C39+01 -2.898+00 

1 . J9 5-U1 

9. 730-01 

-1.503-01 

1.732+01 

5.537+01 

21 

3 

1.390+01 

6.035+01 -4.427+00 

1 , J*3^-0l 

9.704-91 

-1.5 Z 7-01 

1.8 39 +01 

6.533+01 

22 

3 

1.532*01 

7.030+01 -5.981+CO 

i. 

9. 7 60-01 

-1.551-01 

1,946*01 

7.528+01 

23 

3 

1.674*01 

0.<26+01 -7.659+Oj 

1. 

9.777-01 

-1.574-01 

2.053+01 

8.524+01 

24 

3 

1.816+01 

9.C22+01 -9.163+0J 

A,393-01 

4.773-OL 

-1*598-01 

2.160 +01 

9.520+01 

25 

3 

1.957*01 

1.0*2*02 - 1♦079 + 0 a 

1 .iY.-ui 

9.769-01 

-1.622-01 

2.2o7+01 

1.052+02 

26 

3 

2.099+H 

1.1*1+02 -1.244+0i 

A.J9*-0i 

9.70 5-0 l 

-1.645-01 

2.374+01 

1.151+02 

27 

3 

2.241*01 

1.201 + 02 - l .412+0 A 

l.jW-Ji 

9.761-01 

-1.669-01 

2.481+01 

1.251+02 

28 

3 

2.333+01 

1.300+02 -1.582*01 

1.39 0-0 a 

9.757-01 

-1.692-01 

2.580 + 01 

1.350+02 

1 

4 

2.775*01 

-1.400*02 -1.759+ni 

— O.OJ4-U* 

9.829-01 

1.720-01 

2.9 14*01 

-1.350+02 

2 

4 

2. 7*8+01 

-1.300*02 -1.585+Oi. 

—o.Dio-0* 

9.031-01 

1.708-01 

2.891+01 

-1.251+02 

3 

4 

2.641+11 

-i.201 + 02 -1.412+0i 

-O. OJi /-J* 

9.B33-0I 

1 .697-01 

2.869+01 

-1.151+02 

4 

4 

2.573+01 

-1.101+02 -1.240*01 

-o. GJO-O* 

9.834-01 

1 .686-01 

2.847*01 

-1.052+02 

5 

4 

2.536+01 

-1.002*02 -1.070+01 

— o. ty+O —0* 

9.B36-01 

1.675-01 

2.024*01 

-9,520+01 

6 

4 

2.439**1 

-9.022*01 -9.001+Ou 

-O. O'* 1-04 

9.838-01 

1 .664-01 

2,0*2+01 

-B.524+01 

7 

4 

2.372+ni 

-8.C26 + 01 -7.317+OJ 

-41. !>«♦.!-0 4 

9.840-01 

1 .652-01 

2.779*01 

-7.528+01 

a 

4 

Z.305+01 

-7.030+01 - 5.645+0J 

-o, t>4^-34 

9.842-01 

1.641-01 

2.757+01 

-6.533+01 

9 

4 

2.237+01 

-6.035+01 -3.985+Ou 

- Ci. 04 ^-04 

9.044-01 

. 1.630-0 1 

2.735 + 01 

-5.537*01 

10 

4 

2.170+01 

-5.039+01 -2 • 337*0j 

— 41* O4U-0*. 

9.B46-01 

1.6 18-0 L 

2.712+01 

-4.541*01 

11 

4 

2.103+01 

-4.C43+01 -7.004-0i 

-*.VJJ-Oi 

1 .000+00 

7.035-03 

2. 700+01 

-3.530+01 

12 

4 

2 .190 + 01 

-3.033 + 01 -6.293-01 

Cl. oJ J 

1.000+00 

0.000 

2.704+01 

-2.528+01 

13 

4 

2 -iOO+oi 

-2.022+01 -6.293-01 

u* 00 0 

l.000+00 

0.0 00 

2.700+01 

-1.517+01 

14 

4 

2. loo*01 

-1.Cll+01 -6.293-01 

O.OJ J 

l.000+00 

0 .0 0* 

2. 7*0+0 1 

-5.055*00 

15 

4 

2.100*01 

1.907-06 -6,293-01 

0 . uOo 

1.000+0 > 

0.090 

2 . 700 + 01 

5.055*00 

16 

4 

2.100*01 

1.Cll+01 -6.293-0i 

u. OOo 

l.000+00 

0 .000 

2.7**+0l 

1.517*01 

17 

4 

2.100+01 

2.022+01 -6.293-01 

O.OOv 

l.000+00 

0.000 

2.700+ni 

2.528+01 

18 

4 

2.100+01 

3.023+01 -6.293-H 

4.930-03 

1.000+00 

-7.035-03 

2.700 + 01 

3.538*01 

19 

4 

2.103*01 

4.043+01 -7.004-01 

o.040“J* 

9.846-01 

-1.618-0 1 

2. 712*01 

4.541*01 

20 

4 

2.170+01 

5.<39+01 -2.337+OU 

0 . O4D-04 

9.644-01 

-1.6 30-01 

2.735+01 

5.537+01 

21 

4 

2.2 3 7+01 

6.035+01 -3.9B5+0U 

41. 04 j—04 

9.842-01 

-1.641-01 

2.757+01 

6.533*01 

22 

4 

2.305+C1 

7 . 030+01 — 5 • 645* Ou 

o. 04 4.-04 

9.840-01 

-1.652-0L 

2.7 79*01 

7.528+01 

23 

4 

2.372+01 

a. *26+01 - 7.317 + Oti 

O. 041-0* 

9.838-01 

-1.664-0 1 

2.802+01 

B. 52 4+01 

24 

4 

2.439+01 

9.C22+01 -9,001*0* 

o.o4Q—o4 

9.036-01 

-1.675-01 

2.8 24+0 1 

9.520+01 


6, 635*00 
5.022*00 
3.628* 00 
1.053*00 

1.036*00 
1 . 002*00 
1.002*00 
1.002*00 
1 . 002*00 
1.002*00 
1.002*00 
1.036+00 
1.053* 00 
3.428**0 
5.022*00 
6.635*00 
8 . 26 T **1 
9.917*00 
1. 159*01 

1. 327*01 
1.498*01 
1.670*01 

1.674*01 
1.500*01 
1.325*01 

1.15l+oi 

9.771 + 00 
8.038+00 
6.3C8+00 
4.502*00 
2.860*00 
U142*00 
2.471-01 

2. C98—01 
2.098-01 
2.190-01 
2.098-01 
2,098-01 
2.C90-H 
2.471-01 
1.142*00 
2.860*00 
4.582*00 
6.308+00 
0.038+00 
9.771*00 


•3.872-02 
•4.727-02 
-5.583-02 
•6.439-02 
■6.957-02 
-6.976-02 
•6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
•6.957-02 
-6.439-02 
-5,583-02 
-4.727-02 
-3.872-02 
•3.017-02 
-2.162-02 
•1.309-02 
•4,575-03 

3.916-03 

1.236-02 

1 .236-02 

3.914-03 
•4.572-03 
-1.308-02 
-2.161-02 
•3.014-02 
■3.868-02 
•4.722-02 
-5.576-02 
•6.431-02 
■6.957-02 
-6.976-02 
-6.976-02 
-6.976-02 
•6.976-02 
-6,976-02 
-6.976-02 
-6.957-02 
-6.431-02 
-5.576-02 
-4.722-02 
-3.868-02 
-3.014-02 
*2.161-02 


-1.619-01 
-1.606-01 
-1.593-01 
-1.580-01 
-6,844-03 
0.000 
0.000 
9.00* 
0.000 
0.000 
0.000 
6.844-oj 
1 . 580-01 
1.593-01 
1.606-01 
1.619-01 
1.631-01 
i.643-01 
L.656-01 
1 . 666-01 
U600-01 
1.692-01 

-1.715-01 
-U710-01 
-1.704-01 
-1.69B-01 
-1.692-01 
- 1 . 686-01 
-1.680-01 
-1.674-01 
-l.6b7-01 
-1.661-01 
-7.219-03 
0. 000 
o.ono 
o.ooo 
o.ooo 
0.000 
O.ooo 
7.219-03 
1 , 661-01 
1.667-01 
i.674-01 
1.680-01 
1 . 686-01 
1.692-01 


9.861-01 
9.059-01 
9.856-01 

9.853-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.853- 01 
9.856-01 

9.859- 01 

9.861-01 

9.861- 01 

9.862- 01 
9.861-01 

9.860- 01 
9.858-01 
9.855-01 

9.851- Oi 
9,653-01 

9.854- 01 

9.854-01 
9.853-01 

9.852- 01 

9.850- 01 
9.648-01 
9.844-01 
9.840-01 

9.976-01 

9.976-01 
9.9?6-11 

9.976-01 

9.976- 01 

9.976- 01 

9.976- 01 

9.976-01 
9.840-01 
9.844-01 
9.848-01 

9.850- 01 

9.852- 01 

9.853- 01 


JU0FLAC i 
V6LUE 28 


2 3 

e 2 


9 10 11 1* u 14 15 16 17 18 19 20 
4 u a i j 1000114 


EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PACE 
ALFA* .00 NACHNO- .00*r ALT ITUDE = ** + *** B 


J 

K 

XV 

YV 2V 

AAV 

1Y V 1ZV 

XN 

YN 

l N 

1XN 

LYN 

IIH 

25 

4 

2.506+01 

1.002+02 -1.070+01 

0. Ut 

9.834-01 -1.686-01 

2.847+01 

1.9 32+02 

-1.151+01 

-1.308-02 

1.698-01 

9.854-01 

26 

4 

2.573**1 

1.101+02 -1.240+Qa 

<j. tu T-Oc 

9.833-01 -1.697-61 

2,869+01 

1.151+02 

-1.325+01 

-4.372-03 

1.704-01 

9.854-01 

27 

4 

2.641+01 

1.201+02 -1.412+Oi 

*4 . OJO-Oci 

9.831-01 -1.708-01 

2.891+01 

1.251+02 

-1.500+01 

3.91 4—03 

1.710-01 

9.853-01 

26 

4 

2.708*01 

l.300+02 -1.585+01 


9.829-01 -1.T20-01 

2.914+01 

1.350+02 

-1.074*01 

1 .236-02 

1.715-01 

9,851-01 

EOF 

PLJJ 

T FILE 

l i — FILE § 1 ~ WING 

GEOMETRY 


r 

• SOLID LINE 

INDICATES TEE OUTPUT! HAS 

BEEN EDITED 







JUBFLAG 1 
VALUE 28 


2 3 4 5 6 7 8 9 10 11 u i-> 14 15 16 17 18 19 20 

82324344©ilJl0f>'J114 


LIFTING SURF AC F. N0= 2 

*«(.***?«*»**•*• + ***** 


EXAMPLE PRU0LEM NO. i - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA= .00 MACHNO- .OOOC ALTlTUDE*♦♦♦+♦♦ 9 

SURFACE # 2 - HORIZONTAL TAIL 


span 

KOCT 

CHORD 

TIP 

CHORD 

KuU I 
i ICC J i 

I A P 

Till ST 

area 

ASPECT 

RATIO 

MEAN 

CHORD 

MGC 
l MAC > 

YBAft 
(MGC J 

XB Aft 
(MGC) 

Z BAR 
[ HGC 1 


80.00* 

33.000 

20.non 

-2 .ujuv 

-6 .0ooo 

20*0.00 

3.20*0 

25.000 

25.333 

16.66 7 

131.000 

-19.337 


FLAP 
SPAN 1 
»*0O 

FLAP 
SPAN2 
40.*00 

FLAP 
SPAN3 
4*.*00 

FlaP 
Uctlcg 
- 3y . 

I AH 

JtFL EC 
.000 

L. AIL 

OEFLEC 

.TO* 

K. Alt 
OTFLEC 
.000 

QIHEO. 

MGC/4 

.0*0 

Sweep 

MGC / 4 
10.620 

NO.SPAN 
ELEMENTS 

8 

NO.CHHftO 

ELEMENTS 

3 

NO.CHGRO 

UISCUNT. 

1 





FUj 

XluoJ 

. tlUCI 

n 1 ocvj S T A 

Y i L l> J 
.030 

hL STA 
i LCLp J 
.ooo 

AREA 

SI CGI 
3200.000 

ChOPO 

CICG) 

32.6BI 

SPAN 
ttICGI, 
280.0** 


ORIGINAL PAGE IS 
OF POOR QUALITY 

IS 

Y 

l 

XI LO 

AC c./ H J 

K(It) 

TM ST 

DlHtlC/41 

SWEP I C/4) 

Cl WING) 

CIFUP) 

C(TAB) 



-40.0*0 

-40.00* 

-23.0*0 

13 J. jcl j 

-36.on 

-36.0*0 

-2o.OO* 

1 2 Y« 

-32.00* 

-32.00* 

-2*,*00 

12o. c/i/G 

-28.or* 

-28. COO 

- 21 . 1*1 

12 7. J uu 

-24.*** 

-24.0*0 

-2*.*0* 

1 2ci . uuu 

-2* .*** 

-20.0*0 

-20.000 

125. JUU 

-16.*** 

-lo.rir 

-20.*** 

12>t. uu>j 

-12 .*** 

-12.*00 

-20.00* 

12->.vOo 

-8.000 

- H . ** * 

-20.0*0 

12^ t^cjj 

-4 .*** 

r 

-2*.*n* 

121 . <4 m 3 

.0*0 

.00* 

—2*.0** 

120, 

4.**o 

4.00 0 

-20.00* 

121 • 0 J ^ 

8.*** 

8.00* 

-20.r .1* 

1 2* , juj 

12.000 

I 2 .ro* 

-20,*00 

12J ■ uu j 

16.0** 

lo. 1*n 

-2r.**n 

1 2<+ . v 

20. or •> 

2*. on* 

-2*,*00 

1 2u a Ol/U 

24.*** 

24.0*0 

-20.00* 

12o■00J 

28.*0* 

28.ro* 

-20.70* 

12/. uOu 

32.0-vi 

32.*** 

-20.00* 

1 2 o« 0 sJ <j 

36 . OfO 

36.000 

-20.000 

129.^00 

40.000 

47.000 

-20.000 

130,UuD 


u;. >00 

153.00T 

-2.00* 

.000 

i i*». 2 50 

15 1,00* 

-2.0** 

.00* 

500 

15 T.*00 

-2.*0* 

.**0 

750 

15 ). >0* 

-2.*9* 

.00* 

Ij^.000 

15 ), >00 

-2.*0* 

.000 

1>L .250 

15‘.0*T 

-2.*00 

.0*0 

ij>J. 500 

15 ).0*0 

-2.0*0 

..**0 

Cc4.75* 

15'. 0** 

-2.000 

. 0** 

i^-y.000 

L5*.*0* 

-2.00* 

„ *n* 

l^u.250 

L ^ ^ 

-2.00* 

. *ro 

Ll. {. 509 

15^.0*0 

-2.0** 

-.909 

ccj.250 

L5< .00* 

-2.3*0 

.*00 


15C-.0** 

-2.*no 

.*00 

lc'*. 750 

150.000 

-2.*** 

.000 

uJ. 5 00 

151.0*0 

-2.*00 

.*00 

Ui.2 50 

15'*. OO* 

-2.10* 

,010 

L j2.*00 

15 j.or* 

-2.0** 

.*0* 

uz. 750 

15 

-2.00* 

.001 

i jj. 5 TO 

15 J, 0*-> 

-2.*** 

. Oil 

l j*.250 

150.00* 

-2.00* 

. no 

1J3.000 

150.001 

-2.*00 

.00* 


— 1 *•62* 

20.1*C 

10.**1 

3.0*1 

-10.620 

21. OK 

10.100 

3.0*0 

-1 *.62* 

22.00C 

I?.*** 

3.00* 

-1*.62* 

23.11C 

10.10* 

3.0*0 

-10.62* 

24.*K 

10.*** 

3.000 

-10.620 

25.n*i? 

1*.*11 

3.0*1 

-10.620 

26 * 0*0 

10.00* 

3,**0 

-10.62* 

27.**r 

10.1*0 

3.000 

-10.621 

28.0*C 

10.*0* 

3.10* 

-10.621 

29, * rt •" 

l0.1** 

3.0*1 

36 * 866 


n.oo* 

3.000 

10.620 

29.**? 

10.10* 

3.*oi 

10.620 

28.01? 

in.no* 

3.1*0 

1*.620 

27.11C 

10.*** 

3.000 

1*.620 

26.11? 

10.10* 

3.000 

11.62? 

25.1*1 

l*.*oo 

3.100 

1*,62* 

24.00* 

1*.*01 

3.1*0 

1 *.62* 

23.101 

10.0** 

3.000 

10.620 

22 .**? 

10,*00 

3,300 

10*620 

21.000 

10.00* 

3. ?n 

10.621 

21.00C 

10.0*1 

3.10* 


6-14 




s 


6.2 EXAMPLE PROBLEM H 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 



35 

3 

1.423*02 

1.000*01 

-1.974*01 

U.OOQ 

1.000*00 

0.000 

1,475*02 

1.500*01 -1.991*01 

3.490-02 

0,000 

9.994-01 

36 

3 

1.425*02 

2.COO*01 

-1.974*01 

0.000 

1.000*00 

0.000 

1.475*02 

2.500*01 -1.991+01 

3.490-02 

0.000 

9.994-01 

37 

3 

1.425*02 

3 . OCO *01 

-1.974*01 

0.000 

1.000*00 

0.000 

1.475*02 

3.500*01 -1.991*01 

3.490-02 

O.OOn 

9.994-01 


FILE # 2 = HORIZONTAL TAIL GEOMETRY 


(EOF PLOT FILE 2* 

^-OX. TO IGNORE 
* l) IV IDE CHECK AT 026442^ 



JOBFL4G l 2 3 4 5 6 7 8 9 lu 11 u ii U 1!« L6 17 18 19 20 EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 


ALUF 26 

6 2 3 2 

4 3 4 

4 u l 

10 10 

0 D 1 

l 4 

AL F A = 

00 MACHNO* . OOOC 

ALTITUDE* 

****** 








SURFACE if 

5 - FUSELAGE 







LIFTING SURFACE NU= 3 






SPAN 

ROOT 

CHCRO 

TIP 

CHCRO 

HUuT 
1*1 ST 

1 1 P 

T * I ST 

AREA 

ASPECT 
RAT IQ 

MEAN 

CHORD 

MGC 
(MAC J 

V6AR 
(MGC J 

XBAR 
( MGC 1 

2 BAR 

( MGC ) 

.000 

eo.ooc 

200.000 

,0000 

. oOOO 

.06 

.0000 

.000 

148.568 

.ooc 

-12.BOB 

-11.428 

fLAP 
SPAN 1 

.000 

FLAP 

SPAN 2 
. 60C 

FLAP 

SPAN3 

1.000 

Flap 
OtFcfcL 
. Ouu 

TAB 

utP'LEC 

.300 

L . AIL 
DEFLEC 
.COO 

R.AIL 

DEFLEC 

.000 

DIHLD. 

MGC/4 

89.999 

SWEEP 

MGC/4 

56.310 

NO.SPAN 

elements 

2 

NO.CHORD 
ELEMENTS 

4 

NO.CHORD 
OISCQNT. 
0 




F US i TA 

XI Lb) 
.000 

* 1 No S T A 
VICGl 
.300 

NL STA 

2 ICG I 
.000 

AREA 

SI CGI 
8200.000’ 

CHORD 

CICGJ 

32.681 

SPAN 

8 (CG> 
280.000 





MS 

Y 

2 

X ( Lt > 

AIL/**! 

XITE1 TWIST 

D1HE1C/4J 

SWEPCC/4* 

C( WING) 

C1 FLAP 1 

CCTAB) 

-20,onn 

♦aoc 

-20.000 

—50.UUD 

.000 

150.000 

.000 

-89.999 

-56.310 

200.OOC 

50.000 

25.000 

-18.900 

.000 

-18.000 

-5D* JUD 

-3.000 

130,00" 

.000 

-89.999 

-56,310 

188.OOC 

47.000 

23.500 

-16.300 

.000 

-16.000 

-5O.UO0 

-o.OOO 

12b.000 

.009 

-89.999 

-56.310 

176.000 

44.000 

22.000 

-14*""P 

.000 

-14.000 

-50.DDU 

-9.000 

114.000 

.009 

-89.999 

-56.310 

164. OOC 

41.000 

20.500 

-12."<"0 

.000 

-12.000 

-50.DOu 

-u.oao 

10 2*00" 

.003 

-89.999 

-56.310 

152. OOC 

38.000 

19.000 

-ici.oro 

.000 

-10.000 

-50.UDU 

-15.000 

90.000 

.099 

-89,999 

-56,310 

140. aac 

35.000 

17.500 

-8."0" 

.nno 

-8.000 

-50.UOO 

-18.000 

78.030 

,009 

-89.999 

-56.310 

128,OOC 

32.000 

16.000 

-b.'orn 

.000 

-6.naa 

— 50.JOO 

-21.000 

66.000 

.099 

-89.999 

-56.310 

116. OOC 

29.000 

14,500 

-4.003 

.000 

-4.000 

-5i>.JgD 

-24.000 

54.00" 

.009 

-89.999 

-56.310 

104.OOC 

26.000 

13.000 

-2.000 

.000 

-2.000 

-50.DUD 

-2/.ooo 

42.000 

.00" 

-89.999 

-56.310 

92.OOC 

23.000 

11.500 

.000 

.000 

.000 

-5U.U0U 

-3D.000 

30.000 

.009 

26.565 

-74.835 

80.000 

20.000 

10.000 

2.00O 

,ooo 

-2.000 

-6D.0UD 

-27.000 

42.000 

.000 

B9.999 

56.310 

92.000 

23.000 

11.500 

4.000 

.000 

-4.000 

-Sg.gQd 

-*4*000 

54.300 

.009 

89.999 

56.310 

104.OOC 

26.000 

13.000 

6.0"0 

.000 

-6.000 

-SO.uDU 

-cl .000 

66.000 

.009 

89.999 

S6.310 

116.000 

29.000 

14.500 

8.000 

.000 

-8.000 

-5U.00D 

-16.000 

78.000 

.009 

89.999 

56.310 

128.000 

32.000 

16.000 

10.300 

.000 

-10.000 

-50.000 

-15.000 

90.000 

.o m 

B9.999 

56.310 

140.000 

35.000 

17.500 

12.000 

.000 

-12.000 

-50.ODD 

-12.000 

102.090 

.000 

89.999 

56.310 

152.000 

38.000 

19.000 

14.000 

.000 

-14.000 

-50. uUj 

- 9.000 

114.000 

.009 

69,999 

56.310 

164.000 

41.000 

20.500 

16.000 

.000 

-16.000 

-5J.000 

-d.QQD 

126.000 

.009 

89.999 

56.310 

1 76.000 

44.000 

22.000 

18.00" 

.000 

-18.000 

-50.000 

-3.000 

138,000 

.000 

89.999 

56.310 

188.000 

47.000 

23.500 

20.000 

.000 

-20.000 

-50.000 

.000 

150.000 

.000 

B9-999 

56.310 

200.000 

50.000 

25.000 



39 4 1 ■ 12 5+02 0.000 -2.000*01 -V. 7Y&-01 0*000 2*009-0 1 8. 125*0 1 0.000 -1.000*01 0.000 -1.000*00 0.000 

40 4 1.500*01 0.000 0.000 V. JVo-Oi 0.000 -2.009-0 1 8.125*01 0.000 -1.000*01 0.000 1.000*00 0.000 


(EOF PLOT FILE 
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FILE # Z 


FUSELAGE GEOMETRY 



J06FLAG 1 2 3 4 5 6 7 8 9 u> li 12 13 14 15 lb 17 18 19 20 EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 

VALUE 28 82324344O4.1J1000114 ALf A= .00 NACHNO* *000C AL T l TUOE »*•**♦• 14 


SURFACE 14 - VERTICAL FINS 

LIFTING SURFACE NO^ 4 ' 

********************* 


span 

ROOT 

CHORD 

TIP 

CHORD 

Kuul 

I Hi si 

TIP 

ThI ST 

AREA 

ASPECT 
RAT 10 

MEAN 

CHORD 

MGC 

l MAC ) 

YBAR 
(MGC ) 

XBAR 

I MGC 1 

l BAR 
(MGC* 

3".ofn 

25.OOC 

10.000 

. UUOO 

.ooao 

525.00 

1.7143 

17.500 

18.571 

40. OOC 

136.072 

-22.857 

FLAP 
SPAN 1 
.000 

FLAP 
SPAN 2 
30.000 

FLAP 
SPAN 3 
30. 000 

FLAP 

OtF LtC 
3O.U0u 

TAB 

DEFLEC 

.000 

L.A1L 

DEFLEC 

.000 

R.AIL 

DEFLEC 

.ooo 

DINED. 

MGC/4 

89.999 

SWEEP 

MGC/4 

20.556 

NO.SPAN 
ELEMENTS 

3 

NO.CHORD 
ELEMENTS 

4 

ND.CHORD 
01 SCONT. 
1 




FUb STA 
XI LG* 

♦ ogg 

hINjj STA 
YILGJ 

.ooa 

NL STA 
21CGI 
.000 

AREA 

$ (CG> 
BZOO.OOO 

CHORD 

CICG) 

32.681 

SPAN 

BCCGJ 

200.000 





S 

Y 

l 

XILt* 

AU/4* 

XCTF 1 

TWIST 

DIHECC/4* 

Sw EPI C/4 I 

Cl WING* 

C { FLAP * C 

ITABJ 

.ooo 

40.000 

-10.000 

125.004 

i31.250 

158.000 

.000 

-14.036 

72.560 

25.OOC 

12.500 

2.500 

1 . 5" 0 

41.000 

-11.50" 

12^.750 

131.812 

150.000 

.00" 

09.999 

20*556 

24.2SC 

12.125 

2.425 

3.00" 

40.000 

-13.000 

126.500 

U2. 375 

ISO.000 

.oon 

B9.999 

20.556 

23.500 

li.750 

2.350 

4.500 

40.000 

-14.500 

127, Z50 

134.937 

150.000 

.000 

09.999 

20.556 

22.750 

11.3T5 

2.275 

6.000 

40.000 

-16.000 

128.000 

i . 5 00 

150.000 

.000 

89*999 

20.556 

22.OOC 

ii.ooa 

2.200 

7.5DO 

40.000 

-17.500 

12o. i 50 

134.062 

150.000 

.00" 

89.999 

20.556 

21.250 

10.625 

2.125 

9.0"C 

40.000 

—19.000 

12*. JUO 

134.625 

150.000 

.000 

89.999 

20.556 

20.50C 

10.250 

2.050 

10.500 

40.000 

-20, 50" 

130.450 

13’j.iai 

150.000 

,non 

09*999 

20.556 

19.75C 

9. 875 

1.975 

12.000 

40.000 

-22.oon 

131.000 

13 3. 7 SO 

150.COO 

."00 

09.999 

20.556 

19,OOC 

9.500 

1.900 

13,500 

40.000 

-23.500 

131. hj 

130.312 

I 50.000 

.000 

89.999 

20*556 

IB.25C 

9. 125 

1.325 

15.000 

40.000 

-25.000 

134. jwU 

130.875 

150.Don 

.000 

89.999 

20.556 

17.50C 

0.750 

1.7 50 

16.500 

40.000 

-26.500 

13 3 • 4 . >0 

13 7.437 

150.000 

.*oo 

89.999 

20.556 

16.75C 

8.375 

1.675 

ld.noo 

40.000 

-2B.OOO 

134.000 

i. jo * 000 

150.000 

.000 

89.999 

20.556 

16.000 

8.000 

1.600 

19.500 

4".000 

-29.500 

134./1>0 

I3ct. 562 

150.000 

.000 

89.999 

20.556 

15.25C 

7*625 

1.525 

21.000 

40.000 

-31.000 

135*500 

1JV.125 

150.00" 

.0"D 

89,999 

20.556 

14.50C 

7.250 

1.450 

22.500 

40.000 

-32.500 

13i»« 4. 5J 

139.687 

150.030 

.008 

09.999 

20.556 

13.750 

6.875 

1.375 

24.O00 

40.000 

-34.000 

137.JDO 

190.2 50 

150.000 

.000 

89.999 

20.556 

13.OOC 

6.500 

1.300 

25.500 

40.000 

-35.50C 

137. /5o 

140.812 

150.000 

.000 

B9.999 

20.556 

12.250 

6. 125 

1.225 

27.00" 

40.000 

-37.000 

13t> . u w«u 

±41.375 

150.008 

*"on 

89.999 

20.556 

U. 50C 

5.750 

1.150 

28.500 

40.000 

-38.500 

139.2^0 

141-937 

150.000 

.000 

89.999 

20.556 

10.750 

5.375 

1.075 

30,000 

40.000 

-40.000 

140.OOP 

142.500 

150.000 

.ooo 

09.999 

20.556 

10.000 

5.000 

1.000 


6-15 


b 





6.2 EXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


JDBFLAG 1 


7 8 <) ii) ii 13 14 1 !> 10 L 7 18 19 2* 


EXAMPLE PROBLEM NO, l - MULTIPLE SURFACE ANALYSIS CAP PAGE 

I 5 


VALUE 28 

8 2 3 2 4 3 4 

4 0 4. 

1 0 l 0 

0 0 1 

1 4 

ALFA* 

.00 MACHNO 

* .OflflC 

altitude* 

****** 


XA<1)/C 

XA121/4 

AA4Jl/C 

XA< 4) / C 

XAI51/C 

XA< 61/C 

XAI71/C 

xAm/c 

KAC9I/C 

xa( tm /c 


,0000 

1,uuOO 

.oooo 

.0000 

,0000 

,0000 

.0^00 

.oooc 

.0000 

.0000 

X 

y zaid/c 

2AUJ/C 

«. A1 3 1 / C 

2 A < 4) / C 

ZAC 51/C 

24(61/L 

ZA47J/C 

ZA(ai/c 

ZA|9)/C 

ZAtlM /C 

I5i.n07 

iso.onin 
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9.000 

53 

3 

-1.875+91 

4.0^9+01 

l.ftH + Ol 

7.474-01 

0.099 

-6.644-01 

-V.375+oft 

4.009+01 

5.000*oo 

1.909 

1.900+00 

9.090 

54 

3 

-7.590+0'' 

4.109*01 

9.009 

0.0 JO 

n, inn 

-1.010+90 

- 2.5 n 0 *0° 

4.000+01 

-5.000*90 

0.990 

l.OCft+Clft 

0.000 

50 

4 

-1.375*01 

-4.909*91 

1.000+9 A 

tf* 3l i-jl 

0.19 9 

-5.241-91 

-1.875+10 

-4*000+01 

5.C19+10 

ft. 909 

1 .000+00 

0.000 

51 

4 

2.599+ot 

-4.919+01 

0.019 

U. UJu 

0.009 

-i.900*01 

7.509+09 

-4.900*01 

-5.009*00 

9.090 

1.000+90 

9.000 

53 

4 

-L.375+91 

4,CC9+91 

l.ino+ii 

t*. yL 7-ul 

0.009 

-5.241-01 

-1.875+09 

4.990+01 

5.C00+00 

9.009 

1.001*09 

ft. 000 

54 

4 

2.500*01 

4.000*91 

9.900 

O.juO 

0.009 

-1.190*09 

7.590+00 

4.oro+9i 

-5.COO*HQ 

0.919 

l.000+00 

ft. 000 

5ft 

5 

-0.750+90 

-4.099*01 

1.900+01 

V. U40-U1 

1.0 1ft 

-4.250-01 

5.625+00 

-4.0C0+11 

5 * 000+10 

0.009 

i.ooo+oo 

0.000 

51 

5 

1.259*01 

-4,9no + H 

9.099 

u.uOJ 

9.000 

-1.900+09 

1.750+01 

-4.909+91 

-5.000+ 00 

1.099 

1 .009+09 

0.000 

53 

5 

-8.750*90 

4.909*91 

1.990+01 

9. U4O-01 

0.900 

-4.258-01 

5.625+01 

4.oro+oi 

5.900+91 

0.990 

i.ifto+ai 

o.oai 

54 

5 

1.250*01 

4.009+91 

1.019 

u. OOO 

0.900 

-1.000*09 

1. 750+91 

4.900*91 

-5.009*00 

9 . lift 

1.000+90 

0.900 

50 

6 

-3,750*09 

-4.CftO*ftl 

i.000+91 

V* J4a-0l 

0.009 

-3.569-01 

L. 312+91 

-4.100+01 

5.990+00 

0.909 

1 .000*00 

9.009 

51 

6 

2.250+01 

-4.099+01 

0.000 

0.000 

0.990 

-1 .090*01 

2. 7 50+01 

-4.009+01 

-5.090+10 

0.000 

1.090+90 

0.000 

53 

6 

-3.759*09 

4.000 +01 

1.000+91 

V. 343-01 

0.990 

-3.560-91 

1 . 312+01 

4.090*01 

5.090+90 

0.900 

1 .000+00 

0.009 

34 

6 

2.259*01 

4.990*01 

0.909 

0.000 

9.090 

-1.010+19 

2.7 50 +01 

4.000+01 

-5.090+99 

0.099 

1.090+09 

0.009 




^ FILE 
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• ENGINE NACELLE GEOMETRY (IMAGE) 







teoF 
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2 EXAMPLE PROBLEM § 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


JOBFLAG 1 
VALUE 14 


3 4 

2 3 


5 6 

2 4 


0 9 ID li 12 l.> 14 15 16 17 18 19 20 

44oiiUl n 0'>lf'4 


EXAMPLE PRUbLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PACE 
ALFA* .09 MACHNO- .O0OC ALT ITUDE«*♦**** 22 


UNPUT 




KUUT 

- 

♦6, 


KT1 

s 



KT2 

S 

+ 8, 


KT 3 

* 

♦3, 


LINX 

= 

♦ 56, 


NM ING 

3 

♦ 2, \ 

ONLY SURFACES 8 1 AND 8, WIRG ♦ TAIL ARE CONSIDERED NOW 

NVTAIL 

B 

+0, S 

NFUS 


♦0, 


CQLOCP 

= 

.7 5000 COOE+00, 


CUT0F1 

= 

.in09<* C rr E _o3, 


CUT0F2 

= 

♦ 2 900 99C0E-92, 


LfLAP 

= 

+o. 


GSCALE 

S 

♦lOCOCOCOE+Ol, 


NSS 

♦12, 

♦3, 

♦ 5, ♦ 7 , +9r 

NCS 

+ 2, 

+ 2 , 

♦*# +2, *2, 


.lS0OOn99£ 

. isnnoonnE 
jmonnonF 
.onoO00n9E 
.oooooooot 
.OOOOOOOnE 
.000009OOE 
Y = 

.onnooonoE 

.400O0OO0E 

*40000"''"■ 


NFLG 


♦ 03, 
+ 93, 

♦ 02 , 
♦ 00 , 
♦ 00 , 
♦ 00 , 
+ 00 , 


3 0000009E+02* . 

,15000000E+03, 
,ISOCOOOOE+03, 
■OCOOOOOOE+OO, 
.OOOOOOOOE+OO, 
,COooooooE+ro, 
.ococooooe+oo, 
.OnoOMJOOE+OOr 

oncooom+co. 


.AOOnrv’' 



30JUyUUUt + J2 , 

-.3Crl)j J J D Jl + 92 
JUUQOOUUt+02 
.uDOOUDjub+OO 
.uUOJUUDDt+OO 
. QJOJDOUUL^OO 
.UUu3UUUUt+O0 
.ODd-'*' 


.-vn♦OU, 


.-.-♦U2* ♦ 15uUUU«j<JL + U2 « 

.ooooooooE+oo, .Quuooaout+ao 


, 30900000E+02, 

, 50000^00F+02, 

, -♦)00'V19rt0EO2. 

, .000000006+00, 

. .OOOOOOOOF+09 

.000^' 

«,’>E+00, 

.roooooooetoo, 

.f'OOOOOOOE+OO, 

, .naooooooE+oo# 


NSQLV 


*END 


-n'OE+OO, 

.COOOOOOaE+nn, 

♦Dujuojoufc+not 



+ 14, 

+ 4, 

+ 2, 

+ 2, 

♦ 4, 

+ A « 

♦ 4 

♦4, 

♦ 6, 

+ 1, 

♦ 1 

+ 0, 

+ 1. 

♦ 0, 

♦0 

+ 0, 

+1« 

♦0 » 

♦ 4 

* 

♦1* 

♦ if 

+ 1. 

+0 r 

+0, 

♦ J» 

♦ 0 

+ 0, 

♦ 0, 

♦J, 

♦ 0 


♦ 3, 


♦2 i 




JOBFLAG l 
VALUE 14 


2 3 4 5 6 7S 

4 2 3 2 4 3 4 


9 10 lx 12 1 j 14 15 16 1/ 18 19 20 
4 a x 1 0 1 C 0 0 1 ^ 4 


EXAMPLE PRUBLEM NO. I - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA* .00 MACMNO* .9000 ALTITUDE******* 23 


SURFACE 8 1 - UTSG 

LIFTING SURFACE Nil- 1 

***+■**#♦+♦******♦***♦ 


SPAN 

ROOT 

CHORO 

TIP 

chord 

K^U T 
T«ri SI 

Tip 

I*»l ST 

AREA 

200,000 

40.000 

10.000 

4. ClUUu 

-i.ulOD 

8159.99 

FLAP 

spani 

■ in 

FLAP 

SPAN2 

49.009 

FLAP 
SPAN 3 
149.000 

FlmF 

Oc Flll 
3J.uGu 

Ub 

uLFLEC 

.ono 

L.AIL 

DLKLEC 

-29.090 




FUo bl* 
XUbi 

• Ou v 

M HK* STA 

Y 1 lG J 
.000 

WL STA 
7 ICGI 
.000 


ASPECT 

RATIO 

MEAN 

CHORD 

MGC 
(MAC \ 

YBAR 
( MGC \ 

KBAR 

IMGC \ 

ZBAR 
< MGC ) 

9.5615 

29.284 

32.681 

56.591 

5.489 

-5.b55 

R. AIL 

UEFLEC 

15.009 

DIHED. 

MGC/4 

10.000 

SWEEP 

MGC/4 

12.494 

NU.SP6N 

ELEMENTS 

14 

NG.CHORD 
ELEMENTS 

4 

Na.CHQRC 
0[SCONE. 

1 

AREA 
S(CG> 
8200,009 

CHORD 

C ICG) 

32.681 

SPAN 

8 ICG) 
28C.0OO 





WS 

Y 

L 

XI U * 

xic/+) 

X 1 T L ) 

-141.543 

-140.000 

-17,633 

2u.uDu 

.500 

30,000 

-12T. 388 

-126.061 

-15.175 

1 Di Dio 

19.364 

30.909 

-113.234 

-112. 122 

-12.717 

11,bjo 

io.227 

JO.300 


4 ^ ^ 


* 

p<”'* 

♦, ■M ft <S ^ 

"'-'-J 


twist 

DIHEIC/4J 

SWEPCC/4) 

C I Ml 740 

ciflapi 

CITAB) 

-l.000 

-10. OO-o 

-12.494 

id. nor 

3.000 

• BOO 

-.303 

-10.000 

-12.494 

14. 182 

4.255 

1.135 

.394 

-10.000 

-12.494 

18.364 

5.509 

1.469 



JOBFLAG 1 
VALUE 14 


9 iJ 11 it xj 14 15 16 17 18 19 29 
4oliJl r iO-lir4 


EXAMPLE PKU81EM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA- .00 MALHND* . 09QC AL TlTDDEs****** 2 7 


LIM l NO SukFaCC NU- 2 


r 


SURFACE 8 8 = HORIZONTAL TAIL 


SPAN 

ROOT 

chgro 

TIP 

CHORD 

kuuT 
T*1 31 

1 i p 

uisr 

AREA 

ASPECT 

RATIO 

MEAN 

CHORD 

MGC 

[MAC > 

YbAR 

1 MGC I 

X8AR 

I MGC I 

ZBAR 

I MGC ) 

BO.onfl 

30.0or 

20."00 

—2. j J ^ j 

-t. l. 300 

2? 

3.2449 

25. A oo 

25.333 

18.667 

131.009 

-19.337 

FLAP 

SPAfil 

.900 

FLAP 
SPAN 2 
49.000 

FLAP 

SPAN3 

40.000 

Flap 
DlFl tc 
-1G.J Uu 

IG*B 

utFLLC 

.000 

L.AIL 

DtFLbC 
. 9Q0 

R.AIL 

DEFLEC 

.^90 

DIHEO. 

MGC/4 

.000 

SWEEP 

MOC/4 

10.629 

NO.SPAN 
ELEMENTS 

4 

NO.CHORD 
ELEMENTS 

3 

NG.CHORD 
niSCONT. 
1 



. 

f us j r a 
XU, i*l 

,'JUJ 

i* 1 J,i» STA 

YicG) 

.DO 

WL STA 

Z ICG) 
.CO' 1 

ARtA 
SICGI 
ri209.roo 

CHORD 

C1CG1 

32,661 

SPAN 

B(CG> 

280,000 





HS 

Y 

2 

X ILLY 

A ( k,/*» J 

XITH 

TwfST 

DIhEIC/41 

SWEPIC/4) 

Cl hi NO 

C I FLAP \ 

C(TAB) 

- 40 .-'99 

-4''. 000 

-20.nor 

1 3U. i /ju 

u>. TOO 

15'.non 

-2.000 

.009 

-10.620 

20.OOn 

L 0.n09 

3.999 

-36.000 

-3G,90<* 

-20.000 

12 9. iiUU 

ij,, i 50 

150.099 

-2.00 A 

.9^9 

-in.629 

21.HOC 

lO.nnn 

3.090 

-32,90-0 

-i2. A nr 

-20.000 

12o . o uu 

X 5 3.500 

15", 00* 

-2.099 

. o^o 

-10,620 

22 . GO 0 

19.000 

3.090 

-28.oor> 

- 28 .nn r 

-20.nor 

12 / . \J Lr ii 

1j2.750 

15" .99 "5 

-2.009 

. A 09 

-10.620 

23.^or 

to.009 

3,099 

-24.099 

-24.090 

-29.000 

12u . uuu 

lit.009 

150.099 

-2 .non 


-I 0 . 62 n 

24.000 

19.000 

3.90 9 

-20.nr o 

-2^.090 

-2'.0OP 

1 4 ^ I v vl J 

iJi.259 

15^.999 

-2.099 

.009 

-10.620 

25.OK 

19.000 

3.990 

- 16.0 r o 

-Lb.Ono 

_ r - 

-20.000 

1 2h . ouo 

ijg.690 

159.090 

-2.000 

. ?on 

-10.62 n 

26. "'Or 

^ 1 - 

19.909 

3.099 
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6.2 EXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


JOBFLAG 1 
VALUE 14 


l 3 4 5 4 ? 

4 2 3 2 4 3 


9 UO 11 12 13 1* H 16 IT II 19 20 E»»N*E PR09LEN NO. 1 - '‘i,' 

^ 45 ^ 101000104 ALFA« -00 HACHNO* -0000 ILTITlfiE 

‘ NOTATION = 3 INDICATES A SOLUTION FOR SURFACE If 1 IS OU: 


r 


CONSIDERING SURFACE if 1 ONLY 


J K 
7 4 


10 

ID 

10 

10 


11 

11 

II 

11 


12 

12 

12 

12 


13 

13 

13 

13 


14 1 
14 2 
14 3 
14 4 




lift distribution detail 

-SURFACE 

•*****+♦* 

NO.- 1/1 4 
#+***«**•« 

* n 

* * * * 





PI X > 

P< Y 1 

pm 

ARFA 

CPN 

Glx ) 

GI Y i 

GC 2) 

VI CXI 

VI 1 Yl 

VI cz 1 

GAMA 

IT.TTJ 
20.801 
23.831 
27.056 

- 130.043 
-130.043 
-130.043 
-130.011 

If.795 
15.815 
15.836 
15.673 

61.2737 

61.2737 

61.2737 

78.7805 

3.3527 

1.7490 

1.3456 

1.4206 

.341 19 
.05820 
,02500 
-.0B2 75 

-.06307 
-.150 14 
-.16349 
-.19426 

.95313 
.95501 
.97011 
.95 93 9 

.00601 

.00755 

.01244 

-.00291 

.04141 

- .0121 9 

- ,02245 

- .05451 

-. 1 7854 -.4900*01 
. 11125 -.2596*01 
. 14417 -.2020*01 
.24787 -.2750*01 

12.145 
16.569 
20.994 
25.685 

-110.130 

-no.no 

-110.130 

-110.066 

12.544 

12.500 

12.456 

12.046 

39.4594 

09*4594 

39.4594 

115.0192 

3.6325 

1.8395 

1.3923 

1,4516 

.36292 

.04458 

.01126 

-.09578 

-.04957 
-.146 16 
-.16091 
-.17 5 BO 

.96069 

.95622 

.97176 

.95316 

.01147 

.00767 

.01373 

-.01031 

.04791 
- .01210 
-.02520 
-.06225 

-.20024 -.7763*01 
.12551 -.3991*01 
.15789 -.3055*01 
.26009 -.41 14*01 

b. 520 
12.338 
18.156 
24.326 

-90.217 

-90.217 

-90.217 

-90.133 

-5.490 

-9.332 

-5.175 

-8.530 

117.6450 

11 7. 6450 

U 7 . 64 5 0 

15 1.2579 

3.6836 

1.8443 

1.3934 

1.4599 

.35231 

.02797 

-.00604 

-.11109 

-.04444 
-.14293 
158 67 
-.17427 

.96960 

.95842 

.97241 

.95098 

.01632 

.00863 

.01407 

-.01234 

.05107 
-.01114 
-.02837 
-.07 074 

-.18046 -.1037*02 
.14300 -.5268*01 
.1 7523 -.4023*01 
.27510 -.5444*01 

.894 

8.106 

15.319 

22.967 

-70.304 
-70.304 
-70.304 
-70.20 0 

-6.631 

-fc.312 

-5.993 

-5.060 

145. 33 07 

145. 8307 

145.6307 

1 87.4966 

3.6999 

1.6325 

1.3765 

1.4587 

.340 16 
.01275 
-.02220 
12940 

-.03982 
-. 13974 
-.15653 
-.17317 

.90 049 
.96273 
.97496 
.95062 

.02646 

.01119 

.01600 

-.01264 

.05686 
-.00709 
-.02896 
-.07727 

-.17402 -.1292*02 
.15943 -.6496*01 
. 19170 -.4930*01 
.29190 -.6745*01 

-4.731 

3.875 

12.481 

21.551 

-50.391 

-50.391 

-50.391 

-50.237 

-3.969 
-3.440 
-2.910 
- 1.473 

174. 0164 
174.0164 
174.0164 

223. 7353 

3.7010 

1. 8367 
1.36 47 
1.5111 

.31920 

-.00222 

-.04057 

-.15875 

-.03878 

13817 

-.15699 

-.10925 

1.00180 

.97988 

.99271 

.95190 

.03905 
.02102 
. 02914 
-.00958 

.00887 
.02520 
.00085 
-.05840 

-.14914 -.1544*02 
.17948 -.7777*01 
.21522 -.5837*01 
.32466 -.0291*01 

-7.605 

1.713 

11.031 

20.707 

-30.327 

-30.327 

-30.327 

-30.231 

-2.661 
-2.011 
- 1.361 
.631 

136.4164 

199.4164 

198.4164 
242.2497 

2.9548 

1.8701 

1.8211 

2.5312 

.19307 

-.05007 

-.07307 

-.27833 

-.00159 
-.00323 
-.00 357 
-.02616 

1.03089 

1.02343 

1.04030 

.96685 

.05375 
.03948 
.05547 
- . 0172 5 

.05764 

.03440 

.01229 

-.03472 

-.0192 8 
.22382 
.24676 
.45125 

-• 1377*02 
-.8753*01 
-.8488*01 
-. 1531*02 

-7.667 

1.667 

11.000 

-10.110 

-10.110 

-io.no 

-2.634 
-1.981 
- 1.329 

18 8. 72 36 

138.7236 

188.7236 

3.3638 
1.9792 
1.7622 

.24995 

-.03493 

-.06998 

.00000 

.00000 

.00000 

1.03270 

1.0L830 

1,04286 

.04789 
♦ 03349 
.05005 

.00121 
-.00063 
-.00232 

-.07631 
.2 0 85 7 
.24363 

-.1570*02 

-.9236+01 

-.8317*01 

1 2 3 

14 4 2 

4 5 6 7 

3 2 4 3 

0 9 10 

4 4 6 

11 12 13 14 
1 l 0 l 

15 16 17 
0 0 0 

18 19 20 
l 0 4 

EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE AMALY5I5 CAP PA( 
ALFA- 10.00 MACHNO* .2000 ALTITUOE-****•* 3( 

ALTITUDE = *****444 (OVT-GF-RANGE) INDICATES OUT-OF-GROUND i 

PC XI 

PI Y! 

PI Zl 

AREA 

CPN 

GCX) 

GI Y ) 

G( l i 

VICKI 

VI C Yl 

VI 121 

GAMA 

20.598 

-10.110 

.871 

242.6446 

2.5103 

-.28709 

.00000 

.95976 

-.02505 

-.00408 

. 46074 

-. 1506*02 

-7.667 

1.667 

11.000 

20.598 

10.110 

10 . no 
10.110 
10.110 

-2.634 

-1.981 

-1.329 

.871 

18 8*7236 

13 8. 72 3 6 
188.7236 
242.6447 

3.0956 

1 ♦ 9 1 30 
1.7759 
2.5360 

.21128 

04119 

-.07342 

-.28774 

.00000 
.00000 
.00 000 
,00000 

1.03340 

1.02066 

1.04517 

.96247 

.04067 
.03586 
.06 036 
-.022 33 

- .00887 
.01086 
.03008 
.05741 

-.03764 

.21483 

.24707 

.46138 

-.1445*02 
-♦8927*01 
-.8287*OL 
1522*02 

-7.605 
1. 713 
11.031 
20.012 

30.327 
30.327 
30.32 7 
30.339 

-2.661 
-2.011 
- 1.361 
.151 

188.4164 

188.4164 

188.4164 

242.2497 

1.7018 
1.5863 
l.9069 

2.7306 

.008 32 
-.00934 
-.08257 
-.27140 

.00273 
.00 3 43 
.00 3 56 
.07493 

1.04643 

1.02816 

1.02887 

,97250 

.00073 
.04292 
.04394 
-.00857 

- .15159 
-.09623 

- .04469 
.05019 

.16573 
.26370 
. 2 563 6 
.44222 

-.7931*01 
-.7393*01 
-,8807*01 
-.1630*02 

-4.731 

3.875 

12.481 

21.623 

50.391 

50.391 

50.391 

50.327 

-3.969 

-3.440 

-2.910 

-2.705 

174.0164 

174.0164 

174.0164 

223.7354 

<►.1886 
1.2275 
,05 75 
-1.0120 

.46248 

.05966 

.01032 

.08627 

-.00276 
.12210 
.14506 
.20403 

.99352 

.95762 

.96196 

.96674 

.00629 

-.01324 

-.00576 

.00579 

- .17412 
-.07032 

- .02 547 

- .00429 

-.20819 
.12412 
.16699 
. 0861 5 

-.1740*02 
-.5197*01 
-.2460*00 
.55 96*01 

.894 

8.106 

15.318 

22.906 

70.304 

70.304 

70.304 
70.166 

-€.631 

-6.312 

-5.993 

-6.432 

145. 8307 
145. 8307 
145. 8307 
187, 4966 

2.7466 
.9020 
.17 29 
-.0072 

.29936 
.02562 
.00992 
.14641 

.04 753 
.13365 
. 14061 
.14447 

.95330 

.94006 

.95370 

.96873 

.00598 

-.00739 

-.00249 

.00081 

- .03044 
•02966 
.05172 
.03465 

-.13597 
.14276 
♦ 15 53 7 
.01952 

-.9593*01 
-.32 00*01 
-.6194*00 
.3739*01 

6.520 
12.338 
18.156 
24.277 

90.217 

90.217 

90.217 

90.106 

-9.490 

-5.332 

-5.175 

-5.636 

U 7. 64 51 
117.6451 
117. 645L 
151.2579 

2.22 43 
.7000 
.0548 
-.9040 

.25439 
.03237 
.02020 
. 16038 

.068 58 
.13975 
.15203 
.14504 

.94589 

.94366 

.95931 

.96904 

.00274 

-.00392 

.00165 

-.00002 

-.01894 

.02380 

.03363 

.01263 

-.0905 7 
.13448 
.14750 
.00076 

-.6260*01 

-.2000*01 

-.1583*00 

.3300*01 

12.146 

16.569 

20.994 

25.648 

110.130 
110.130 
110.130 
1L0.046 

- 12.544 
-12.500 
-12.456 

- 12.088 

89.4594 

89.4594 

89.4594 

115.0192 

1.0027 

.5268 

-.0457 

-.9785 

.22442 
.Q4149 
.03258 
. 17458 

,09557 
. 14521 
.15657 
.14715 

.94099 

.94626 

.96396 

.96912 

.00103 

-.00009 

.00583 

-.00024 

-.01156 
.02140 
.02580 
.002 93 

-. 06041 
.12722 
.13597 
-.00410 

-.3852*01 
-.1141*01 
.1003*00 
.2779*01 

17.771 
20.801 
23.83L 
27.039 

130.043 
130.04 J 
130.043 
130.000 

-15.795 

- 15.815 
-L5.836 

- 16.102 

61.2737 
61.2737 
61.2737 
78. 7 8 05 

1.4769 
. 36 56 
-.1681 
-1.0584 

.20591 

.05347 

.04725 

.18967 

.09940 
. 14903 
.15441 
.13981 

.93714 

.94730 

.96404 

.96958 

-.00036 

.0010S 

.00672 

-.00095 

-.00721 
.01920 
.02 022 
-.00176 

-.04189 
. 11496 
,12175 
-.01755 

-.2159*01 

-.5428*00 

.2524*00 

.2057+01 



SECTION AIRLOAD 

CGEFFICIENTS-SURFACE ND.= 1/C 1, 11 






JOBFLAG 1 
VALUE 14 


9 10 11 12 13 14 15 LA 17 18 19 20 

461101000104 


EXAMPLE PROBLEM NO. I - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA* 10.00 MACHNO- .2000 ALT 1TUDE»*•♦*** 31 


Y* Y l V SC N SCX 

-.4644 -130.043 -15.805 131-433 1.8747 -.2683 
-.3933 -110.130 -12.522 111*212 1.9819 -.2948 


SCL 

1.B92R 

2.0030 

6-19 


SCD 

.2789 
.29 30 


SMP t/* SCL C/9 


-.1718 

-.1648 


.0878 

.1356 


1 XL 

.0830 

.0961 


m 

.1551 
. 1349 


l ZL 

9844 
-. 9862 









2 EXAMPLE PROBLEM rf 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED? 


3 

-.3222 

-90.217 

-9.411 

90.992 

2.004J 

-.2704 

4 

-•2511 

-70.304 

-6.472 

70.771 

2.0121 

-.2422 

5 

-.1800 

-50.391 

-3.704 

50.551 

2.0607 

-.1946 

6 

-.1083 

-30.327 

-2.336 

30.331 

2.3410 

• 1312 

7 

-.0361 

-10.110 

-2.309 

10.110 

2.4373 

.06 52 

8 

.0361 

10.110 

-2.308 

10.110 

2.3674 

• 1151 

9 

. 10 83 

30.327 

-2.336 

30.331 

2.05 05 

*2090 

LO 

.1800 

50.391 

-3.704 

50.551 

.9796 

-•4496 

11 

.2511 

70.304 

-6.472 

70.771 

.622 3 

-.16 47 

12 

.3222 

90.217 

-9.411 

90.492 

.4004 

-.09 55 

13 

.3933 

110.130 

-12.422 

111.212 

.2207 

-.04 06 

14 

.4644 

130.043 

-15.H05 

131,433 

.059 0 

-.0140 


2.0207 

• 3011 

-* 1616 

.1600 

.1117 

.1206 

9864 

2.0236 

.3073 

-•1573 

.2234 

. 1284 

.1067 

-.9860 

2.0632 

• 3240 

-.1654 

.2718 

. 1599 

• 1465 

-.9762 

2.2S27 

.420 3 

-.3020 

,32 56 

.2765 

.0260 

-. 9606 

2.3889 

• 4346 

-.3557 

.3413 

.2866 

.0000 

-.9581 

2.3115 

.4311 

-.3721 

.3302 

.2864 

♦ aooo 

-. 9581 

1.9692 

.4063 

-.4763 

.2809 

.268 1 

-.0740 

96 06 

1.0428 

• 0920 

. 3296 

.1374 

.0870 

.2057 

. 9747 

.6415 

■ 07? 5 

.2238 

.0708 

.1478 

. 1459 

. 9762 

.4104 

• 0529 

.2246 

.0366 

.1615 

.1469 

. 9759 

.2258 

.0299 

.22 54 

.0153 

.1753 

.1478 

. 9734 

.0605 

.0078 

.2332 

.0028 

♦ 1891 

.140} 

.9719 


INTEGRATED At ft LOAD COEFFIC IE NTS-SUR F ACE NOS*- 1 - l 

***********************************»**i+* ********** + 


E 

FCN 

ECX 

FCY 

ECL 

ECO 

ECMP 

EC MR 

ECNY 

EX A 

E2A 

ES 

FMGC 

ER 

1 

1 

1.68 5 0 
.1404* 

-.0753 

♦1345* 

.0641 

.0037* 

1.6733 

.1149* 

.2196 

.1568* 

-.1030 

.0243* 

-.1375 
-.0094* 

-.0076 

.0092* 

5.49 

5.49* 

-5.66 

-5.66* 

8199.59 

8199.59* 

32.68 

32.68* 

28 0.00 
280.00* 


J08FLAG 123*56 
VALUE 1* * ? 3 2 4 


7 8 9 10 11 12 13 1* 15 16 IT 16 19 20 EXAMPLE PROBLEM ND. I - MULTIPLE SURFACE ANALYSIS CAP PAGE 

3 4 5* « l 101000104 ALFA- 10. OD MACHNO* *2000 ALTITUDE ******* J2 


*** AIRLOAD SUMS **♦ 


AC 

1.6658 

-.0753 

.0648 

1.6733 

.2186 

-.1030 

-.1375 

-.0076 

CG 

1.6857 

- .0753 

.0648 

1.6732 

.2186 

-.3992 

-.1388 

-.0063 

AC 

.1404* 

. 1 34 5* 

.0037* 

. 1149* 

.156 8* 

.0243* 

-.0094* 

.0092* 

CG 

.1404* 

.1344* 

.0037* . 

.1149* 

.156 8* 

.02 40* 

-.0095* 

.0093* 


5. *9 
.00 
5.*9* 
. 00 * 


* DETERMINANT* .172105 * SCALE* .4057-02 * 


-5.66 8199,59 32.68 

• 00 8200.00 32.68 

-5.66* 8199,59* 32.68* 

.00* 8200.00* 32.68* 


THE LIFT COEFFICIENT FOR THE WING ALONE, 1/(1,1), IS - 1.6732 WITH L.E. SUCTION (BLUNT L.E.) 

= 1.7881 NO L.E. SUCTION (SHARP L.E.) 


280.00 
280.00 
280.00* 
280.QO* 


LIFT DISTRIBUTION DETAIL-SURFACE NO. 


c 


NOTATION = 1/(1,2) 


- l/l 1 , 21 


INDICATES SOLUTION FOR SURFACE h 1 IS OUTPUT 
CONSIDERING SURFACES 0 1 AND $ 2 SIMULTANEOUSLY. 


J 

K 

P< X 1 

PfY> 

P<Z1 

area 

CPN 

GUI 

GI Y 1 

Gt Z 1 

vim 

VI I V 3 

Vl<Z> GAMA 

1 

l 

17.771 

-130.043 

-1 '.795 

61.2737 

3.1425 

.31837 

-.070 38 

.95354 

.00802 

.03862 

-.15499 -.4593+01 

1 

2 

20.801 

-130.043 

- 15.615 

61.Z737 

1.6534 

.05411 

-.15123 

.95632 

.00875 

-.01141 

♦ 11563 -.2454+01 

1 

1 

23.831 

- 130.043 

- 1*.036 

61.2737 

1.2B75 

.02272 

-. 16 403 

.97138 

.01353 

-.02097 

.14675 -.1933+01 

1 

4 

27.056 

- 130,011 

-15.673 

70. 7805 

1.3094 

-.06469 

-.19473 

.96119 

-.00124 

-.05213 

.25029 -.2690*01 

2 

l 

12.145 

- no. i3o 

- 12.544 

89.4594 

3.3616 

.33326 

-.05804 

.96127 

.01295 

.04 4 82 

-.16955 -. 71 84 + 01 

2 

2 

16*569 

- 110.130 

- 12.500 

89.4594 

1.7175 

.03951 

14761 

.95838 

.00952 

- .01039 

.13105 -.3727+01 

2 

3 

20.994 

- 110.130 

-12.456 

05.4594 

1. 31B4 

.009 32 

-.16169 

.97387 

.01546 

-.02226 

.16141 -.2892+01 

2 

4 

25.685 

-110.066 

- 12*046 

115.0192 

1.4125 

-.09040 

17652 

.95619 

-.00756 

-.05737 

.26371 -.4003+01 

3 

1 

6*520 

-90.217 

-5.490 

11 7. 6450 

3.3530 

.31651 

-.05474 

.97087 

.02014 

.05015 

1511 5 -.9436 + 01 

3 

2 

12.336 

-90.217 

- 5 * 3 32 

11 7. 64 50 

1.6965 

.02179 

-.14466 

.96210 

.01146 

- .00651 

. 1501 1 -.4846 + 01 

3 

3 

18.156 

-90.217 

-S.175 

11 7, 6450 

1.3052 

-.00967 

-.15976 

.9759T 

.01674 

-.02159 

.18004 -.3769+01 

3 

4 

24•326 

-90.133 

-0.530 

151.287? 

1.4156 

-.11550 

-.17528 

*95533 

-.00039 

- .06081 

.28052 -.5278+01 

4 

l 

.894 

-70.304 

-6.631 

145. 9307 

3.3054 

.29793 

-.05246 

.98561 

.02937 

.06755 

-. 12933 -.1155 + 02 

4 

2 

110f> 

- 70.304 

-6.312 

145.8307 

1.65 94 

.00481 

-.14261 

.97073 

.01580 

,00967 

. 1701 1 -.5082+01 

4 

3 

15.318 

- 70.304 

-*.993 

145. 0307 

1.2825 

-.02760 

-.15639 

.90190 

.02027 

- .00915 

♦ 2 0042 -.4 5 9 4+ 01 

4 

4 

22 ♦ 9e>? 

-70.200 

- 5.060 

187.4966 

1.42 33 

-. 13463 

-.17456 

.95660 

-.00816 

- .05378 

.30129 -.6581 + 01 

5 

1 

-4.731 

-50.391 

-3.969 

174. 0164 

3.0735 

.22060 

-.07095 

1.03529 

.05122 

.16994 

-.03546 -. 1203 + 02 

5 

2 

3.075 

-50.391 

- 3.440 

174.0164 

1.73 99 

-.02271 

-.14665 

1.00926 

.03140 

.11899 

.21380 -.7367+01 

5 

3 

12 »48l 

-50.391 

-2.910 

174.0164 

1.3955 

-.04723 

-.10073 

1.01103 

.03501 

.09099 

.235T5 -.5969+01 

5 

4 

21.551 

-50.237 

- 1.473 

223. 7353 

1.5714 

15479 

-*no2? 

.95913 

-. 00 789 

.01769 

.33482 -.8622+01 

JO0FL AG 

1 2 3 

4 5 6 7 

8 9 10 

11 12 13 14 

15 16 17 

18 19 20 

EXAM PL e 

PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 

VALUE 

14 4 2 

3 2 4 3 

4 4 6 

110 1 

0 0 0 

1 0 4 

AL FA 

«* 10.00 


6 

I 

-7.605 

-30.327 

-2*661 

1 0 B. 41 64 

3.9243 

.336 13 

-.00070 

1.0301B 

.04427 

.18413 

-. 16200 -. 1829 + 02 

6 

2 

i • T 1 J 

-30.327 

-2.011 

1 03.4164 

2.1643 

-.02451 

-.00309 

1.01287 

.02735 

.15443 

. 1 9063 1009 + 02 

6 

3 

11.031 

-30.J27 

- 1.361 

190.4164 

1.9240 

-.06319 

-.00352 

1.03320 

♦04910 

.12577 

.23724 -. 8967 + 01 

6 

4 

20, 1U 7 

-30.231 

♦ 6 31 

242.2497 

2.5434 

-.27064 

-.02594 

.96082 

-.02419 

.04952 

.44557 -. 1538+02 

T 

1 

-7.667 

- 10.110 

-2.634 

108. 7236 

4.7320 

.42732 

.DJOOO 

1.02377 

. 03896 

.04670 

-.2536 7 -.2209+02 

7 

2 

I . 66 7 

- 10.110 

- 1.981 

10 8. 72 36 

2.48 35 

-.00090 

.00000 

1.00259 

.01779 

.04444 

. 17455 11 59+02 

r 

3 

11* OOu 

-10.11G 

-1.329 

1 90. 7236 

2.0143 

-.05 192 

.00000 

1.03039 

♦ 04558 

.03605 

.22557 -.9399+01 

7 

4 

20.596 

-10.110 

.871 

242.6446 

2.5659 

-.27347 

.00000 

.94594 

-.03 0 BT 

.02672 

.44712 -.1539+02 

8 

i 

-7.667 

10.110 

-2.634 

Idfl.7236 

4.5395 

.40490 

.00000 

1.02290 

.03018 

-.06000 

-.23126 -.2118+02 

8 

2 

t«6 67 

10.' L l 0 

- 1.981 

1 90. 7236 

2.41 64 

-.00464 

.00000 

1 .00421 

. D1940 

-.03917 

. 1 702 8 -. 1129 + 02 

8 

3 

ii,oro 

10.110 

-1.329 

139.7236 

1.9977 

-.05550 

.oaooo 

1.03261 

.D47B1 

-.01502 

.22915 -.9322+01 

8 

4 

20.590 

10.110 

,071 

242.6447 

2.50 56 

-.27536 

.00000 

.94899 

- .035B1 

.02470 

.4490 L -.1551 + 02 

9 

i 

-7.606 

30.327 

-2.661 

l 99.4164 

2.4664 

.12055 

.00203 

I.04000 

.05344 

- .28414 

.05385 -. 1159+02 

9 

2 

1.713 

30.327 

- 2.011 

13 8.4164 

1,9337 

-.06992 

.00331 

1.01926 

.03343 

-.22660 

.24423 -.8546 + 01 

9 

3 

11.031 

30.327 

- 1.361 

189.4164 

2.0064 

-.07362 

.00351 

1.02224 

.03695 

- .16170 

.24799 -.0360+01 



20.812 

30 .339 

.151 

242.2497 

2.7493 

-.25802 

.07435 

•96841 

-.01458 

-.03993 

.43522 -.1541+02 

10 

1 

-4.731 

50.391 

-3.969 

174,01 64 

3.6302 

.37907 

.02497 

1.02369 

.01616 

- .25100 

-. 10991 -. 1515+02 

1 0 

2 

3»876 

50.39 1 

-3.440 

1 74.0164 

1.1066 

.04230 

.12928 

.90401 

-.00482 

- .16684 

.15344 -.46^4+01 

1U 

3 

12.481 

50.391 

-2.910 

174.0164 

.0280 

,00593 

.14816 

*97827 

-.00128 

- .11083 

. L 0447 -. 1199+00 


6-20 








6.2 EXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


10 

4 

21.623 

50.327 

-2*705 

22 3. 7354 

-1.05 85 

• 09538 

>20498 

*97367 

*00802 

-.08489 

. 0942 6 

♦ 5893*01 

11 

I L 

II 
11 

1 

2 

3 

4 

.894 

8.106 

15.318 

22.906 

70.304 

70.304 

70.304 

70.166 

-6.631 
-6.312 
-* .993 
-6.432 

145, 9307 
145. 8307 
145.0307 
187.4966 

2.3284 
.7175 
.06 72 
-.8666 

.25476 

.01733 

.00482 

.14342 

.06073 
. 13650 
.15045 
.145 27 

.95726 

.94737 

.96079 

.97242 

.00868 

-*00280 

*00225 

.00329 

- .03558 
.01597 
,03417 
.01610 

0885 0 
.15338 
.16334 
. 02 551 

-.8133+01 

-.2543+01 

-.2406+00 

.4014+01 

12 

12 

12 

12 

1 

2 

3 

4 

6.520 
12.338 
1 A. 156 
24.277 

90.217 

90.217 

90.217 

90.106 

-S.490 
- 5.3 32 
-5.175 
-S.636 

117. 64 51 

11 7. 64 51 

11 7.4451 
151.2579 

1.8759 

.5447 

-.0391 

-.9576 

.21660 
.02590 
.01649 
.15765 

.07 9 43 
.14172 
.15407 
.14637 

.94703 

.94753 

.96388 

.97117 

,00463 

-.00087 

.00515 

.00164 

-.01646 
.01943 
.02703 
.00549 

-.05127 
.14385 
.15239 
.0126 9 

-.5279*01 
-. 1556+01 
.1128+00 
.3577*01 

13 

13 

n 

13 

1 

2 

1 

4 

12.145 

L 6.569 
20.994 
25.648 

110.130 

uo.no 

110.130 

110.0 46 

-12.544 
- 12.500 
-12.456 
-12.808 

B 9.4594 
89.4594 
89.4594 
115.0192 

1.5216 
.4001 
-.1229 
-1 .0216 

.19363 
.03624 
.02957 
.17225 

.09437 
.14672 
.15748 
* 14750 

.94182 

.96864 

.96681 

.97028 

.00261 
.00139 
* 0D829 
*00071 

- ,00829 
,01956 
.02261 
-.0002 3 

-. 02 85 7 
. 132 94 
♦13959 
-.00127 

-.3252+01 
-.8681 + 00 
.2697+00 
.2901+01 

14 

14 

14 

1 

2 

3 

17,771 

20.801 

23.831 

130.043 

130.043 

130.043 

- 15.795 

- 15.8L5 
-15.836 

61.2737 

61.2737 

61.2737 

1.2612 

.2675 

-.2280 

.18248 

.04927 

.04493 

.10609 
. 15097 
.15003 

.93761 

.94875 

,96654 

.00093 
.002 38 
.00823 

-.00436 

.01835 

♦01B6Q 

-. 0177Q 
.11947 
. 12440 

-.1843+01 

-.3971+00 

.3423+00 


JD6FIAG 1 2 

VALUE 14 4 


6 9 io U l<: i? 14 15 16 17 18 19 2ft 
4 4 o 1 1 U L C 0 ft 1 ft. 4 


EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA= 10.00 MACHNO= .20ftC ALTITUDE-****** 34 


J 

14 


PI XI 
27.»39 


PI Yl 
130.000 


P < 2 I 
-16.10c 


Aht A 
7o. 76 J? 


CPA 

-l.osiri 


G<x) 

. 18681 


GI Y l 
.14006 


GLZJ 

.97032 


VIIX) 

-,0003ft 


vil v> 

-.00338 


VI 121 
-.01540 


GAMA 

.212 1*0 1 


LIFT W iTkioUTlOK DETAIL-SURFACE NO.- 2/1 It Z) 

***** *♦»♦*** ****** ***** 


J 

K 

PI XI 

P< Y> 

PI Z J 

llKt A 

CPN 

til X I 

G( Y) 

QIZI 

vim 

VI I Y1 

VI (21 

GAMA 

16 

16 

16 

1 

2 

3 

129."62 
135.312 
142.476 

-3ft. SO'' 
-30.000 
-30.000 

-19.26** 

-19.48/ 

-20.064 

1*>. JUOO 
i/9.uooo 
CUO.UUOU 

-2.0646 
-1 . 1296 
-,999b 

-.15909 

-.00198 

.07207 

-.04257 

-.00352 

.01089 

1.01734 

1.01865 

.95773 

,02t>04 
.024 74 
.01276 

.13977 
.14480 
. 14485 

.33758 
.17611 
.10001 

.6303+01 

.3514+01 

.4999+01 

17 

IT 

17 

1 

2 

3 

124.687 

133.437 

142.462 

- IC.O^ 

- Lft.000 
-9.996 

-19. 1U 
-19. 42*. 
-2 0. 17*. 

17?.uOuu 

A 75. OUUU 
CU«J. LI 0 U Li 

-2.3959 
-L.2065 

-1,0489 

-.20^35 

-.00572 

.08261 

-.05144 

-.00384 

coooo 

.99651 

1.00975 

,99736 

.03078 

.02718 

.01255 

.02060 

.02335 

.02330 

.37890 

.17946 

.09104 

.1024+02 
.5255*01 
.5243+01 


JOBFLAG 1234567 
VALUE 14 4 2 3 2 4 3 


a 9 10 11 12 13 14 15 16 l7 18 19 20 
4461 101000134 


EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA- 10.00 MACHN3* .2000 ALTITUDE-****** 35 


8 

9 

10 
1 l 
12 

13 

14 


V* 

.0361 
.1083 
,1800 
.2511 
.3222 
. 3933 
.4644 


10 . 110 
30.327 
50.391 
70.304 
90.217 
110. 130 
130.043 


-2.108 

-2.136 

-3.704 

- 6,472 

-9.4U 

-12.522 
-15.R05 


10.110 
30.33 L 
50*551 
70.771 
90.992 
111.212 
131.433 


SC N 

2.8677 
2.3172 
.8315 
.4477 
.2510 
.0993 
-.0344 


SCX 

1868 
.20 74 
-. 30 56 
-.1057 
-.0535 
-.0188 
.0069 


SCL 

2.8565 

2.2460 

.8719 

.4593 

.2565 

.1010 

-.0351 


SCO 

.4655 

.4384 

.0913 

.0594 

.0343 

.0140 

-.0048 


SMP C/4 SCLC/B 


-.32 74 
-.4495 
.3204 
.2239 
.2255 
.2262 
.2339 


.4081 
.3203 
. 1149 
.0507 
.0228 
.0068 
.0016 


1XL 

.2787 
.2567 
.0954 
. 1443 
. 1585 
. 1729 
. 1B72 


IYL 

.0000 
.0 740 
.2051 
. 1462 
. 1472 
. 1480 
*1403 


I Zl 

-. 9604 
9636 
. 9741 
. 9787 
.9763 
. 9738 
.9722 


SECTION AIRLOAD COEFF IC t ENTS-SUP FACE NO.* 2/< lr 21 

****+***•*********♦♦♦♦+***********+*♦+♦+**+**+***** 


J 

Y* 

V 

Z 

V 

SCN 

SCX 

SCL 

SCO 

SMP C/4 SCLC/B 

1 XL 

1VL 

IZL 

16 

17 

18 
19 

-.3750 - 

-.1250 - 

.1250 
.3750 

30.000 - 

10.000 - 
10.000 - 
30.000 - 

19.378 

19.269 

19.269 

19.378 

311.563 - 

291.563 - 

291.563 - 

211.563 - 

1.3465 
l•52 T 7 

1.5090 
1.2446 

-.0590 - 

-.1234 - 

-.13 98 - 

-.0397 - 

1.3157 

1.4831 

1.5406 

1.2139 

-.2442 

-.2867 

-.3002 

-.2230 

.1100 
. 1080 
. 1024 
. 1079 

-.3700 
- .5098 
-.5296 
-.3428 

.0720 
.0825 
.0806 
• 06 76 

.0109 

-.0000 

.0000 

-.0109 

. 9973 
. 9966 
. 9967 
. 9977 





INTEGRATED M 8LOAD COEFf!C1 ENTS-SURFACE NDS.* 1-2 

****•****+♦**♦*•******♦**♦++*+***•***************** 





E 

ECN 

ECX 

EC Y 

ECL 

F CO 

E CM P 

E CMP 

ECMY 

EX A 

EZA 

FS 

EMGC 

EB 

1 

1 

2 

2 

1.7593 
. l+Ol* 
-1.4401 
-.0977* 

-.1156 
.1362+ 
-.0948 
.0 94 8* 

.0667 
♦0029* 
-.0002 
.0000* 

1. 7526 

.1143+ 

- 1.401 B 
U27 + 

.1917 

.1585* 

-.3434 

.0764* 

-.0474 

.0292* 

. 1D23 
-.02 57* 

-.139 6 
-.009 1* 
.0065 
.0012* 

-.0077 

.0069* 

-.0012 

.0012* 

5.49 

5.49* 

131.00 

131.00* 

-5.66 

-5.66* 

- 19. 34 
-19.34* 

8199.59 

6199.59* 

2000.00 

2000 .00* 

32.68 

32.68* 

25.33 

25.33* 

280. 00 
280.00+ 

80.00 

80. 00* 

JOBFLAG 1 2 

VALUE 14 4 

3 4 5 
2 3 2 

6 7 

4 3 

9 9 10 11 

4 4 6 1 

12 13 14 
1 0 L 

15 16 17 
0 0 0 

18 19 20 
1 0 4 

EXAMPLE PROBLEM 
ALFA- 10.00 

NO. 1 - MULTIPLE SURFACE ANALYSIS CAP 1 
MACHHO* .2000 ALT[TUDE»****** 






♦+* 61RLOAD SUMS ♦++ 






AC 

CG 

AC 

CG 

1 .4080 
1.4080 
. 1 163 + 

. 1 163* 

-.1387 
-.1387 
,1553+ 
.1593* 

.066 7 
,0667 
,0029+ 
.0029* 

1.4107 
1.4107 
,086 9+ 
.066 6* 

.1079 

.1079 

.1771* 

.1771* 

1.3113 

1.05 08 
. 1255* 
♦1336* 

-.139 1 
1405 
-.0090* 
-.009 1* 

-.0078 

-.0065 

.0090* 

.0090+ 

5.49 
.00 
5.49 + 
,00* 

-5.66 

.00 

-5.66* 

.00+ 

8199.59 

6200.00 

8199.59* 

8200.00* 

32. 6 8 
32.68 
32.6 6* 
32.68* 

280.00 

280.00 

280.00* 

260.00* 


36 


* DETERMINANT* .2376*13 * SCALE* .3941-02 * 


END OF XQT NSURF 


♦ *** Jftft TIMF= 68 / ELAPSEO TI ME = 79 / NO. PLOT FILES* 7 / NSURF EXEC, VERSION 6-16-72 **** 


***********i 
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XQT TRMPLT 



ICCGUP- 0 
NTS AN = 0 
IPRINT- r> 

NTYPE C 0 
NOFSCL* l 

lSC A L V = 1,1,1,1,1,1,i,i ,i,1 
NXL c 24 
NXR * 24 
NYL = 24 
NYH fi 24 

NPOSNl * 60*. 95^ 

NPDSN2 = 600, 925 
NPCISN3 = 600, 900 
NPL1SN4 * 600, 5 0 

ANN0T1 = IU - EXAMRLl PHuy. 1 - MULT l PLfc-SUR FAC E 
ANNL) T 2 a ID = CA PAal lI TV i/Lliui^ S Tfi AT [ CK RUN 

ANNOT3 “ lL> - A.ouMLi/ 5 JULY 72 

ANNUT4 r ID = 

CHAR SZ — 1.0,l«0,l.y,l«U 

TITLE " ID 3 lSOME TKIL R hu j L L T1 0 N □F LlFtlNG SURFACES 

XLAbCL a ID - HORIZONTAL A Ki , SEMI SPANS 

YLABEL => 10 - VERTICAL AXIS StMlSPANS 

XHI« 1.5 

XLO =-1.0 

YHI * 1.5 

YLO--1.0 

PLOT = 2,1, 3,1, ENUL6? 

ENOPlT 

anotsv = 0 

NOADV » 1 

PLOT * 5,1, 6,1, ENDLS? 

Enoplt 

NOADV = l 

PLOT - 2,2, 3,2, ENuLil 
ENOPlT 
NOAOV - 1 

PLOT = 2,3, 3,3. ENjl^I 
ENDPLT 
ENOF II 



START OF XQT TRWPLT (PLOT OPTION) 


MICROFILM PLOT COMPLETED 


NDADV 

= l 



PLOT - 

ENDPLT 

2 ,1, 

3,1, 

ENuLSI 

NOADV 

= 1 



PLOT - 
ENOPLT 

5,1, 

6 ,1, 

CNlyLJ I 

NUACV 

= l 



PLOT - 
ENDPLT 

2,2. 

3.2, 

ENul.,1 

NOAOV 

= 1 



PLOT = 
ENOPLT 

Enofil 

2,3, 

3,3, 

ENoLST 


MICROFILM PLOT COMPLETED 
NOAGV <= L 


PLOT = 2,1, 
ENDPLT 

3,1 , 

ENJ4.5 T 

NCADV = 1 
PLOT = 5,1, 

6,1, 

ENU<_ j I 

ENOPIT 



NOAOV = 1 
PLOT = 2,2, 

3,2, 

E Nu L SI 

ENDPLT 



NOADV a 1 
PLUT = 2,3, 

3,3, 

ENuLiT 


ENDPl T 
E N OF l L 


MICROFILM PLOT COMPLETED 
NGADV = 1 


PLOT - 
ENDPLT 

2,1, 

3,1, 

E Ni> c ^ I 

NOADV 

= 1 



PLOT » 
FNDP1 T 

5,1, 

6,1, 

E Ny L s> 1 

NOADV 

= l 



PLOT a 

Z,2, 

3,2, 

ENuloI 


ENDPLT 
NOADV = 1 



NOACV - l 

PLOT = 2,3, 3,3, ENuLil 
fcNOPLT 
ENDF IL 




SOME OF THE OUTPUT OMITTED, SEE INPUT-DATA LISTING ON PAGES 6-1 AND 6-2. 



MICROFILM PLCT COMPLETED 
NOAOV a I 

PLOT = 2,1, 3,1, FNoLjI 
ENDPLT 
NOADV = L’ 

PLOT = 5,1, 6,1, ENul^I 
ENDPLT 
NOAOV = 1 

PLOT = 2,2, 3,2, ENul^I 
ENOPLT 
NDAOV s 1 

PLOT £ 2,3, 3,3, ENuLiT 
ENDPLT 
ENOFII 


ORIGINAL PAGE IS 
OF POOR QUALITY 


MJCPUFILM PLCT COMPLETED 

enurln 
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6,3 EXAMPLE PROBLEM # 2, SINGLE-SURFACE ANALYSIS CAPABILITY 


SUbSllNll-l-LUX LIFTING SURFACE ANALYSIS PROGRAM HAOIPB 
Ikk SYSlLhb INC., HOUSTCN OPERATIONS 
HUJiTQN, TEXAS 17705a) 


**** JOBS INPUT UST *»** 

7 XOT I SURF 

EXAMPLE PR OH LEM NO. i - SlNGLt SUP.F*cL ANALYSIS CAPABILITY DEMONSTRATION 
TASK TO2 , PROJECT 3303A, MJO 14703J, AtKuUYNAMlC ANALYSIS AND DESIGN 
SUBSUNIC-FLON LIFTING SURFACE ANALYSIS, T*« PkOGRAM XC. HAOIO& INSURF) 

A.w.tiuHLA/ 5 JULY 1972 

* INPUT 

NS$ = 2, NCS-2, 1 FlGC2>*0,U,0 ( 1FLG1 1 i *i ,**,0 , 1FLGI8I*!. IPLG(10)«*5, 

:p.O,3P.C, Z*2*0.0, E*2*U.U, XCCR-O.25, XQC-O.0,1.0, 


X = 2 + o.' 

l. 

Y 

= 0.3 

, 30. 

C, Z“2 1 

WFL A P1 = 

= 0. 

T 

WFL 

A P 2- 

0.625, 

PMCCFa 

L, 

L 

DRAG 

•1, 

CLEANF 

FL A PDJ: 

;30 

• 

6 

ILUJ 

*10.0, 

XT 2 * 6, 

1 F 

L 

G ( 11 

I = A+ 

It 

NJQbL=9, 

w 

C L *1 

, 0. 

,0.25,1 


*END 

tENOJOBS 
7 XUT ISURF 


jobflag 

1 

2 3 4 5 6 

value 

o 

0 16 0 14' 

ilNPUT 

kuut 

- 

+6, 

KT1 

a 

+ 1 . 

XT 2 

- 

+ 6, 

KT3 

- 

♦ n . 

L 1 NX 

s 

+ 56, 

an ocp 

S 

.75C03CC^E+C0 

CUT0F1 

a 

. [CConoor-E-C^ 

CUTUF2 

a 

.290003606-02 

LFLAP 

C 

+0, 

LDRAG 

a 

♦ It 

PM EC F 

n 

. lOCOmortE+ni 

OELALF 

- 

120000306+02 

NS S 

Z 

♦ 2, 

NCS 

- 

♦ 2, 

X 

M 

. nrcorocriE+oo 


7 Q 9 iU LaAHPll PRQbLkN NO. 2 - SlN&Lfc SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
O 1 0 3 *!>*=***♦♦♦ RACMNO’ .0000 FL AP D 3 .00 AIL ERONU = .0Q .00 ALTITUDE »*•♦*** 


. OOgiOUOUUL* JO « 

.COOOOOOOEfCO, .CCCOOOOOE+OO, .UUOGOOOOfc+OO 

.0000003 OE + OO, .P^OOOCOOE+^O, .OU\jUOUOOl*70 

Y = .OOCOOr^OE+OO, .30ou0000t+0ii I 

. IPOOOOOOF+OA, . irrcof OOE+C4, .lgOOgOgOc+04 

.lflr>O0'in*E*fi4, . lCOOornoE+n<,, . iOOUOUUUt^OA 

Z - .’KO'100O06 + ' , 'P, . floJuUuuyt+oJ, 

.OPOOOOOOF+OO, .CCOCOOPOE+r-O, .uuououout + oa 

.n^ono^OF + OO, .c r TOPO nr E*nO, .OgUJuGOuc+OO 

E r .OPOOOPO^t+O^, .OOuooOJJt+00 * 

,000000006+on, .CP r O0000E+OO« ,guODgOGOt+00 

.oooooooof+co, .opooooooe+oo, .Guoououufc+aa 

c - . 150000r^E+H2, .5Cuuy^Otjfc + 0l» 

. 1C0000OPE +0 3 i . IJjJUJJoL + 03 

. i^0OQ0OOE+n3, . 1Jy000ggt+03 

Tf OOOCOOE+Cin, . 100009 JJt + y 1 » 

.CO,OOOnooE+00, .GOODUOUJc+OO 

.C A OOO^COE+O rt , .OjUOJUOJl+OO 

20C * .oranpocne+oo, .r 

.OOOOOOOnE+OO, ■.OCOOOOOOE+OO, . JyOjjgygc+OO 


.100000mE + C3, 
.ioooooonE+o3, 
xoc 

.0PO00O0OE+no, 

.oonomnoE + co, 


.cnCnoi^^E+ro, 
.Oornonpr'E + rf), 
.00 00000 r>E+Of>, 
.OOpooTnoE+CP, 
.PCOOonoOE+no, 
.000000006+00, 
.OOOOOAOOE+On, 
.0000030OF +00, 
.Onoooonng *oo t 
.OCOOoon^E+oo, 
.000000006+00, 
.n^ooono^e+ori, 
.ornooonE+oo, 
.OOOOOOOOE+OO, 
.OOOOOOOOE+OO, 
.om^oori^E + OO, 
*0<->oononne + oo, 
,000000006+00, 
.OOOOOOOOE+OO, 

. UW'm’JUTC ryj, 

.oononoAOE+oo, 
.OOOOOOOOE+OC, 
.00^^000OE+00, 
.00"000O0E+00, 

XOCR 

wflapi =■ 

V»FlA P 2 = 


.OOOOO^OOE +0O, 
.OOC^OOCOE+OO, 
.conooo^oEtro, 
.crcooo^of+on, 
. nnooocor.e+on, 
. COOOCnnOE+oo, 
.co^doonoe+ro, 

, noooooonE+rr, 
.cc^ooooae+oo, 
. nor cot ooe+ro, 
.rjnroonnot^oo, 
.noooooooE+ro, 
.ooooocooe+oo, 
.ccroooooE+oo, 
.crocooooE+oo, 
.rrncnoo^E+oo, 

. C?"OOOOP6+ro, 
.OOOOOOOOE+OO, 
.COOOOOOOE+OO, 
■ <j' 'uuwuucm'j, 

.OO^OOOOOE+OO, 

.OOOOODOOE+OO, 

.oooo n oo^E+oo, 


.JtiOJOGuJc+00 
. J JOJu JULft + OD 

• y JUOOU J Ll t + 00 
. UJU JUli Ub't* 00 

.gyOJujyyt+oO 

• OaUU o 0 utJt+ 30 
.yOOJgOOJu+OO 
. uJUJjuOJt. + 00 
.JdOJUJUJL+00 

• ^0 00 OGOGc+OO 
•yOOjJuOGt+OO 

.g00jjy00i- + 01 

.GUOJUJUJt+DO 
.Juuy000ut*00 
. JU0JUDuUt.+00 
•OUjyJJUOc+00 

.oooygyoyu + oo 

.OUuJjJUJt+OO 

.UJOJOJOUc+OO 

. UUl/JUJl/Utl+U’J 
■UoOUJuOOc+00 
.OjOuOuGJt+OO 
.vUJJUyUUc+OO 


ono^oo()OE+oo. 

.OOOOOOO^E+OO, 

I 0000000E+04, 

.I000000«€+04, 

000000TOE+00, 

.0001000^6+00, 

Of>OOOOOOE+Of>, 

.30000000fc+00, 

LOOOTOOOE+03, 

„ 100000036+03, 

ooonooooe+oo, 

.ooooonooE+oo, 

rooo 3001E+3O, 

.mnoooooe+oo, 

.noonoo^oE+oo, 

.000000306+00, 
.00000300E+00, 
.000 000006+3^, 
.OOOPOOOnE+OO, 
.OOOOOOOOE +30, 
.ooooooOPE+00, 
.00onnr»onE+0''t 
.OQOonnnnE+m, 
.000000036+00, 
.oaoonooOE +0A, 

.OOOooooot+00, 
.oooooonoE+oo, 
.0000000^6 +00, 
„noooOC3oe+oo, 
.OOnoOOOOE +no , 
.003O0030E+03, 

.00000 POO fc+00, 
.OOPOOOOOE +00, 

— 7ouoogoo of+00, 
.000000006+00, 
.000 00000 6+00, 
.OOOOOOOOE+OO, 


kFLAP 3 
FL APC 
V.SMOTH 
YSPAN 


.2500rc00£+00, 
♦OOOorOCCE+oo , 
.62SO0 f, O''6 + 00, 
. lOCOOorofc+oi, 
.250000006+00, 
.250O00OOE+OO, 
. TCOOOrOOE+on , 


.OOuuuyOyt + 0U < 


,OOOOOOn oe + PO, 
.000000006+00, 
.nonooopoE+On, 
.ooooooroE+oo, 
.noonoooo6+oo, 

.COOPPOKOE+OO, 
.nonoonrnf + nf«, 
^OCOOO^ooF +00, 
.00O0O0OOE+00, 
.poonnrnoe +oo. 


. nco^f^jncE+oo, 
.COonaoooe+oo, 
.crooc^ooE+oo, 
.r000O00OE+o0, 
.roopooor>6+oo, 
. OOOOOOoOE+^O, 
.C^OrOOOCE+DO, 
.or onoooo6+oo, 
.COOCOOOOE+on, 
. ooroonoot+oo. 


.uuOUUOG Jl+OO 
.UUOuDOJJc+00 
.OyuUyUUJt+OT 
. u jUJUGumJ l + OO 
.ujOODJ Jdti + OO 
.UUULDOUJL+00 
.ouui/JOJjL+oa 
. uUUGiJU Jut + oo 

.ouuoouuuc+ao 
. uutlwuOyjt+OO 


.COOOTOOOE+OO, 

, .000^00006+00, 

, ."DToononE+oo, 

, .000000006+00, 

♦ .000000006+00, 

, .OOOOOOOOE+oo, 

, .oaooooooE+oo, 

, .000000006+00, 

, .OOO00OOO6+00, 

, .000COO036+00, 


PAGE 

l 
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.3 EXAMPLE PROBLEM § 2, SINGLE SURFACE ANALYSIS CAPABILITY [CONTINUED) 


NJOB 
NJOBl 
ALFA 

.ooonoorng+on, 

.oonnooooc+on, 

.oommooE+cc, 

.0 A OOOOnPE+OO f 

MACHN 

•0<imn5r"K+n0f 
„o??o00one+o0, 
height - 

. lonnOOOOE + n*), 

. iro0?00?E + O5, 

FLAPOJ = • . 

.oooo00oot+oo, 
.oo^nooc^E+oo, 
AILOJ 

.OOPOOHOPE+OO* 
.ronoOOnOE+OO, 
.oonop0o?G+0O, 
.np?O0O?0E + ??, 
.0n0"n"""F + OO t 
WCL 51 * 

.5n?o?o?rE♦ ??, 

.isooonooF+ni, 
,6OPrno0OE+OO f 
. linoooooE + Cl, 
► 1SQOO0POE+O1, 
CLEANF - 
IFLG 


♦ li 

+4, 

*-0i 

+ 5, 

+ 1* 

+ 1* 


SEND 


rrooooooE+oo, 

.onOoooooE+oOf 

.ODOOOO0OE+00* 

.oiopooooe+oo, 

.oincocpoE+o?, 

oooroooot+oo, 

.oocoooooe+oo, 

10000000 e+os, 

. imO0Oo , ''E+O5, 

DOC 7?OOOE+00, 

.oyonooooE+no, 

oofn^oor+oo, 

."TOO???"? +^0, 

.nomortooE +oo * 

.OOOOOOOOC+O? , 

.ooomr^CE+oo, 

ZSCOOPOOE+OO, 

. 12500000 E+?W 

.5C'K , 0"n«E ♦»)<}♦ 

. 100 000.00 E+01, 
.14OOOO00E+01, 


+16, +0 
♦ 1 , 

♦1» 


+ i t 
+ 9, 

sccnroorE+oi, .oauuuuuot+uo, 

.cc r oooooE+ro, *ouuougooc+a3* 

. c?froon?E+0?< . uui/ijuuOjt+ oo, 

.ronCOnC?F+?o, .uuGQdu j'Jt + OO * 

. r??p<V7 ??E + r 0 1 , o Juuou uuv + 00 i 


ZCCorcrrE+OO, 

.orooooooE + r o, 
. c? ? ?oo hoe+? o, 
ircn??coE+0‘>, 

. ir??ooO0F+05 ♦ 
. lonmor of+? 5, 
lonor^rrE+o^, 

,ro?r,o?0?F+G? t 
. i*rtnnnon-"'C+^o, 
tro??rr«R+02 t 

,??o?iVio?e+O0, 
.c^orooooE+ro, 

,oroooono£*on t 

,CC?Cr)nnoe+"0, 


?0UUuUJdt ♦ J J , ♦ 

.OuUUUUuJl+OO r 
.UUUJdvUUL+OO, 
lOUiJi/uLrUt + d j , 

.iuUdJjOJb+05, 
, LUUJuJGtJt+OS, 
00 JUv i/UU/L + d u . 

. UuUUUuUUL + 00 r 

« UUduUdUUL +00 , 

1 5Ju JGjUL+ JZ r 

*UjGJJ dUuc + 00« 
.woOJUJdue+00i 

.ddUJuCoOc+OO, 
.OuOJddoJt+ > O0« 


Looooccne+oi, 


. OOuUudJUL+Ud, 


, 7SOOOOOOE+rr», 

. 175OO0OOE+?! , 
.8?O?OCOOE+?0, 
.l2?crnOOE+?i. 
., 16rf)G0OnEtr.l, 
j5O0rncre-o2, 

+ 0. 


• iuOjyJuJc + 01« 
.ZOuuduOut+Ql ? 
.900UuuuuL+OO t 

• i^udUUudt + 01» 


♦ 0* 


+0 . 
+ i » 
♦Or 


JOBFLAG 12 3 4 

VALUE l 0 L6 0 


5 6 7 8 9 U 

l 4 O 1 0 u 


UMFcc PROdLEM NC. 2 - SINGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
aLF*****«** MALHNO= .0?"? FLAPD* A1LER0ND* .00 .00 ALT I TUDE =+*+*♦ + 
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RING GEOMETRY 

*•»+«+*+*+*** 


SPAN 

ROOT 

CNURO 

TIP 

CHORD 

r\Uo T 

1 Ml il 

7 I P 

7 n 1 S T 

AREA 

ASPfcCt 
RAT 1CJ 

WEAN 

CHORD 

MGC 
(MAC I 

ybaR 

( MGC ) 

XfsAft 

IMGC1 

l BAR 
(MGC > 

60.000 

15.??? 

5.000 

. OUUU 

. jOQO 

oO0.?n 

6.000? 

10.""0 

10.833 

12.50C 

-.000 

.000 

FLAP 
SPAN 1 

FLAP 
SPAN 2 

FLAP 

CHORD 

mIlKih 

SP^Iu 

aILRN 

bKANZ 

A 1 LRN 
(..HORU 

CIHFO 
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Y 
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L 

E 
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c 

CF 
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♦ uuu 

A. 300 

3.750 

,000 
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,mo 

.ooc 
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. 00 3 
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- .62 5 

-18.750 
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« w Gw 
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6.56 3 

.000 

.000 

.000 

.00C 

8.750 
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-.500 

-15.00" 

-2.50? 

. v<J\J 

3.000 

7.500 

.000 

.00" 

.000 
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10.000 
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-.375 
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-2.813 
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2.013 

-.25" 
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*uUj 
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U . 3 7 5 

.00? 

.000 
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.00? 
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-3.436 
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t.,875 

l”: .312 

.000 
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.000 

.no? 
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. 00 0 
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2 

3 4 5 
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9 
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tAArtPLL PRUI 

LEW NL. 2 

- SINGLE 

SURFACE ANALYSIS CAPABILITY OEMONSTRATI UN 


VALUE 

1 

f 

16 0 1 

4 " 1 

0 

4 AL+4-**♦+♦+ 

VACHNU= . 

0"0J J-LAPU= .0? 

AJLfcRUND= 

.0? .00 

ALTITUDE 

=**•♦** 


PAGE 

3 


J 

K 

Y 

DY 

DC 

US 

1 

1 

-2.813+?1 

3.75?+00 

1.4 f ’t+ Oj 

J m £.i J + 00 

2 

1 

-2.43 ? + " 1 

3.7 5"♦0" 

1.7 L 9+ 

O ■ K + UU 

3 

1 

-2.062+01 

3.75O+?0 

2.031+"^ 

7. til 7 + uU 

4 

l 

-1.68 7 + ?l 

3 . 750 +CO 

2.344+?^ 

0 . /o Y+jj 

5 

i 

-1.312+01 

3.750+00 

2.y56+"j 

4 • *L> . +U J 

6 

1 

-9.375+00 

3.75?+?" 

2.969+0,, 

t.liJ+Ui 

7 

1 

-5.625»"0 

3.750+00 

3.2*il+Oo 

l.^JJ+Oi 

6 

1 

- 1.8 7 5+00 

3.750+0? 

3.594+"J 

1 .J46+04 

9 

I 

1.375+00 

3.15?+?" 

3.594+0^ 

i.J40+U1 

1? 

l 

5.6 2 5+?0 

J.7 5 ? + 0 ? 

3.281+ 

i.kjJ+Ul 

II 

I 

9,375+?" 

3.7 5? + Oo 

2.969+?u 

1. li J+ Jl 

12 

l 

1.3 12 + 01 

3.75?+?? 

2.656 + 0^ 

Y.^uit Jv» 

13 

1 

1.68 7+"l 

3.7 5? + 0? 

2.344+OJ 

0 . Tu Y+O^ 

14 

1 

2.062+01 

3.750+00 

2.?31+ r, o 

/.oi7 + jj 

15 

L 

2 .43 7+0 1 

J.7 f n + 00 

l. 719+01/ 

0 .4«*3+ Ou 

16 

I 

2.313+01 

3.750+00 

l ,4?6+ ?i> 

6.273+OG 


ORIGINAL PAGE IS 
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6.3 EXAMPLE PROBLEM f 2, SINGLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


1 

2 

-2.813*01 

3 » 750+00 

1.406+00 

5.27^+00 

z 

2 

-2.437+01 

3.154+90 

1.U9+0U 

6,+45+00 

3 

2 

-2.962+01 

3.750+00 

2.031+00 

7. CjI / + 0u 

A 

2 

-1.607+01 

3.750+00 

2.344+ 00 

o.7o Y + 00 

5 

2 

-1.J12+41 

3.75C+09 

2.656+Oo 

Y.Yui+UU 

<3 

2 

-9.378+00 

3.750+00 

2 .969+00 

i.iij+Ui 

? 

2 

-S.62S+09 

3.75C+00 

3.281+00 

1.tjj*01 

8 

2 

-L .875+r"» 

3.750+00 

3.594+00 

X.J4O+01 

9 

2 

1.078+00 

3.750+00 

3.594*Ou 

i.346+01 

10 

2 

5.628+00 

3.75 n +00 

3.28L+OJ 

1.^30+ J* 

LL 

2 

9.375+00 

3.750*00 

2.969+00 

i. 11 J+*»l 

12 

2 

1.2 12+01 

3.75**00 

2.656+Oy 

9.9b1+00 

13 

2 

1.687+01 

3.750+00 

2.344+Og 

o. 7 oy + Oo 

1* 

2 

2.062+01 

3.7 5*+0* 

2.931+00 

7. ol 7 + Uo 

L5 

2 

2.437+01 

3.750+09 

1*719+0J 

It, 4*+> + uO 

16 

2 

2.B13+01 

3.750+0* 

1.406+00 

5.473+00 

1 

3 

-2.813+01 

3.750+94 

1.4 36+Oj 

5,4/3 + Os/ 

2 

3 

-2.437+01 

3.750+00 

1.719+00 

0*443+00 

) 

3 

-2. '62+01 

3.75**00 

2.03l+0o 

7. oi 7+o0 

A 

3 

-1.687+01 

3.750+00 

2.344+00 

e./aY+GJ 

5 

3 

-1.312+01 

3.750*00 

2.056+00 

V« 9&1 + 00 

6 

i 

-9.375+00 

3.750+no 

2.969+Ou 

1.ii3+Ol 

T 

3 

-5.625+00 

3.750*00 

3.281+00 

1. c 30+Ql 

8 

3 

-1.875+00 

3.750+00 

3.594+00 

1.346+01 

9 

3 

1.875+00 

3.750+00 

3.594+Ou 

1.34O+01 

10 

3 

5.625+00 

3.75C+00 

3.281+Ou 

1.430+01 

u 

3 

9.375+00 

3.750+00 

2.969+00 

1.113+01 

12 

3 

1.312+01 

3.7 5*+*0 

2.656+00 

9. Vol + OO 

13 

3 

1.667+01 

3.750 +00 

2.344+00 

o. /8* + 00 

14 

3 

2.062+01 

3.75C+0O 

2.931+0o 

7.617+00 


JUBFLAG L 2 3 4 
VALUE 1 C lo O 


5 6 7 6 9 iu cA**MH*.c PftubLEM MO. 2 - $ INGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 

1 4 0 l 0 <. *=++♦*•* FACHNO* .0000 FLARO* .00 AILERGNO^ .00 .00 ALTITUDE- 


PACE 

A 


J 

K 

Y 

OY 

OC 

l>i 



15 

3 

2.437+01 

3.750+00 

1.719+9Q 

o. **fp+wg 



16 

3 

2.813+01 

3. 750+00 

1.406+0U 

5.2/j+OJ 



1 

4 

-2.313+01 

3.750+00 

1.496 + Ou 

5.+.73+00 



2 

4 

-2.437+01 

3. 759+no 

l .719+ n l> 

<i.445 + Ju 



3 

4 

-2.062+01 

3.759+00 

2.031+00 

1 * til I +u3 



4 

4 

-L .687+01 

3.750+09 

2.344+Ou 

o.7 oy+ju 



5 

4 

-1.312+01 

3.750*00 

2.6 56+0g 

Y. Yt»l + OU 



6 

4 

-9.375+00 

3. 150+00 

2.969+00 

1.113+Ul 



7 

4 

-5.625+0* 

3.75C*90 

3.281 + 90 

1 . £J>b+<Ji 



8 

4 

-1.875*09 

3.750+00 

2,594+00 

1.J4©+01 



9 

4 

1.375+09 

3.750+00 

3.594+00 

1.JYo+Ul 



10 

4 

5.625+00 

3.750+00 

3,281*00 

1.2.MJ+01 



11 

4 

9.375+00 

3.750+00 

2.969+db 

1.llJ+01 



12 

4 

1.312+91 

3. 750+09 

2.656+Og 

Y. Ybi+GU 



13 

4 

1.687+01 

3. 750+00 

2.344+00 

o. 7a y+Oj 



14 

4 

2.062+01 

3.750+09 

2.031+no 

7.oi l + Uk> 



15 

4 

2.437+OL 

3.750+00 

1.719+00 

6.44Y+06 



16 

4 

2.313+01 

3.75C + 00 

1.496+00 

5.27J+UO 



J 

K 

A V 

YV 

£V 

x XV 

1Y V 

Uv 

1 

1 

-9.375-01 

-3.009+01 

0,000 

-O.23o-g«. 

9,981-01 

0.000 

2 

l 

-1.172+00 

-2.625*91 

0.090 

-b.2J o-Oi 

9,981-11 

0.000 

3 

l 

-1.4(16+00 

-2.250*01 

4.C40 

-o. AJo-tiA 

9.991-01 

0.000 

4 

l 

-1.641+90 

-1.875+01 

0.000 

ci 6 -\il 

9.981-01 

0,009 

5 

1 

— 1.8 75*00 

-1.590+91 

9.090 

-o. 

9.901-01 

0.909 

6 

1 

-2.109+09 

-1.125*91 

0.999 

— o. b—(Jx 

9.981-01 

0.099 

7 

1 

-2.344+00 

-7,500+00 

9.099 

-o. ilo-^ 

9.981-91 

0.009 

0 

1 

-2.578+99 

-3. 159 + 00 

9,000 

-c.^>6-u2 

9.981-9l 

0.009 

9 

1 

-2.813+00 

-9. TOO 

0.000 

o, cia-iu 

9.9 81-0 L 

0.000 

10 

1 

-2.570+00 

3.150+00 

9.000 

u.2Jb-b£ 

9.981-01 

9.009 

11 

1 

-2.344+90 

7.590*09 

0.999 

O. i.a o — Gx. 

9.961-91 

0.990 

12 

1 

-2.109+99 

l. 125+01 

0.000 

b« 23b-C»2 

9.9 01-01 

0.040 

13 

l 

-1.875+00 

1.549*41 

o.roo 

b.«io-j£ 

9.901-01 

o.noo 

14 

1 

-l.641+00 

1,875*01 

9.009 

0.256-02 

9.901-01 

o.oon 

15 

1 

- 1.406+00 

2.250 + 01 

9.909 

6.236-02 

9.9dl-0l 

0.000 

16 

l 

-1.172+00 

2.625+01 

0.090 

O.23b - 02 

9.901-01 

0.009 

1 

2 

3.125-OL 

-3.009+01 

Q.^OO 

2.0O3-02 

9.990-01 

0.009 

2 

2 

3.906-01 

-2.625+01 

0.090 

X.Jol-Ot 

9.9Y8-01 

0.090 

3 

2 

4.6 B 8-01 

-2.250+01 

0.9 00 

2.0O3~O2 

9.990-01 

9.000 

4 

2 

5.469-91 

-1.875*01 

0.900 

2.063-02 

9.990-01 

9.000 

5 

2 

6.250-01 

-1.5C0+91 

0.900 

2.063-02 

9.996-01 

0.000 

6 

2 

7.931-91 

-1.125+01 

9.900 

2.0o3—02 

9.998-01 

0.000 

7 

2 

7.813-01 

-T.59C+09 

0,009 

2. 063-02 

9.990-01 

9.000 

a 

2 

8.594-01 

-3.150*00 

9.090 

2.063-U2 

9.990-01 

0.00ft 

6 

7 

r— 

o,i7 ti-n i 

9.999 

9-finn 

- / . ti. i —.1 - 

-T- 

a. oo o _/% i 

1% A A A 

u 


t ."hTa-uT" 

/.3UU+UU 

”.0<m 

-2. 06 3-02 

4. 99S^oT" 

9.000 

12 

2 

7.031-01 

1.125+01 

0.090 

-2.D63-02 

9.998-0l 

0.009 

13 

2 

6.250-01 

1.509+01 

0.990 

- 2.08 3 -0 2 

9.998-01 

0.009 

14 

2 

5.469-01 

1.875+01 

9.C90 

— 2•Ob J-02 

9.998-01 

9 .000 

15 

2 

4.633-01 

2.250*01 

C.99(1 

-2 . ObJ - C2 

9.99 8-01 

4.000 

16 

2 

3.906-01 

2.625+ni 

0.9 00 

-2.06 J-C2 

9.998-01 

0.909 

1 

3 

1.563+CO 

-3.C09+01 

o.oco 

x , 03 o— U x 

9.946-01 

0.000 

2 

3 

1.953+00 

-2.625+01 

r.9f>0 

1.030-01 

9.946-01 

0.009 

3 

3 

2.344*00 

-2*259 + 01 

0.090 

x■03o—01 

9.946-01 

0,000 

4 

3 

2.734+00 

-1 .EI5 + C1 

9,099 

1.03 0-61 

9.946-01 

9.000 

5 

3 

3.125+00 

-1.590+01 

0.9 90 

1 • 03 ©-01 

9.946-01 

0.000 

6 

3 

3.516+03 

-1 . 125+ni 

0.000 

1.030-01 

9.946-01 

9.000 

7 

3 

3.906+00 

-7.599+00 

o.coo 

x.Qjo-Oi 

9.946-91 

0.009 

a 

3 

4.297+90 

-3.759+09 

0.9 n o 

l.OAo-Oi 

9.946-0i 

4. Ofto 

9 

3 

4.608+00 

9.909 

O.Ono 

- i . 05 6-01 

9.946-01 

0.909 

in 

3 

4.257+00 

3.759+00 

0.090 

- 1.Ojo-01 

9.946-0i 

0.000 

u 

3 

3.906+00 

7.50C+99 

0.000 

- 1.0-16 — 0 1 

9.946-01 

0.000 

12 

3 

3.516+00 

1.125+01 

9.000 

-i.Ojo-Oi 

9*946-01 

0.009 

13 

3 

3.125+00 

1•500+01 

H.mn 

-i.U3o-ol 

9.946-91 

4.000 

14 

3 

2.734+09 

1,875+01 

C.DOO 

- 1. 03 O— U1 

9.946-91 

4.000 

1 5 

3 

2.344+00 

2.250+01 

0.9. on 

-1,UJD-Ui 

9.946-01 

4.000 

16 

3 

1.953+00 

2.625+01 

o.oon 

-i.Ojo-Oi 

9.946—0 L 

9.000 


AN YN 

ZN 

1XN 

1YN 

1ZN 

-3.516-01 -2.013+41 

0.000 

0.000 

o.coo 

1.090+00 

-4.297-41 -2.437+91 

0.009 

n.OOO 

4.000 

1.040*00 

-5.078-01 -2.062+91 

9.000 

0.909 

0.000 

1.040+90 

-5.8 59-0l -1.687+01 

9.000 

9.000 

9.094 

1.040+00 

-6.641-01 -1.312+01 

0.040 

0.004 

0.009 

1.040+00 

-7.422-91 -9.375+00 

4.000 

0,999 

0.090 

1.000+40 

-8.2C3-41 -5.625+00 

0.000 

0.000 

0.004 

1•900+00 

-B.904-41 -1.875+00 

0.000 

0.000 

0.990 

1.909+09 

-0.984-°1 1.875+00 

0.099 

0.004 

0.900 

1.000+00 

-0.243-01 5.625+00 

0.000 

o.oon 

9.000 

1.900+09 

-7.422-01 9.375+00 

0.000 

0.900 

9.000 

1.000*09 

-6.641-01 1.312+01 

0.009 

0.090 

0.900 

1.004+09 

-5.859-01 1.687+91 

0.000 

0.000 

0.009 

1.000+09 

-5.078-01 2.462+91 

0.090 

0.009 

0.000 

l.040+49 

-4.297-01 2.437+01 

0.400 

0.000 

0.000 

1 . 000+00 

-3.516-41 2.813+01 

9.090 

0.000 

0.009 

l.000+00 

1.455+90 -2.813+01 

0.000 

0.000 

0.000 

1.000+00 

1.289+04 -2.437+01 

9.000 

0.990 

0.000 

1.000+00 

1.523+09 -2.962+01 

9.090 

o.ono 

0.090 

l.000+04 

1.758*00 -1.687+91 

4.-199 

0.090 

0.009 

1.004+04 

1.952+09 -1.312+01 

4.000 

o.ooo 

0.090 

1.909+04 

2.227+00 -9.3/5+90 

9.000 

0.000 

0.040 

1.000+04 

2.461+40 -5.625+90 

9.000 

0.000 

0.000 

1 . 000+00 

2.695+00 -1.8T5+00 

0.000 

0.090 

0.000 

L. 000+00 

1 x . OCj . f\A 1 OlF 

A AA 

- ««» 

* 

2.227+00 9.375+00 

0.900 

4.009 

9.090 

1.009+09 

1.992+00 1,312+01 

0.000 

0.909 

0.040 

1.000+94 

1.758+09 1.607+01 

0.000 

0.400 

ft . 004 

1.000+04 

1.523+44 2.962+01 

0.000 

0.000 

9.000 

1 . 000+00 

1.289*44, 2 *43 7+01 

9.000 

0.009 

0.009 

1.099+00 

1.055+00 2.813+01 

0.000 

0.090 

9.040 

i.000+00 

2.461+04 —2.813+01 

0.000 

9.090 

0.900 

i.oao+oo 

3.908+40 -2.437+01 

0.009 

0.004 

9.040 

1.400+00 

3.555+09 -2.062+01 

0.000 

0.094 

4.090 

1.000+00 

4.142+00 -1.607+DL 

0.000 

0.090 

0.000 

l. 000+00 

4.6*8+90 -1.312+01 

9.090 

0.000 

9.909 

l.000+09 
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*1268 

-.3375 

.0422 

-.9166 

3125 

9. 3 75 

11,o7> 

I.ol55 

*3197 

.1199 

-.3326 

.0327 

0156 

,4375 

13*125 

1U .</<:> 

1. Cr2. B6 

.2884 

. 1082 

-.3392 

.0351 

-. 016C 

562 5 

L6.875 

■/.>/> 

1 .>505 

*2423 

.0909 

-.3139 

.0239 

-.0207 

,6875 

20.625 

d, lea 

1 ■>050 

. 176 7 

.0663 

-.0965 

-.1265 

-* 0016 

,8125 

24.375 

0.0 75 

1.1281 

.1293 

.0485 

-.0910 

-.9975 

. 0023 

,9375 

28.125 

5*04,5 

.0927 

*0837 

.0314 

-.0888 

-.0616 

-. 000 5 




CMUfsurfi SC 

PRESSURE DISTRIBUTION 

OHTA It 






******•*****♦♦#♦**♦******************* 



* * 

***** 

* * * * 

* * * * * 

* * * CHORD 

STATION <X 

-XL E WC ♦ 

***** 

* * * * 


1 ZL 

—.9967 
—♦ 9987 
-.9975 
-.9976 
-.9990 
-.9993 
-.9993 
-.9995 
-.9920 
-.9952 
-.9981 


« * * * * * 


* 


* 


.00000 . 1000 J .*UUGG .30000 .40000 .50010 .60000 


.70000 .80000 .90000 1 . 00*90 


2Y/B 


sCL **** + ♦**#**♦♦****• CHCRG PRESSURE <CPL -CPUW 1 ZL * * * * 


-.93750 .22394 

-. 3125 * .37276 

-.68750 .69553 

-.56250 1.26756 

-.43751 i. 49<#99 

-.31250 1 . 5417 C 

-.16759 L .52661 
-.C 625 * 1,47994 

.06250 1.46758 

. 187511 1 . 5565-4 

.31250 1.60371 

.43750 1.61626 

.56250 1.54065 

.68750 1.30395 

.81250 1 . 12 B 01 

. 9375 * .89240 

(EOF PLOT FILE 2 ) 


.00011 

.00090 

.inono 

♦C 9000 

1 . 1472 J 

1 , 6543 > 
2.38180 
1.05974 

« u 46 o 9 
1 . 0 i 2 >> 
i , 4 c d a J> 
i ,06373 

• 352 0 3 
.51954 
.68569 

1.05 ?94 

1 

* 16668 
.248 24 
.26519 
,03363 

.noono 

1.36325 

1 . LO J 1 4 

1.15630 

1 

.06851 

.90000 

1.57348 

i. 

1.18521 

1 

.942 15 

.onnoo 

1.54483 

1 . > 45 i >3 

1.16737 

1 

.026 16 

.OCOOI 

1.31167 

1 . 2474 * 

1,17273 

1 

.0 86 54 

.noon 

1.32153 

i . /LU 0 ( > 

1.18122 

1 

.092 75 

.econo 

1.61640 

1 •J>>t>d 4 

1.19584 

1 

*04465 

.orooo 

1.73140 

1 * Hi 

1.24273 

1 

.07424 

.rnnoi 

1.71 431 

1.47 o 04 

1.26257 

1 

.10782 

.coin 

1*652 Id 

1 . 4>>40 

1.23849 

1 

.09829 

.00019 

.ocono 
.00010 
S' FILE if 2 

2 . 19 J 4 » l.Socou i .08733 
L.B 3631 A.j«*> 7 /- .96328 

1.37 D 7 > i.U 45 lo .77990 

= CHORDVISE PRESSURE DISTRIBUTION 

.78122 

*74549 

.61449 


(VOm'XX-LATTICE SOLUTION} 


.03442 
.06495 
.04147 
1.0959 2 
1.13271 
1.07802 
1.06334 
1.13702 
1 . 1420 8 
1.07727 
1.09775 
1 . 13 t) 57 
1.12230 
.68276 
.66446 
.563 7 7 


-.20002 
-.23406 
19268 
1.37696 
1.51927 
1.45926 
1.44846 
1.51517 
1.51807 
1.45764 
1.46973 
1.50812 
1.44227 
.78758 
.73445 
.63191 


-.521 BO 
-.63718 
-.47385 
1 . 76307 
2.07141 
2.02268 
2.01846 
2.07175 
2.07118 
2.02099 
2.02303 
2.05038 
l. 90889 
.98164 
.86575 
. 74796 


********* 


-.67879 
-.83396 
-.60139 
1.79813 
2.17831 
2 . 14759 
2.14 869 
2 . 18523 
2 . 18224 
2 . 14628 
2.14143 
2.15590 
l. 98277 
.99991 
, 85238 
.73675 


-.46203 
-.56809 
-.40627 
1.12427 
1.3 7405 t 

1.3 5966 
1.36166 

1 .3 BO 17 
1,37772 
1.35896 
1.35431 
l .36009 
1.24683 

.62768 

.52803 

.45646 


* * * * 

.00000 
.ooooo 
.00000 
.*0000 
.00000 
.00000 
.00000 
.nooon 
,00000 
.00000 
.ooooo 
.00000 
.*0000 
.00000 
.00000 
.ooooo 


PAGE 
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JGBflAG 1 
VALUE 1 


2 3 4 5 

0 16 0 l 


6 7 B 9 10 
4 A 1 0 4 


fcX^KLt PROBLEM NC. 2 - SINGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
Alfa- u.OO FACHNO- . 2 * 0*1 FLAPD= 30.00 AI LEROND 3 10 . 00 - 15.00 ALT I TUDE ******* 


PAGE 
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SPArtwiiE SECTION LIFT DISTRIBUTION DETAIL 

*,*****♦**********•***♦**************+*♦* 


Y 

2 Y /9 

- 30.008 

-U 9 CC 090 

- 28.500 

-.950000 

- 27.900 

-.909010 

- 25 * 590 

-. 0 5 C 990 

- 24.909 

-« 8 C 09 n 0 

- 22.509 

-.7 50000 

- 21.909 

-. 7 C 9 POO 

- 19*500 

-. 65 CC 0 C 

- 10.909 

- . 6 COOOO 

- 16 . 500 

-. 5 5900 9 

- 15.000 

-.500019 

- 13.500 

-.450909 

- 12.000 

-.490990 

- 10.590 

-.350991 

- 9.000 

-.301090 

- 7.590 

-* 25 nno 

- 6.009 

- ,290099 

- 4.509 

-.150190 

- 3,099 

- .190990 

- 1 . 509 

-♦ 9509 CO 

- ,990 

- .0 00-099 

1.590 

♦950000 

3,900 

.100090 

4.509 

.150090 

6.090 

,290900 

7.500 

.259990 

9.000 

. 3 C 0900 

19.509 

.350900 


kITH LL SUUTiUN NO LF SUCTTUN FLAP/AILERUN 


SCL 

SLu 1 

SCMCC/4J 

SCL 

SCDI 

SCMIC/4) 

FCN 

PC X 

FCH 

.090000 

.UuUdJU 

.OOODQO 

.900009 

.onooco 

.ooocco 

.000000 

.009000 

.000000 

.211350 

— * u>u-> o*. 

.157626 

.255351 

.021673 

.169923 

-.667522 

.065703 

* 166BB1 

.262329 

-.021695 

. 163420 

.304245 

.02 7 894 

.174946 

-.697576 

.047773 

.174394 

.31992 9 

- ■ 

♦ 179243 

.379079 

,034834 

.195508 

-.752306 

.115413 

.168077 

.392975 

-.099764 

♦ 218600 

.513978 

.043915 

.251866 

-.863516 

.059693 

♦215879 

.49472 3 


.264024 

.712633 

.057087 

.323933 

-.954174 

.054842 

.233544 

.646929 

-.245947 

.238232 

.919462 

.077707 

.313158 

-.735714 

.OJ0169 

• 183926 

.865 756 

- ■ 144j 6> 

*072602 

1.0 70 728 

.108530 

.131153 

.044270 

.073504 

-.011067 

1.119079 

,047/iO 

-,166 264 

1.192642 

.145766 

-.143566 

1.111887 

.174742 

-.277972 

1.399 54 7 

. 20171 > 

-.342695 

1.293113 

. 182 199 

-.347213 

1.924460 

.2 54011 

-.401115 

1.426189 

,2463 66 

—*387815 

1.394953 

.211302 

-.396400 

2.202364 

.358997 

-.550591 

1.485347 

* *.J>0>4 

-.363598 

1.479290 

.227070 

-. 365261 

2.181211 

.472546 

545303 

1.517628 

.21 

-.340768 

1.526200 

.227474 

-.338389 

2.132749 

* 5 C 2 06 3 

533187 

l. 535 604 

.2110*4 

-.333373 

1.541010 

.21T 465 

-.333886 

2.120010 

.459477 

-.532002 

1. 542 580 

. 206>V4 

-.335356 

1.541399 

.207 196 

-.335661 

2.134708 

.489267 

-.533697 

1.540784 

. tQiJ 70 

-.333684 

1.53B536 

,204129 

-.334502 

2.133996 

,486293 

-.533499 

l* 539501 

• 2 U Oil 5r V 

-.334714 

1,5 30064 

.207 5B0 

-.334834 

2.133683 

.486540 

-.533421 

1.512358 


-.342043 

1.512993 

.215817 

-.341869 

2.143509 

.404450 

-.535877 

1.491912 

. *.*l :<i Jo 

-.353280 

1.492323 

,225626 

-.353167 

2.160066 

.479038 

-.540017 

1.477241 

, *_ J>i >D 

-.362353 

1.477140 

.233037 

-.362381 

2.173242 

.475508 

-.543310 

1.474079 

.*>>5 41 

-« 365161 

1.473834 

.235250 

-.365228 

2.176532 

.473209 

-.544133 

1.483564 

*23iu4/ 

-.361480 

1.483489 

.231750 

-.361501 

2.170549 

.473377 

-.542637 

1.505680 

■ *.^23 42 

-.33189 1 

1*505925 

.222633 

-.351824 

2.157114 

*476057 

53927 B 

1.534 92 8 

. <i d3>3 

-.349997 

1.535278 

.210 748 

-.340001 

2.141458 

.479846 

-.535365 

1*5b3015 

■ 2uUo 75 

-.331385 

1,562784 

.201400 

-.331449 

2.130541 

.462603 

-.532635 

1.50466 5 

. 1Y >8 o i 

-.328312 

1.5 83 492 

. 194469 

-.320635 

2.127422 

.483403 

531856 

1.600592 

.1437/> 

-.32 81 1 1 

1,599889 

.193047 

-.328280 

2.127567 

.4 E3680 

-.531892 

1.6U 695 

. 1V 24 d 1 

-.327940 

l .614407 

.195589 

-.327170 

Z.126671 

.484741 

-.531668 


6-27 






6.3 EXAMPLE PROBLEM $ 2, SINGLE SURFACE ANALYSIS CAPABILITY (CONTINUED) 


12.Con 

.400000 

1.617052 

. i*0444 

-.J29t50 

1.021535 

.198 772 

-.328417 

2.130054 

.484090 

-.532514 

13.50" 

.450000 

1.614868 

»6Ui3 Jii 

-.337417 

1.611 735 

. 19785*. 

-.338279 

2.L47656 

.477286 

-.536914 

15.000 

.5CCOOO 

l.599256 

•lUYCt 4 

-.34403* 

1.5B3082 

.19 0016 

-.349*77 

2*149363 

.455048 

-.537341 

16.SCO 

.55000* 

1.557017 

. io6^ 7 > 

-.323676 

1.5 48 5*5 

.176166 

-.326*18 

2.027192 

.358729 

-.506790 

ifl.nco 

,600000 

1.47721L 

. iuo/U J 

-. <c534ah 

1.52*269 

.137898 

-.238651 

L.60 fi° 1 5 

.253743 

-.422*04 

lSl.^nn 

.6 50000 

1.375036 

• UiJw>5 U * 

-.152 782 

1.490**4 

. 138960 

-.L2L422 

I.245076 

.170199 

-.311469 

21.9** 

. 70*900 

1.203082 

— . Joy? L *t 

-.084713 

1.430798 

.12421* 

-.0419*3 

.92*555 

.000987 

-.23*139 

22.5*9 

.75*0*0 

1,212442 

- . u^ou c. f 

-,OT23h 7 

1.J57426 

.115552 

-.*32528 

.619186 

.051487 

-.204797 

24.*n* 

.H0O0OC 

1.146327 

- . Ul JL. IU 

-.087016 

1.2 83644 

. 1*9213 

-.056962 

.828428 

.053268 

-.2*71*7 

25.500 

.u 500*0 

1.06554V 

• 6 gi 7 1 O y 

-.096447 

1.144706 

.101 L67 

-.074684 

.821118 

.054492 

-.2*528* 

27.000 

.90*0** 

.564372 

. Ui u4 yj 

-.09414t 

1.029906 

.09*884 

-.0775*2 

.770320 

.047431 

-.19258* 

2 8.5oo 

.950**0 

.666540 

» J. J l J I 7 

-.066750 

.913453 

.079632 

-.*73852 

.73*636 

.026 763 

175159 

3'J.OO* 

1.900*** 

.**9000 

.yyjjyy 

. OOOuO* 

.non0*0 

. 000*00 

, noof.rn 

. 000*00 

.*C10** 

.90*9*0 


ItOf PLOT Flt£ 3) ’FILE 9 2 = LIFT, INDUCED DRAG t AND PITCH IDG MOMENT SECTION COEFFICIENTS 

(VORTEX-LATTICE SOLUTION) 


jOBflAG 1 2 3 4 
VALUE 1 0 I r> n 


Lb 7 b 
14*1 


9 1J LAAMPLL PROBLEM NC. 2 - S INGLE SURFACE ANALYSIS CAPABILITY CEMONSTRA T] l)N 
* 4 i*LFA= a.30 PACHNi> .200 0 FLAP!)* 39.00 A IL ERONU ■ 10.90-15,09 AL T I T (JOE -**♦»** 
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*ING AIPLLAD COEFFICIENTS 

* 4.44444444444 444444444444 



WCL 

wCOI 


h C MR 

WCMV 

1XL 

1YL 

IZL 

DEL TA 

SCALE 

WITH LE SUCTION 

1.32943 

. 13b<*7 

<.7iCo 

.*4229 

-.0*006 

.015009 

-,''00498 

-.999901 

.4971+35 

.1661-*! 

NO LE SUCTION 

1.39743 

.2 Ibvo 

-» * J'taJ 

.04171 

-.00020 

.066015 

.000000 

-.997819 




* DIVIDE CHECK AT 

* DIVIDE CHECK AT 


C41425 

041425 


OK TO IGNORE 


LlMcAniZEU solution with le suction 

*M*VH*t^<***UH< «****♦»****«»»**• 


ALFA 

ALfArto 

WCL 

WCL 

SLOPE 

CMP 

SLLPE 

CMR 

SLUPE 

5.00* 

“illO >*» 

1.3294 

.07 B 06 

.***22 

.00*04 


V 

2Y/0 

SCL a 1 

S CL B 

SCL 

SCMI 1/4) 

- 3 0 . sJ J U 

-i. j join 

.COOl’O 

.***nn 

.n*oo* 

.0*000 

— 2 U■uJu 

-.93333 

.91864 

-.99*70 

.23*49 

.15*13 

-2u*6uy 

—.O 00 O7 

l.C r 1 A 14 

-1.033*9 

.3*104 

.16816 

— 24 • i/UU 

-.6UjQ0 

1.*u436 

-1.01915 

.39505 

.21579 

—22. 

— . / J-» 3 3 

1.0o552 

-.90133 

.54179 

.25683 

—2 *.Uju 

-.cooo7 

l . U 7 7 * 2 

-•64562 

. 7063* 

.12274 

-18.yyy 

-.oOJOO 

1 ■ * >506 

-.29957 

1 .1*3*5 

-.1957* 

—16• wJu 

— .jjj3 3 

1 . Os-112 

-.*3079 

1.34531 

39282 

-14. yjy 

-•4oo6 7 

1 .f>_>895 

.*7693 

1.45814 

-.3773* 


CM Y 


00005 


JO0FLA G 1234 56 785 iu PRC1 LEM NO. 2 - SINGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION PAGE 

VALUE 10 16 0 14010* nLF A- j.0> MAONL- .Z^OO FLAP!)* 30.0'*. AILE«0NU= 10.00-15.00 ALT I TUDE =****•• 11 


r 

6 

SCLA1 

SCL 6 

SCL 

SCM( 1/4) 

-l2.uJO 

4Uy *0 

l.ci l 53 

.13990 

1.5*624 

-.33419 

-l*.yuy 

A3 

1 . :> 1 a 7 z 

. 1 7054 

1.52754 

-.32806 

— 8 * J s' V 

- • tou f* 7 

.9955* 

.2*737 

1.53*02 

-.31640 

-6 . Uy y 

-•^.UU *2 

.972*5 

.22o77 

1.019U4 

-.3*403 

—4 • y y v 

-♦A 3^3 3 

.9392o 

.2452* 

1.49391 

-.329*2 

- 2. Jyy 

— . Uout7 

.4 '8ui 

.2615* 

1.46944 

36917 

~ . uy U 

-.'JJuT'O 

,69622 

.27103 

1.AOZ49 

-.3072* 

2. juu 

, yoy6? 

.9‘o75 

.27261 

1.470*7 

-.37145 

4 . UKjJ 

. IjJJ3 


.26758 

1.51337 

-.32412 

6 . 

• i-jjll 0 

.96577 

.26226 

1.3515* 

-.3*33* 

U> jJu 

iLOUCl/ 

.9>244 

.25959 

1.57897 

-.31719 

1 ^ m 

.3 

1.01131 

.25239 

1.59686 

-.33131 

12 « Jvy 

. *.yy 9* 

1.02466 

.23c5 8 

l.o*544 

-.32956 

1** « U Jy 

• 4 u «j c 7 

1. r ♦ 2 * 2 

,21469 

l.59999 

-.34663 

1 h 4 'Ju 'U 

• 5 J J 3 3 


.16639 

1.50239 

- .356d7 

1 Up J J L 

a <J J y * C 

l.f 785 

.*4/86 

1» 4o7 49 

-.26597 

2*. y j j 

• uuj 0 7 

l.*w815 

-. 1 11 •*'8 

1.33554 

-.1IB39 

tV 1 JQ V 

. 7jj.^3 

t.*9?o4 

-.22383 

1.22b /5 

-.0649* 

24. jyy 

. Liy yOT 

l.*o736 

-.2 7017 

L.l4*6* 

- .09538 

i. O m Ul J u 

.uuu 0 7 

1.0 A 71 

-.3*ol/ 

l.*2952 

-.11147 

z' 0 4 J y v 

.9j 

.41614 

-.12425 

.89636 

ir*68 

3 *. y <j u 

L • y J J * 0 

. 0 * 0*0 

.****0 

,nnn<->f 1 

.or*** 

8 9 u 

tAHriFLt. PRGnLEM NC. 

2 - SINGLE 

SURFACE 1 

ANALYSIS CAPArill 

1 l * aL 6A= i.D* MACliNO . 2<‘ * * FLAP|;= 3*.** 

U-(L«rU£U SCLUUJh WITH Lfc SUCTION 

A 1 L FROND = 19. 

ALFA ml ruKo *LL 

S 

WCL CMP 

LUPL SLOPE 

LMR CMY 

SLOPE 

11.059 -n 

• 03 > . * * 

<'l .*7H8c .**02 2 

3**04 .00*05 


ORIGINAL PAGE IS 
CF POOR QUALITY 


JOB FLAG 
VALUE 


3 

1 o 


DEMONSTRATION 

i.O* ALTI T UDF-***** * 


PAGE 

12 


JUtH LAG 
VALUE 


2 3 
P 16 


tA^riPct. PRliAEP NC. 2 - S INGLE SURFACE ANALYSIS CAPABILITY GE MHN STR A T l ON 

j.) r; MACHNU= .2'** FLAPD= 3r.^*i A l L F R UNO = 1*.**-15.** AL T IT UT)F = *»*** * 


PACE 

13 


LUxtMcvlZEu SCLUTIUN WITH LE SUCTION 


6-28 






\ 


6.3 EXAMPLE PROBLEM # 2, SINGLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 

- ■ . . .... ..—,—..— . .•—■ i 1 1 



JflBFLAG l 234 56 789 iu laaMMLl PROBLEM NC. 2 - S TNGLf SURFACE ANALYSIS CAPABILITY DEMONSTRATION 

VALUE X 0 lb 0 l 4 0 l 0 «t ALFA- 3.00 NACHNO- .2030 FLAP D« 30.00 AILEROND■ 10.00-15.00 ALTI TUOE- ****** 
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16 



JDBFLAG 

VALUE 


fcXAiiMLt PROBLEM NC. 2 - SINGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
3.00 MACHNQ= .2000 FLAP U= 30.00 AILEROND® 10.00-15.00 ALTITUDE®' 
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L 1 ivc. ak 1 /ED SCLUT ICN WITH LE SUCTION 

**»*«•************************♦♦*** 




ALFA 


WCL 

WCL 

CMP 

CNR 

CMY 








SLOPE 

SLOPE 

SLOPE 






13, 50 3 


2.0000 

.07886 

.00022 

.00004 

.D0005 





W1 Tri Lt SUL J IgN 

NO 

LE SUCTION 

FLAP/AILERQN 

Y 

2Y/M 

SCL 

SLUi 

* CMIC/4> 

SCL 

sect 

SCMIC/4) 

FCN 

FCX 

FCH 

-3".000 

-1.000000 

.oooooc 

.uuOuuO 

.000000 

♦OOOOOO 

.000000 

*000000 

.000000 

.000000 

.000000 

-28.000 

-,923333 

.046498 

. U‘J oi9 5 

.161354 

.948306 

.179898 

.189343 

-.509958 

.021626 

♦127490 

-26.000 

-.86 666 7 

.975103 

. J J 0* >> 

.171091 

1.091002 

.201369 

.203150 

-.548807 

.056065 

.137222 

-24.000 

-.8O0O0G 

1.109572 

.GlOUw"* 

.216524 

1.398895 

.400 929 

.296068 

-.662415 

.028898 

.165604 

-22.000 

-.733333 

1.269 711 

.072117 

.267635 

1.861343 

.753473 

.430532 

-.715877 —.039961 

.178969 

- 2 ^ ♦ 00 0 

- .66666 7 

1.508509 

.lU39)9 

.151275 

2.100656 

.783059 

.314267 

-.110440 

.045348 

.027610 

-1U.000 

-.600000 

1.810 541 

. io?yj/ 

-.146758 

2.003064 

■ 38 0527 

-.093422 

1.157260 

.358593 

-.209315 

-16.000 

-.533333 

2. C4345B 

.**JlOj 

-.350218 

1.965215 

.136478 

-.371362 

2.039362 

.663232 

-.509841 

-14.000 

- .466667 

2.154 8 2 0 

■ *>Ji46 

-.364573 

2.115328 

.205799 

-.375333 

2.173559 

.844779 

-.543390 

-12.000 

-.4C0OOO 

2.197950 

. <.o7oo4 

-.335930 

2.219985 

.292431 

-.329923 

2.109684 

•9C6632 

-.527421 

-10.000 

-.133333 

2.207985 

. * £>?•*■ >7 

-.330483 

2.215 269 

.29 5 625 

-.328498 

2.106126 

.900286 

-.526531 

-a.coo 

-.26666/ 

2.198371 


-.335216 

2.192 240 

. 29 0 40 1 

— .3 36BB7 

2.126665 

.991915 

-.532166 

- 6.COO 

-, 2CCCC0 

2.170B60 

. *..*9 7* 

-.341592 

2.169746 

.321727 

-.341896 

2.143098 

.85387/ 

-.535774 

-4.0Q0 

-.133333 

2.123763 

.J4494J 

-.345769 

2.125430 

.346816 

-.345315 

2.126333 

.682309 

-.531583 

-2.000 

-.066667 

2.0 78 72 6 

• JU46 J-» 

-.346873 

2.070627 

.364948 

-.346845 

2.093673 

.673206 

-.523418 

-.000 

-.oocrcc 

2.063 46 5 

. * / Jti'tj 

-.345593 

2.062056 

.373147 

-.345759 

2*074288 

.852506 

-.518572 

2.000 

.066667 

2.086115 

* joVouo 

-.344100 

2.086180 

.369663 

-.344082 

2.083681 

,056071 

-.520920 

4.000 

.132333 

2.141754 

.J5JJ4J 

-.343153 

2.142637 

,354385 

-.342911 

2.119630 

.07262? 

-.529907 

6.000 

.200000 

2.2C1798 

. 3446 45 

-.33/3/8 

2.201248 

.334192 

-.337529 

2.135381 

.884108 

-.533045 

8. non 

.266667 

2.244474 

• J* lo 62 

-.325435 

2.241490 

.318 140 

-.326255 

2.107132 

.879660 

-.526783 

10.000 

.323333 

2.275009 

■ ->Ud9<i* 

-.318168 

2.278538 

.313152 

-.317198 

2.084673 

.875953 

-.521168 

12.000 

.400CCO 

2.295901 

.2941UJ 

-.321529 

2.306565 

.306765 

-.318597 

2.096136 

.877257 

-.524034 

14.000 

.466667 

2,258736 

« l 6 1 > 54 

-.329975 

2.279681 

.258 726 

-.335214 

2.1I484L 

.861008 

— * 52 B710 

16.000 

.533333 

2.268043 

. <.647 J4 

-. 316 765 

2.232036 

.22 19 72 

-.326664 

2.041261 

.783673 

-.510315 

18.000 

.6CCOOO 

2.103 55 3 

. <.<.43 74 

-.236087 

2.285962 

.351015 

-.207927 

1.712967 

.585816 

-.428242 

20.000 

• 6 66667 

2.065214 

. 1 00694 

-.122010 

2.382999 

.56 6088 

-.035451 

1.257704 

.339441 

-.314426 

22.000 

.733333 

1.961440 

. 1oo9«j. 

-.072106 

2.325266 

.599061 

.027916 

1.015716 

.212299 

-.254929 

24.000 

.800000 

l.856542 

. iut>l 4 J 

-.079640 

2.1 16473 

.474832 

-.008186 

.985184 

.156913 

-.246296 

26.COO 

.866667 

1.703253 

.1/7*4/ 

-.OH6305 

1.8 74 422 

■ 300624 

-.039026 

.942345 

♦ 187464 

-.235586 

28.000 

•933333 

1.512"3e 

. 16 72*0 

-.0BO875 

1.634103 

. 332212 

-.047316 

.055400 

.161215 

-.213850 

30.000 

1 .ono^r-r 

.Onnr,0O 

.oUOJUo 

.000090 

.000000 

.cocoon 

„0"0r00 

.oocom 

.ocoooo 

.000000 


WITH LF SUCTION W*L® *.Ji/JJ? / WCCI- 

.25831 

/ WCMIC/4I- -.26917 / l/D* 

7.74255 



NO LE SUC TICN 

*.iuG4 L 7 

.42297 

/ 

-.22422 / 

5.15497 


JOBFLAG 1 2 

J - 

3 4 5 6 

7 8 9 

10 tArtrtPLC PROBLEM 

NO. 2 - SINGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATIQN 

VALUE l 0 

16 o i 4 

o l 0 

•+ m*FA= 

>.00 MACrlNU® .2000 

FLAP U= 30."? AILERONO- 1?.00 

-15.00 ALTITUDE®**** 




UhcAa12ED SCLUTKN W J NG COEFFICIENTS 







******* ****************** ****** ****** 







itllrl LE SUCTICN 


NO LE SUCTION 





ALFA 

»L* 

WCU 

WCMIC/4! 

WCL 

WCD 

WCKIC/4I 





-12.000 

-.Oil* 

,0156 

-.2749 

-.032 2 

.0299 

-.2810 





-11. non 

. ui> / 7 

.0162 

-.2747 

. "469 

.0307 

-.2ft08 





- 10.000 

. Ihoo 

.0175 

-.2744 

.1266 

.0326 

-.2003 





-9.000 

. ast 

,0196 

-.2742 

.20 70 

.035 6 

-.2797 





-8.one 

. 5 J 45 

.0224 

-.274? 

.2879 

.0402 

-.2790 





-7.0"? 

. JO J>i 

,0260 

-.2730 

.3695 

.0458 

-.27 80 





-6.000 

.40*0 

.0303 

-.2735 

.4517 

.0526 

-.2770 





-5.000 

■ J4jO 

.0354 

-.2733 

.5346 

.0607 

-.2757 





-4. Coo 

. Ol 97 

.0412 

-.2731 

.6 181 

.0700 

-.2743 





-3.con 

. OV0I» 

.04/8 

-.2729 

. 7t2l 

.030 5 

-.2728 





-2.000 

. 77 74 

.0551 

-.2726 

. 7B69 

."922 

-.2711 





-l.noo 

. 

.0632 

-.2724 

.8722 

♦ 1051 

-.2692 





.non 

. VJ51 

.072 l 

-.2722 

.9582 

.1193 

-.2672 





l.ooo 

i ■ Ul 4U 

.0017 

-.2720 

1.0448 

.1347 

-.2650 





2. COO 

1 . U92 4 

.09 20 

-.2718 

1.1320 

.1513 

-.2626 





3.000 

1.1/1/ 

.1032 

-.2715 

1.2 198 

.1691 

-.2601 





4.000 

1.2*0o 

.1150 

-.2713 

1. 3 r 83 

. 1681 

-.2575 





5.000 

1. *4 94 

.12 76 

-.2711 

1.3974 

.2064 

-.2547 





6.000 

1.4U60 

.1410 

-.2709 

l. 4872 

.2299 

-.2517 





7.000 

1.40 / 1 

.1551 

-.2706 

1.5775 

.2526 

-.2485 





3.000 

1. >0 0 J 

.17 00 

-.2704 

L.6685 

.2765 

-.2452 





9.COO 

1.0449 

.18 56 

-.2702 

1.7 601 

.3"16 

-.241 a 





in.cor 

1.7*47 

,2020 

- . 2 7 OP 

1.8 523 

.3280 

-.2382 





ll. coo 

1 . 0 j*o 

.2191 

-.2697 

1.9452 

.35 56 

-.2344 





12."CD 

1.Obl4 

.2370 

-.2695 

2." 38 7 

. 3844 

-.2304 





13. CO" 

1.7uuj 

.2556 

-.2693 

2.1328 

.4144 

-.2263 





14.000 

*.0*9* 

.2750 

-.2691 

2.2275 

.4456 

-.2221 





15.090 

2.iidJ 

♦ 2952 

-.2680 

2.3229 

.4781 

—.2177 





16.000 

2.1904 

.3 161 

-,2006 

2.4109 

.5118 

-.2131 





17.000 

*.2/*/ 

.3377 

-.2604 

2.5 155 

. 5467 

-.2CB4 





18.000 

*.J54o 

. 360 1 

-.2682 

2.6127 

.5020 

-.2035 
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( EOF PLOT FILE A I' 


FH,S ft s _ LINEARIZED SOLUTION ARRAY (EXTRAPOLATED USING LIFTING-LINE THEORY) 


**** JOS TIME” 133 / cuFjtu T 1 Hl = 133 / NU.PLUT FILES® 4 / I SURF ExfC. VERSION 6-1E-72 **** 


• •9»***«*##t******%4tt*.4.«..«. **«**»«***•<* + * • ♦ •♦♦♦♦♦♦♦•♦•••#*************************'**** ******** * 

j ******************* **************** ****** s **************************************************** 

XQT TRWPLT OUTPUT QMI??ET\ SEE INPUT LISTINGS (PAGE $-3 THROUGH 6-5) 
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6,4 EXAMPLE PROBLEM S 3, NORTH AMERICAN XB-70 AIRPLANE 


SUQSONIC-FLOW LIFTING SURFACE ANALYSIS PROGRAM HAU1DB 
TRW SYSTEMS [NC.r HOUSTON OPERATIONS 
HOUSTON, TEXAS (77050} 


JOBS INPUT LIST •*** 

7 Xf5T NSURf 

EXAMPLE PROBLEM NO, 3 - *B-7Q AIRPLANE SUBSONIC AEROQYNaMIC ANALYSIS 
T 4 SK 7:?, PROJEC 1 3303a. MJO 147033, AERODYNAMIC ANALYSIS AND DESIGN 
Subsonic-flow lifting SURFACE ANALYSIS, TRW program NO, RaQIOb <NSURF> 

A,V,GQM£2/ 5 JULY 1972 

JINPUT 

NwlNG = 3,Nv/TAlL = -l. GSCALE^O.OSJSJi, COLOCP a Q,8Q. 

MW t NG = 1 i 

NSS( 1) = 7,N C S( i1e?.NFUG(lI*22<NFLCC6)*6,XOc<liH"UiOiliai 
X(l>=-50.5,-50.5* -50*S»-5U.5f3*Q,Q» XOCR<1>*7*1,0, 

Y!1)ao,.57-27,114.54*171*81,229,06,400*89#62?*97* 

2(1>*2*0.0.0.44i,U,882,3*0,0* 

E(l)*?•□.n,-0,5,-1.0,-1.9,-3,0,-3,0, 

C(D S 1413-C8,l?6l.51**1110.456,964.3 9 4 i 908.832.530.647,26,4 r 
MC ANR O 2 1 

NSS<2}-9 l NOS(2)s3 r NFLG(2)s6 > NFLG{7)«2,XDCU,2J«0.0,0,5*l,0, 

X<BI>-1723.0,-1723,0 * XDCR(6Js0.55,G,31532* 

Y(flj=0,0.171.81, 

Z(83*-73.n.-73,: ( 

E(8)*2*3.0. 

0(8)5249.5,96,71, 

ZOCC1.81=0,0,o,DiC.00016. 

Z0C(l«9J>n f 0.D f 3.D.O0B16I 
MFUS »1, 

NSS(3>«U.NCS(3>«2 ,NFLG ( 3 )>2 ,NFLG ( 0 ) = 3 ,XOC (1,3 >»Q ,Q ,1,0 , 

X<10)=-1463.0 8,-1312.018, Y<10)*Q,, 57,27, 2<10>*2*q,0 * 6<ID>>2*0,0, 

C(10i=740-0*64c,?.XOcRFlO>°li0,1.0,XOc<1<3 > = fl ..1. 0, 

MFINSn, 

NSS< 4)c13, NCS(4> = 2r NFLC<4)»3. NFLG(9>*2, XOC11» 4 ) *Q,Q,1,Q, XOC«(12) *2*1.0« 
X<12> = -50■5,36.Y<12>=2*171.81, 2 <12>«0,BB2r-l?i ,81, gl12)>-l,0»-1.0» 

C<12 >*326.1313,03,:7r 

XCG*- 725.<\ ZCr,55.5.YCC-0, j , rEFs = 906883,0 . REFC a 942,3A, REFBU260.Q* 

NJOB 2 1, ALF A = 1 , MaCMN- 0,20. NS0LV* 1,1,1,2,1 * 4, 

K T2= 8, NFLC(19 > = 1, 3, 

l£N 0 

IENdJObS 
7 XQT NSURF 


JOBFLAG 1 2 3 4 5 6 7 0 9 10 11 12 13 14 15 16 17 16 19 20 EXAMPLE PROBLEM NO, 3 - XR-70 A1RPlANE SUBSONIC 4 EROO PaGE 

value 22 623o&232ooooooaaii.o alfa* ,oj machnd* 5 ,aooo altitude******* i 


SINPUT 
KOUT 

- 

♦ 6, 


KTl 

3 

+ 1 , 


KT 2 

3 

+ », 


KT3 

= 

+ 3. 


LI NX 

3 

+ 56, 


NWJNq 

3 

+ 3, 


NVTaIL 

= 

-1, 


NFUS 

s 

♦ Q 1 


COLOcP 

= 

.«OGDCOODE+OOi 


CUT0F1 

= 

.lJCOCDOafc-03, 


CUT0F2 

s 

,?920COQ0£-a2. 


LFLAP 

5 

♦ 0. 


GSCALE 

S 

, lOC'JOOQO^ + Ol. 


NSS 

z 

♦7, 

*9, 

NCS 

♦ 0 . 

+ 2. 

♦3, 


♦ 11 . 


X = -,42:03164 6+ O1, 

-• 42o8il64f+01 , .ODfinnn 

- - 14358276F + 

JE+OO, 



A O [} 

— 

.ioo:doooe+oo. 

-,6?49i424E+02» 

YCC 

= 

• r .oc :coooe+oo» 

ZCG 

= 

.4503315OE+OO, 

REFS 

= 

,629774«lE + 04 . 

REFC 

B 

,7053l351E+O2, 

REF0 

= 

,1Q499950E+U3i 

NJuB 

c 

+ 1, 

ALFA 

= 

.io'ucaoa E+ o2, 


. w ' ‘J'J * 

, i25000QOfc+00. 
.l 2500000 e*QO, 


uuuOOe+OO. 
i25agaooe+oo» 
12500000E+Q0, 


.ooooo:ooe + oo, 

■ooooaiooF+oo, 
.ooooo oot^-ou, 
.00000 .OOF4-00 , 

.orocoeonF+co, 

machn = , 2: 

•oooooroot+oo, 
anoocrooF.+oo, 


-ocoooooo t+ oo* . 
, OOQJOOODE+OC. .OOOOOOOOb + OO, 

. DOOJODDOE+OOi .OCOOQOOOE+OJ, 

, JDCnOOOOE + OD, -OOOOOOOOe+OO, 

, 3U[j;0023E + CC , rOCOOOOOOE^O J. 


DOOOE+OD. .OCaODCOOE+OO. 

.000JOOOOE+Oc • -oaoouuoob+ou. 

.00000003E+3D, . oaociaooot+oo, 

HEIGHT = ,1'j"! rcOOOE+05. . iCGCOOaOE + OSr 

• lOOOGwOOF + D5, .LQOOOOOJE*05, -1000UD0QE + D5, 

, l0Ui.’003DE + 05, .10000a00fc + 0S, 

.«■ :c :cooe+uc. .acocococE+oo* 

00, ,OOOOOODDE+OQ. 

U :sdqoe + oo , , oc OCOOOOE +oo, 

. DDD'.’OOOOE+Ou, 

J30QE+OQ. .CCOCOCOOE+CO, 


.ioaoa:aGF+D5, 

flapoj * 

-onaoa ;oof 

T ABOJ = 

.ooooo;oop< 00 . 

A I i_Oj = 

■ 3O0n0vDOF. + 0D» 

■ ooooo;ooF.+oq , 
NFlG * 


NSaLV 


:oooooc3E+oc. 

ODocaaojE+c:. 

+ 22 , 


*i, 


OOOOOOQOt + Oi), 

:o:ooooot+DJ, 

*6» 


oauooonoE+oa, 

,ooooooaoE+oo, 
.QOOOOOOOE+aC, 
.OOOOOOOOE^OO, 
.OOOOOOOOE+OC, 

OOOOOCOOE+OO, 

♦ OOOOOOGOt^Cfi * 

1000000DE+05, 

.lOOaOOOOE+CS, 

□oqooodoe+oo, 

OOOenDOOE+OO, 

uodcooooe*oqi 

■QOOOOODOE+aDi 

* 2 , 


+ 6 • 

+ 2, 

+3* 

+ 0, 

♦ 0, 

+0* 

+ 0, 

+ 0, 

♦ 0 , 

M* 

+1, 

♦Or 



+ 1. 

+ 4, 

+ 0 , 

+ 0< 

♦ 5, 

+ 0, 

*0 1 



+ 3 » 


+ 2 , 



ORIGINAL PAGE 15 
OF POOR QUALITY 


SEND 
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6,4 EXAMPLE PROBLEM § 3, NORTH AMERICAN XB-7D AIRPLANE (CONTINUED) 



-1- 

J08FUC 1 2 3 4 5 6 7 o 9 10 11 12 13 14 ^ 16 17 1« 1 ? 80 EXAMPLE PROBLEM NO, 3 * Xh- 70 AIRPLANE SUBSONIC ABRQO p *®* 

VALUE 22 6230623200000000*10 ALF*« ,QQ MAfiHNO* .DOOS ALTtTUQfr******* * 

^ SURFACE # ; = WING 

LIFTING lURPACE NO* 1 


SPAN 

ROOT 

CHORD 

tip 

CHORD 

ROOT 

TWIST 

TJP 

TWIST 

AREA 

104,995 

117,756 

2,200 

.oooa 

“3,0000 

6196,66 

fla° 

SPAN! 

. :oo 

FLIP 

SPAN? 

,600 

FLAP 

SPAN3 

1-000 

flap 

DEFLEC 

-000 

Tab 

OEFLEC 

(000 

L,AIL 

oeflec 

.000 




FUS STA 
X(CG) 

-60,491 

WltyG STA 
VICO 
,000 

*L STA 
Z<CO 

,4*8 


vs 

Y 

Z 

X(LE> 

X<C/4> 

X ( Tg ) 

- 52,498 

“ 52,497 

,000 

■ 2,200 

- 1,650 

,000 

“ 47,248 

- 47,247 

.000 

- 13,756 

- 10,317 

,000 

- 41,999 

- 41,998 

,000 

- 25,312 

- 18,904 

,000 

- 36.749 

- 36,748 

.000 

- 36 , 86 ? 

-27,651 

,000 

- 31.499 

- 31,498 

-000 

- 48,423 

- 36.317 

,000 

“ 26.249 

- 26,248 

,000 

-.*9,979 

- 44,904 

,000 

“ 20,999 

“ 20,998 

.000 

- 71,533 

- 53,651 

,000 

“ 15.749 

“ 15.749 

,051 

- 83,090 

- 63,054 

-2,946 

- 10.500 

- 1^,499 

.044 

“ 94,643 

- 72,036 

-4,200 

- 5,250 

“ 5,250 

.004 

- 108,073 

- 82,109 

-4,208 

.000 

,00 0 

.300 

- 121.965 

- 92,525 

-4,208 

5.250 

5 , 25 c 

.004 

- 108,075 

- 02 , 10 9 

-4,200 

10-500 

10,499 

,044 

“ 94,645 

- 72,038 

•4,20® 

15.749 

15,749 

.051 

- 83,090 

- 63.054 

-2,946 

20.999 

2 C ,998 

.000 

“ 71,535 

- 53,651 

,000 

26,249 

26,248 

.000 

- 59,979 

- 44,904 

,000 

31.4 99 

31.498 

-000 

“ 48,423 

- 36,317 

,000 

36,749 

36,748 

,000 

- 36,867 

“ 27,651 

,000 

41.999 

4 J ,990 

.000 

- 25.312 

- 18,904 

,000 

47,248 

47,247 

-000 

- 13.756 

-10,317 

,000 

52 . 49 B 

52,497 

,□00 

• 2 , 20 G 

• 1,630 

,000 


ASPECT 

RATIO 

MEAN 

CHORD 

KGC 

(MaO 

tear 

{M8C ) 

X&AR 

(MOO 

Z&AR 

(MGO 

1,7790 

59,019 

76,777 

17,943 

-59,772 

,970 

R« A1L 
OEFLEC 
,000 

DINED, 
MGC/4 
. 000 

• SWEEP 
MCC/4 
38,793 

N0.9PAN 

ELEMENTS 

22 

NO,CHORD 

elements 

6 

NO,CHORO 

OlScONTj 

0 

AREA 

S(CO 

6297,748 

CHORD 

ctcoi 

78,331 

SPAN 

steel 

109,000 





TWIST 

DI HE(C/4 1 

6WEPIC/4 ) 

C(WINO) 

Cl FLAP) 

citasi 

-3,000 

.000 

-38,793 

2,200 

,350 

,273 

•3,000 

,000 

“56,793 

13,756 

3,43? 

1,?1? 

-3,000 

.000 

-58,793 

23,312 

8.326 

3,164 

-3,000 

,000 

“*8,79* 

36,86? 

9.21? 

4,60® 

•2,®Q0 

,000 

“58,793 

40,423 

I2,lg6 

6,033 

*2,250 

,000 

•58,793 

39,979 

14,9$S 

7,497 

-1,700 

,000 

-58,793 

71,533 

17,804 

8,942 

-1,130 

-,982 

“61,878 

80,144 

20,038 

10,010 

-,600 

.441 

“58,793 

90,437 

22,6q9 

111*09 

-,050 

,♦41 

-63,183 

103,06? 

25,96? 

12.903 

,000 

,000 

63,260 

11? , 738 

29,439 

14,720 

-.050 

-,♦41 

63,163 

103,00? 

25,96? 

12,903 

-,600 

“,♦41 

68,793 

90.43? 

22.6Q9 

iii*a® 

*1,130 

.082 

61,876 

00,144 

20,036 

10,01® 

-1.700 

«OQD 

&B.795 

71,333 

1?,804 

8,942 

-2.250 

,0Q0 

58,793 

59,979 

14.’93 

7,497 

-2,000 

.000 

56,793 

48,423 

12.106 

6,033 

-3,000 

,000 

58,793 

36,867 

9,21? 

4,6qB 

-3,000 

,000 

38,793 

23,312 

6,328 

3,164 

-3,000 

,000 

56,793 

13,73* 

3,43? 

i.?i® 

-3,000 

, QQO 

58,793 

2,200 

,330 

,27l 


JGRFLaG 1 2 3 4 5 6 7 8 9 1C 11 12 13 H 15 16 H 111 19 20 EXAMPLE PROBLEM NO, 3 - XB-70 AIRPLANE SUBSONIC AtRCD PACE 

VALUE 22fi?306232000000Q0110 ALF** ,00 MAeHNO* *0000 ALT ITUpE******* 3 




XAU >/C 



,0000 

X 

Y 

zaid/c 

“4.2083 

.0000 

,0000 

-4.2083 

4,7725 

,0000 

-4♦2^83 

9,3450 

,0000 

-4.2003 

14,3174 

,0000 

.0000 

19,0499 

.0000 

.0000 

33.4074 

,0000 

.0000 

52,4973 

,0000 


XA(2)/C 

XAl3)/C 

XAM>/C 

1.0000 

,0000 

,0000 

ZA<2)/C 

ZAI31/C 

ZAI4J/C 

.0000 

,0000 

,0000 

.nooa 

,0000 

,0000 

,0000 

.0000 

,0000 

. 000a 

,0000 

,0000 

.0000 

,000a 

,0000 

.0000 

,0000 

,0000 

.0000 

, oaao 

,0000 


XA< 3>'C 

XA(6>/C 

XA<7>/C 

,0000 

.0000 

.0000 

ZAI5J/C 

ZA<6>/C 

ZA<7>/: 

.0000 

, QUOD 

.0000 

,0000 

.0000 

,0000 

,0000 

.0000 

,0000 

,0000 

.0000 

,0000 

,0000 

.0000 

,0000 

.0000 

.0000 

,0000 

.0000 

,0000 

,0000 


XAI01/C 

Xi<9»/c 

XA(10)/C 

1 0000 

,0000 

,0000 

ZAI8J/C 

ZAI9J/C 

ZAI101/C 

,0000 

,0000 

.0000 

,0000 

,0000 

,0009 

,0000 

, 0000 

.0000 

. 0000 

, oaoa 

.0000 

,0000 

t DODO 

.0000 

, a a a 0 

,0000 

.0000 

,0000 

,ODOD 

,0000 


(EOF PLOT FILE 


1) 


FILE J = 


VTNC CEOMETRI 


UOBFLAO 1 2 3 4 5 6 7 8 9 10 11 12 JJ 14 15 16 17 10 19 20 EXAMPLE PROBLEM NO, 3 - XR-7Q AIRPLANE SUBSONIC aCrOD PACE 

value 22 6230423200000000110 alfao ,do machno„ ,oood altitude******* 4 

SURFACE % 2 = CANARD CONTROL SURFACE 

LIFTING SURFACE N0« 2 


SPAN 

ROOT 

CHORD 

TIP 

CHORD 

ROOT 

TWIST 

tip 

TWIST 

AREA 

ASPECT 

ratio 

MEAN 

CHORD 

MCC 

(MAO 

V0 4R 
(MGC J 

X8AR 

<MGC> 

2BAR 

(MGC I 

28.635 

20,792 

8,059 

3.0000 

3,0000 

413,07 

1,9850 

14,425 

15.362 

6,106 

-147,305 

“6,256 

flap 

spani 

• □00 

FLAP 
SPANS 
, 6 0 Q 

FLAP 

3PAN3 

1.300 

flap 

deflec 

,000 

Tab 

DEFLEC 

,030 

L. AIL 
DEFLEC 
.000 

R.aIL 

OEFLEC 

1 000 

01HED, 

MGC/4 

,000 

SWEEP 

MGC/4 

21.746 

no,sp*n 

elements 

6 

NO.CHORD 
elements 

2 

NO,CHORD 
DISCDNT, 

a 




FUS STA 
X(CG) 
-60,491 

Vl/vjG STA 

Y< CG ) 
,□00 

Wj. STA 

z < ca ? 
,450 

AREA 

S(CG) 

6297,748 

CHORD 

C<CG) 

70,531 

SPAN 

B(CG) 

105,000 





ws 

Y 

Z 

X( l£ ) 

X(C/4) 

X<TEj 

TWIST 

U I HE(C/4 J 

5WEP(0/4) 

C(WING) 

C(FLAP) 

C(TAB > 

“14,317 

-14,317 

-6,003 

-146,124 

-144,109 

-138,065 

3,QQO 

1 OQO 

“21,746 

8,059 

2,015 

1,007 

-12,806 

“12 f 806 

-6.083 

-147,013 

-144,600 

-137,681 

3,000 

,000 

“21.746 

9.332 

2,333 

1,16 7 

-11.454 

“11.454 

“6,083 

-147,903 

-145,251 

-137,297 

3,000 

,000 

“21.746 

10,606 

2,651 

1,326 

- 10 . 0 22 

“10.022 

-6.0S3 

-148,792 

-145,022 

“136,913 

3,000 

, OQO 

“21.746 

11,579 

2,970 

1,465 

-8. =>90 

-8,593 

-6.083 

-149,682 

-146,394 

“136,530 

3,000 

,000 

“21.746 

13,152 

3,286 

1,644 

-7.159 

-7,159 

•6,083 

•150,571 

-146,965 

•136,146 

3,QQO 

,UQQ 

“21,?40 

14,423 

3,6q6 

1,®03 

-5.727 

-5,727 

-6.083 

-151,460 

-147,536 

-135,762 

3,000 

.000 

-21,746 

15,699 

3,9 Z 5 

1,962 

-4.295 

-4,295 

-6.083 

-152,350 

“14 8,IQ 7 

-135,370 

3, DQQ 

,000 

“21.746 

16,972 

4,243 

2,121 

-2,863 

-2,863 

-6.083 

-153,239 

“140,670 

-134,994 

3.000 

, 00 a 

“21.746 

18,249 

4,561 

2,201 

•1,432 

-1,432 

-6.083 

“154,129 

-149,249 

-134,610 

3,QQO 

lUOQ 

-21,746 

19,910 

4,800 

2,445 

-.000 

.00-3 

-6,083 

-155,018 

-149,B20 

-134,227 

3,000 

“ 6,610 

-70,370 

20,792 

5,198 

2,599 

1.432 

1.432 

•6.083 

-154,129 

-149,249 

-134,610 

3,000 

.ago 

21,746 

19,310 

4,880 

2,440 

2.863 

2,«63 

-6.083 

-153.239 

-148,670 

-134,994 

3,000 

,000 

21,746 

10,249 

4,561 

2,281 

4,295 

4.29? 

-6.083 

-152,350 

-148,iq7 

-135,376 

3,000 

.000 

21,740 

14,972 

4.243 

2,121 


6-31 













6,4 EXAMPLE PROBLEM i 3, NORTH AMERICAN XB-70 AIRPLANE (CONTINUED) 


5,727 

3,727 

-1 r 0*3 

-151,460 

-147,33* 

*135,762 

7,159 

7,159 

-6,383 

-150.571 

-146,965 

-136,146 

A,590 

A ,597 

*6.383 

-149,682 

-146.394 

-136,530 

10-022 

10,022 

-6,083 

-148,792 

-145,022 

-136,913 

11,454 

11,454 

-6.083 

-147,903 

-143,251 

*137,297 

12.A06 

12,66* 

14,317 

-4.083 

-147,013 

-144,680 

-137,681 

1 4 . 317 

-6.083 

-146,124 

-144,1□9 

-138,0*5 


3.000 

.000 

*1.746 

13,499 

3,923 

1.94* 

3.000 

.000 

*1,746 

14,425 

3,6g6 

1,853 

3.000 

♦ OQU 

21.746 

13,132 

3.2BH 

1,644 

3.COD 

.000 

21,746 

11,879 

2,97 a 

1,483 

3.000 

,000 

21.746 

10.604 

2,*51 

1,326 

3.000 

. OQO 

21,746 

9,332 

2,333 

1,167 

3.000 

,000 

21.746 

4,039 

2,013 

1,007 


JOBFLA& 1 

2 3 4 5 

6 7 B 

9 10 11 

12 13 14 13 

16 17 18 

19 20 1 

EXAMPLE problem no, 3 

- XB-70 

airplane subsonic aehod 

VALu e 22 

6 7 3 0 

6 2 3 

2 0 0 

0000 

0 0 1 

1 0 

ALFA* 

,00 MACHNO* ,0000 

ALTITUDE* 




XA< 1 )/C 

XA<2)/C 

XAl3)/C 

XAH>/C 

XA(5)/C 

XA< 6 )/C 

XAC71/C 

XA <8 >/C 

X4(9J/C 

XAU 01 /C 



,3030 

,5000 

1,’JCOC 

, 00 Q 0 

.0000 

.0000 

.0000 

, 03Q3 

,0000 

.0003 

t 

Y 

ZA(1)/C 

Za<2>/C 

ZAliJ/C 

ZA(4 >/C 

ZA(5)/C 

ZA<*>7C 

ZA< 7)/C 

ZAt 8}/C 

ZA(9)/C 

ZA<10)/C 

-143.5*25 

,3000 

,0000 

,0000 

,0*82 

,0300 

,0000 

,0000 

. 0000 

, D000 

.0300 

.0003 

-143.5A28 

14.3174 

<0300 

,0000 

.0882 

• ooao 

,0000 

,0000 

, oaao 

,0300 

,0000 

.0000 


FILE # 2- CANARD CONTROL SURFACE GEOMETRY 

{Eof plot file 


JObFlaC 12 3 4 

VALUE 22 6 2 3 


b 

0 


6 7 8 9 10 11 12 13 14 13 16 17 18 19 20 EXAMPLE PROBLEM NO, 3 - XB-70 AIRPLANE SUbSONIC aCROO P A GE 

*^3200000000110 ALF A 8 ,0Q MACHNQ= ,0000 ALT ITUpt*•♦♦*** 6 

^ SURFACE If 3 = FUSELAGE 

LIFTING SURFACE NO" 3 


S D A N 

ROOT 

CHORD 

tip 

CHORD 

ROOT 

TWIST 

TJP 

TWIST 

AREA 

9.545 

61,666 

53.333 

.0030 

,3000 

548,43 

FLAP 

S°AN1 

,300 

FLAP 

SPAN2 

flap 

SPAN3 

1.300 

flap 

OEFLEC 
♦ 000 

tab 

OEFLEC 

.303 

L.aIL 

OEFLEC 

.000 




FUS STA 
X(CG) 
-60,491 

WING STA 
YCCCJ 
,000 

WL STA 
Z(CG) 
,458 


v$ 

y ; 

Z 

X C LE) 

X(C/4 ) 

X (TE) 

-4.772 

-4,77 2 

,300 

-162, 

668 

-149, 

334 

-109, 

334 

-4,295 

-4,295 

.000 

-164, 

76Q 

-151, 

2lB 

-110, 

593 

-3,818 

*3,810 

,oaa 

-166, 

052 

-153, 

102 

'HI 1 

052 

-3.341 

-3.341 

.300 

- 16 B . 

944 

-154, 

9B6 

-113, 

111 

-2,863 

-2,863 

.300 

-171, 

036 

-156 , 

H70 

-114 , 

370 

-?,306 

-2,386 

* 300 

-173, 

120 

-158, 

753 

-115, 

629 

-1,909 

-1.9C9 

.300 

-175, 

221 

-160 . 

637 

-116 , 

887 

-1.432 

-1,43? 

.1)00 

*177, 

313 

-162, 

521 

-u», 

146 

- . 954 

- ,954 

.300 

-179, 

405 

-164. 

4g5 

-119. 

4Q5 

-.477 

- ,477 

.300 

-101 , 

497 

-166, 

289 

“120, 

664 

,000 

,030 

.300 

-183, 

589 

-168, 

173 

*121, 

923 

,477 

,477 

.300 

-181, 

497 

-166, 

289 

-120, 

664 

,954 

,95 4 

■ 300 

-179. 

405 

-164, 

405 

-119. 

405 

1.432 

1.43? 

.300 

-177, 

313 

-162. 

521 

-110, 

146 

1.909 

1,939 

.300 

-175. 

221 

-160. 

637 

- 116 , 

S87 

2.386 

?, 386 

.300 

-173, 

128 

-158. 

753 

-115. 

629 

2,863 


.aao 

-171, 

036 

-156. 

870 

-114. 

3/0 

3.341 

3,34 1 

.300 

- 168 , 

944 

-154, 

966 

-113, 

111 

3.818 

3,810 

.300 

-166. 

852 

-153. 

102 

-111. 

852 

4,295 

4,295 

♦ ODD 

-164 , 

760 

-151. 

218 

- 110 . 

593 

4,772 

4,7/2 

,300 

-162, 

668 

-149. 

334 

-109, 

334 


ASPECT 

ratio 

mean 

CHORD 

MGC 

(MAC) 

ybar 

1 mgc > 

XBAR 

(MGC) 

ZBar 
(MGC ) 

.1660 

57,500 

57,600 

2,329 

-138,981 

,□00 

R.AlL 

DEFLEC 

,000 

dihld. 

MGC/4 

.000 

SWEEP 

MGC/4 

75,784 

NO,SPaN 

elements 

2 

NO,CHORD 

elements 

3 

NO,CHORD 
D1SCQNT, 
0 

AREA 

S(CG) 

6297,748 

CHORD 

C(CG) 

7».53i 

SPAN 

U {CG) 
105,000 





TW[ST 

0IHE<C/4 > 

SWEP(C/4 > 

C(WlNG) 

C(FLAP) 

CCTAB) 

,000 

,000 

-75,704 

53,333 

13,333 

6,667 

,000 

,uoo 

-75,784 

54,166 

13,542 

6,771 

,000 

,uoo 

-75,784 

55,000 

13,7&C 

6,875 

,000 

,000 

-75,784 

55,833 

13,9 5 h 

6,979 

.00c 

,000 

-75,784 

56.666 

14,167 

7,003 

,000 

,000 

-75,784 

57 f 5D 0 

14,372 

7,187 

,000 

,000 

-75,784 

58,333 

14,583 

7,292 

.000 

tUDO 

-75,784 

59,166 

14,792 

7,396 

.000 

.000 

-75,784 

6n,ooo 

15,000 

7,5Q0 

.000 

.000 

-75,784 

60,833 

15,208 

7,6q A 

,000 

23.020 

-57,U9 

61,666 

15,417 

7,7Q 0 

.000 

♦ 000 

75,784 

60,833 

15,200 

7,6 0 4 

,000 

.000 

75,784 

60»ODD 

15,000 

7 15g0 

.000 

.000 

75,784 

59,166 

14,792 

7,396 

,000 

.UOD 

75,784 

58.333 

14,583 

7,292 

,000 

,UDO 

75,784 

57,500 

14,375 

7,187 

,aoo 

.000 

75,7B4 

56,666 

14.167 

7,083 

,000 

, OQO 

75,704 

55,833 

13,*58 

6,979 

,000 

, UQQ 

75,704 

55,300 

13,750 

6,875 

.000 

,000 

75,704 

54,166 

13,542 

6,771 

,000 

.000 

75,704 

53,333 

13,333 

6,667 


jobflag 1 
VALUE 22 

2 3 4 

6 2 3 

5 6 7 8 

0 6 2 3 

9 10 11 

2 0 0 

12 13 14 15 

0000 

16 17 18 

0 0 1 

19 20 1 

1 0 

EXAMPLE PROBLEM NO. 3 - 

XIWC 

A I RP_A.NL SUBSONIC A SHOO 











i 1 1 w |jt- 




*A<1>/C 

XA(2)/C 

XA(3)/C 

XAU)/C 

XA(5)/C 

XA (6 ) /C 

XAl7)/C 

XA(8 )/C 

XA( 9)/C 

XA Ciul/C 



.0330 

1 .ooco 

♦ ucoo 

.0000 

.0000 

. OUOD 

• 0000 

• OOOD 

rOOQC 

.0000 

X 

Y 

ZAU1/C 

Z A ( 2 ) /C 

ZA<3)/C 

ZAl4 )/C 

2 A ( 5 > / C 

ZA(6>/C 

ZA(7)/C 

Z A ( 8 ) / 0 

Z4<9J/C 

ZA<lO>/C 

-121.9228 

-109.3344 

. "* r ._• 

4.7725 

,0 330 
♦ 030 0 

,0000 
. aoco 

»vOQu 
.0003 

.oooa 

.ooaa 

• DPOO 
.OOOD 

. QUQU 
.0000 

.OOOD 

.0000 

t OOOD 
rOOOO 

,0000 

,0000 

.0000 

,0000 


FILE if Z = FUSELAGE GEOMETRY 


JOaFLAG 1234 

VALUE 22 6 7 3 


5 * 7 B ’ 13 11 12 13 14 15 16 17 18 19 20 

0*23230000000110 


example problem NO, 3 - Xu-TO AtRPuANE subsonic a£ROd Pa<»E 

ALFA- ,00 MAChNO* ,0000 ALT[TUqe*•**•*• ® 


LIFTING 5URFACE NQ* 4 


SURFACE # 4 ® 


VERTICAL FINS 


S = AN 

ROOT 

CHORD 

TIP 

CHORD 

ROOT 

TWIST 

TIP 

TWIST 

AREA 

ASPECT 

RATIO 

MEAN 

CHORD 

McC 

IrtAC> 

YBAR 

(MGC) 

X0AR 
(MGC > 

ZBAR 

(MGCI 

14,391 

27,344 

6.922 

-1.0000 

-1,00 DO 

*46,56 

,8399 

1 7 .133 

19,1*2 

14,317 

-15,691 

-5,442 


6-32 











6.4 EXAMPLE PROBLEM # 3* NORTH AMERICAN XB-70 AIRPLANE (CONTINUED) 


FLAP 
SPAN1 
■ 300 

FLAP 

SRAN2 

,400 

flap 

SPAN3 

1.000 

FLAP 

DEFLEC 

,000 

Tab 

DEFLEC 

<000 

L< All 
OEFliC 
.000 




FUS STA 
X(CG> 
-60,491 

WING STA 
YICG) 
,000 

XL 1 STA 

Z (CO 3 

,458 


5 

Y 

2 

X(LE> 

X< C/4 ) 

XI TS5 


• ooc 

14,317 

,073 

-31,552 

-24,?l6 

• 4 

206 

. 720 

14,317 

646 

-30.l7l 

-23,390 

-3 

846 

1.439 

14.317 

_1.366 

-28,789 

,22.464 

••3 

407 

2.139 

14,317 

-2.083 

-27,406 

-21,336 

-3 

12? 

2.B78 

14.317 

-2,803 

-26,026 

-20.212 

-2 

707 

3.598 

14.317 

*3,524 

-24,643 

-19,065 

-2 

4Q« 

4,3l7 

14,317 

*4,244 

-23,263 

-17,959 

-2 

046 

5.C37 

14,317 

-4,963 

-21,662 

*16;833 

-t 

463 

5,756 

14,317 

-3.683 

-20,300 

-13,707 

-l 

323 

6,476 

14,317 

-6,402 

-19,119 

-14,360 

*• 

909 

7,195 

14,31? 

-7,122 

-17,737 

-13,434 

■ 

*04 

7,91.5 

14,317 

- 7,B 42 

-16,356 

-12,32« 

44 

244 

B ,635 

14,317 

-8,361 

-14,974 

•11,202 


117 

9,354 

14,31? 

-9,281 

-13,593 

-10,0?5 


477 

10,C74 

14,31? 

-10.000 

-12,211 

-8.949 


63? 

10,793 

14,317 

-10.720 

-10,830 

"?;«23 

1 

196 

11,513 

14,317 

-11,439 

*9,44 B 

-6,697 

1 

558 

12.232 

14,31? 

"12,159 

-8,067 

-5.371 

1 

-919 

12.952 

14.31? 

*12.878 

-6,683 

•4,444 

2 

279 

13,671 

14.317 

-13.596 

-5,304 

-3,3l8 

2 

040 

14.391 

14,317 

•14,31? 

-3,922 

*2.l« 

3 

000 


R.AlL 

DEFLKC 

.000 

ptHEO, 

MGC/4 

09,999 

0W«F 

HOC/4 
37.42* 

KO.tFlN 

ELEMENTS 

3 

NO,CHORD 
ELEMENTS 

2 

NO.CHORD 
0J5C0NT, 
0 

AREA 

8<CG) 

0297,746 

CHORD 

CICO) 

78.331 

SPAN 

»(CG) 

103,000 





TWIST 

D1HEIC/4) 

SWEPtC/4) 

Cl WfNO) 

Cl FLAP) 

C(TaS) 

-i 

I 000 

-,441 

65,620 

27,344 

6,53* 

3,416 

*1 

iOOD 

89,999 

' 57,420 

2**322 

6,301 

3.2*0 

•l 

,000 

89,999 

37,420 

29,302 

6,329 

3,163 

•1 

,000 

89,999 

37,420 

2*.201 

6,q7o 

3,033 

-1 

,000 

09,999 

37,420 

23.260 

3,6l5 

2.9Q7 

*i 

.ODD 

09,999 

37.42* 

22,331 

3,300 

2,710 

-l 

.000 

09,999 

37,420 

21,111 

3,304 

2**31 

•I 

.000 

09,999 

37,421 

20,1*7 

3,049 

2.323 

*1 

.000 

09,999 

37,42* 

1«,17I 

4,794 


*i 

■ ODD 

09,9^9 

37,42* 

16,13* 

4,339 

2,26* 

*1 

*000 

09,999 

37,42* 

17,133 

4,203 

2.148 

-1 

.000 

09,999 

57,42* 

1*,111 

4,0?B 

2,01* 

•l 

,000 

09,999 

37,426 

l3i09l 

3,773 

1,80* 

•l 

,000 

09.999 

17 121 

14,070 

J,3lB 

1.739 

-1 

.ooo 

09,999 

37,42* 

13,049 

3,262 

1.631 

-1 

.000 

69,999 

57,42* 

12,028 

3,007 

1.5q3 

•l 

,000 

09,999 

57,421 

11,007 

2.732 

1,37* 

-l 

,000 

09,999 

57,421 

9,900 

2,490 

1.24* 

•1 

,000 

09,999 

37.42* 

8.90S 

2,241 

1*121 

-1 

,000 

69,999 

37,420 

7,944 

1,90* 

,993 

•l 

.000 

19,999 

37,420 

0.921 

1,711 

i*0* 


JOBFLAG 1 2 3 

VALUE 22 6 2 


3 6 7 S 9 10 11 12 13 14 15 1* 1? II 1* 20 SUABLE PROBLEM NO, 3 - XB*70 AIRPLANE SUBSONIC *I«OD **? E 

0623200000000110 ALF** .OQ MACHNO* .DOO0 ALTITUDE•****♦• 9 



XA(1)/C 

XAC2J/C 

XA131/C 

XAI4J/C 


,0000 

l.aooo 

.0000 

,0000 

X Y 

ZA< 1)/C 

ZA(2)/C 

ZA<Ji/c 

zauj/c 

-4,2083 14,3174 

,0000 

.0000 

,0000 

,0000 

3.0000 14,3174 

,0000 

.0000 

,0000 

.0000 


XA ( 9 > /C 

XA<0»/C 

XA(7)/C 

XAI6)/C 

X A < 9)/C 

XA(10)/C 

,0000 

,0000 

,0000 

,0000 

,0000 

,0000 

ZA< 9)/C 

ZA<6>/C 

ZAC7J/C 

ZA(6)/C 

Z A(9 ) /C 

2A<10J/C 

.0000 

,0000 

,000a 

,0000 

,0000 

.0000 

, oood 
,0000 

,0000 

.0000 

.0000 

,0000 


(Eof plot file file * 4 ~ LSFT VERTICAL FIN geometry 

C(1 r- ^ FILE % 5 - EIGHT VERTICAL FIN GEOMETRY (IMAGE) 

<eof plot file 5> 



NOTATION 


3/(1,1), INDICATES SOLUTION FOR SURFACE H 1 IS OUTPUT 
CONSIDERING SURFACE # 1 ALONE. 


SECTION AIRLOAD COEFFICIENTS-SURFACE NO,* l/l 1| i> 


J 

Y * 

Y 

z 

VI 

SCN 

sex 

12 

,:22? 

2,386 

,000 

2,306 

.2030 

,001® 

13 

,0682 

7,159 

,368 

7,159 

.2600 

-.0018 

14 

,1136 

11,931 

1,026 

11.931 

,2622 

-.0062 

15 

,1591 

16,?03 

1,517 

16.704 

,3139 

-.0071 

16 

,2045 

21,476 

1,946 

21.477 

.3203 

-,0146 

17 

,2500 

26,248 

2,022 

26.249 

,333V 

-.0271 

18 

,2955 

31,021 

2,04a 

31,022 

.3442 

-.0341 

19 

, 3409 

33,793 

1,770 

35,794 

,3752 

",04Q ? 

20 

, 3864 

40,966 

1,293 

4Q.567 

,4301 

",0493 

21 

,4318 

45,338 

■ 816 

45,339 

'.5193 

-.0*55 

22 

.4773 

50,111 

.338 

50,112 

, 7439 

-,106* 


SCL 

SCO 

S?1P C/4 

sclc/b 

1XL 

1TL 

1ZL 

,1996 

r 039* 

-.0496 

,2118 

" ■ 0014 

,0011 

-1,0000 

,25*4 

► 0448 

•,0431 

,2413 

• 100*1 

,0319 

-,9995 

,2593 

,0445 

-.0515 

,21*6 

-,0089 

,02*5 

-,9990 

.3103 

,0533 

•,0405 

.2332 

-,0196 

,0199 

-,9990 

,3259 

► 0545 

-.0241 

.2188 

"10354 

,0175 

-,999g 

,3335 

,0533 

-.0180 

,1909 

-,0390 

,0139 

-,999; 

,3449 

,0930 

- ► 0192 

,1*25 

-♦0496 

.0110 

-,9987 

,3766 

,0901 

“,0239 

,1398 

-.0557 

,0009 

-,9984 

,4321 

,Q66l 

-,0281 

,li7l 

•*, 05*2 

.0011 

-,9984 

.5226 

,076* 

•,0349 

,0*94 

•,0594 

,0020 

-,9902 

,7515 

,U03 

•►0721 

1 0*33 

• 1 0606 

► 003’ 

-,9970 


JOftFL aC 1 2 3 4 5 6 7 B 9 10 11 12 lJ 14 15 16 17 18 19 20 EXAMPLE PROBLEM NO, 3 - XB-70 AIRPLANE SUBSONIC A^ROO p A&E 

VALUE 2262306232Q0000000110 ALF** ID,DO MACHNO= ,2000 ALTITUQE******* 1° 


integrated airload coefficients-surface NQS,* 1-1 


original page w 

OF POOR QUALM* 


E 

ECN 

ECX 

ECY 

ecl 

ECD 

ECMP 

ECRR 

ECMY 

EXA 

EZA 

E3 

EMGC 

EB 

1 

,3048 

-,0160 

",0000 

,3030 

.0372 

-.0622 

-,0000 

- r aooo 

-59,77 


6196,60 

76,78 

104,99 

1 

.039*. 

.0163* 

,0000* 

.0361* 

.0230* 

- .0064* 

-►0000* 

►0000* 

-59,77* 

,97* 

6196,66* 

76»78* 

104,99* 






*** airload 

SUMS 







AC 

. 3048 

-.Cl 6 ? 

-.0000 

.3030 

.0372 

-,0622 

-,0000 

",0000 

-59,77 


6196,66 

76,78 

104,99 

Cg 

,2990 

-.0157 

oa00 

.2981 

.0366 

-,0624 

-,0000 

-,0000 

-60,49 

,46 

6297,75 

78,33 

105,00 

AC 

,0396* 

.Ol63* 

,0030* 

. 0361• 

.0230* 

-,0064* 

",oooa* 

,0000* 

-59,77* 

, 97* 

6196,66* 

70,70* 

104,99* 

CG 

■ C30 q * 

«a 161 * 

.0030* 

,0356* 

.0226* 

0066* 

-,0000* 

,0000* 

-60,49* 

,46* 

6297,75* 

78,53* 

105,oa* 


* * OETERMINANTa -,1875*13 • SCALE* ,1731-01 * 

LIFT COEFFICIENT FOR WING ALONE IS = 0. 2981 WITH L. E. SUCTION (BLURT, L.E,) 

= 0. .1337 NO L.E. SUCTION (SHARP L.E.) 


SECTION AIRLOAD COEFFICIENTS*SURFACE NO,* 1/t lj 2) 



NOTATION = 1/(1, 2), 


INDICATES SOWTION FOR SURFACE $ 1 IS OUTPUT 
CONSIDERING SURFACES ft 1 AND ff 2 SItfVLTANEOl 
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6.4 EXAMPLE PROBLEM § 3, NORTH AMERICAN XB-70 AIRPLANE (CONTINUED) 


J 

Y* 

Y 

I 

V 

SCN 

sex 

SCL 

BCD 

SMP C/4 

SCLC/B 

1*L 

1YL 

1ZL 

12 

.022/ 

2,386 

, COO 

2.3S6 

,1354 

,0041 

,1327 

,0242 

-.0469 

»14Q B 

-.0027 

.COD* 

-1,0000 

13 

. 068 ? 

7,159 

,368 

7.159 

.1769 

.0004 

,1742 

,0306 

• i Q 438 

.1640 

-,0074 

,0313 

-,9995 

14 

■ 1136 

11.931 

1.026 

11.931 

,1944 

-.0033 

,1920 

,0332 

-.0495 

.1596 

-.0091 

.0266 

-.9996 

15 

.1591 

16,7 j 3 

1.517 

16.7d4 

.2452 

-.004? 

,2423 

,0417 

- .0399 

,1021 

-.0197 

.0197 

-, 9996 

16 

.2045 

21.4/6 

1.046 

21.477 

.2743 

- .0116 

,2722 

,0456 

-.0259 

.1827 

- ,0353 

.0174 

-,999g 

i; 

.2500 

26,248 

2.022 

26.249 

,2932 

-.0230 

,2928 

,0469 

-.□196 

,1672 

-.0397 

,0138 

-,999 : 

18 

i 2955 

31,021 

2.04Q 

31.022 

.3134 

-.0304 

,3139 

.0491 

-,0199 

,1479 

» ,Q496 

.0U« 

-,9987 



JOSFIaG 1 

2 3 4 5 

6 

7 a 

9 10 11 

12 13 14 15 16 l? 

lfi 19 20 

EXAMPLE PROBlEM 

NO, 3 - 

XB-70 AlRP.ANt subsonic a 

VAlijE 22 

6 2 3 0 

6 

2 3 

2 0 0 

0 0 0 0 o 0 

1 1 0 

ALFA» 10.00 

MACHNQ* 

,2000 

altitude** 


J 

Y* 

Y 


Z 

W 

SCN SCX 

SCL 

SCO 

SMP C/4 

SCLC/B 

1XL 

1YL 

1ZI 

19 

.3400 

35,793 

1 

.770 

35,794 

, 34 9 7 -,0374 

,3509 

,0542 

-.0240 

.1302 

t.0556 

.0009 

-,9985 

20 

.386-1 

A' .566 

1 

,293 

40.567 

,4(581 -,0 4 64 

,4100 

,0628 

-.0278 

.1111 

-.0561 

,0010 

-,9934 

21 

,4318 

45,338 


,616 

45,339 

,4997 -,062 7 

.5Q30 

,0759 

-.0345 

.0860 

-.0593 

,0019 

-,9982 

22 

. <J 773 

50. ill 


.338 

50.112 

,7241 -.1053 

.7313 

,1074 

-.0711 

♦ 0519 

^,0664 

.0039 

-,9978 


SECT 1QN AIRLOAD CQEFFICtENTS-SURFACE NO,* 2/1 l r 2> 


J 

Y* 

Y 

i 

W 

SCN 

sex 

SCL 

SCO 

SMP C/4 

SCLC/B 

1XL 

1YL 

1ZL 

27 

.0833 

2,386 

7,159 

-6.196 

107.733 

. 9702 

,0897 

, 9478 

,1854 

-»1495 

.6179 

,1041 

-.0158 

-.9942 

28 

.2500 

- 6.112 

112 ,505 

1,1336 

♦ 0^0 4 

1,1024 

, 210 « 

-.1194 

,5554 

, 1311 

-,0244 

-,99u 

29 

.4167 

11,931 

-6,063 

117,278 

1,1479 

.0670 

1.11B9 

,2110 

-.1132 

.3978 

,1249 

-.03i4 

-,9917 


INTEGRATED AIRLOAD COEFFICIENTS-SURFACE NQS,» 1-2 


E 

ECfJ 

EC X 

ECY 

ecl 

ECO 

EC«P 

ECMP 

EQMY 

EXA 

EZA 

ES 

EMGC 

EB 

1 


- , J1 32 

.□□20 

,2464 

,0300 

-.046 7 

-.0000 

-.0000 

-59,77 

.97 

6196,66 

76,70 

104,99 

1 

,:33p« 

.oi4:« 

,□□20* 

,0308* 

.0196* 

-.0070* 

-,0000* 

,0000* 

-59 r 77* 

,97* 

6196,66* 

76,70* 

104,99* 

2 

j, 3?an 

,0013 

.aaoo 

1,0396 

,2658 

-.1462 

-,0000 

,0000 

-147,38 

-6,26 

413,07 

15,34 

28,63 

2 

,ooor.» 

.3000* 

,0000* 

,0000* 

♦OOOU* 

,0000* 

,0000* 

,0000* 

-147,38* 

- 6i24 * 

413.07* 

15,36* 

28,63* 


jobflag 1 

2 

3 4 5 6 7 B 9 10 11 12 13 14 

15 16 17 18 

19 

20 

EXAMPLE PROBLEM 

NO, 3 - XB-70 AIRPLANE 5UBS0NIC AEROp 

page 

VALUE 22 

6 

7306232C000O 

0 0 0 1 

1 

0 

ALFA* 10,00 

MACHNQb ,2000 ALTITUDE******* 

12 


AC 

, 3l 9? 

-.at 7 b 

« 00 JO 

.3157 

♦*« airload 

,0470 ,0133 

SUMS *•* 

-.naao 

iQaoo 

- 59,77 

.97 

6i96,66 

76,70 

104,99 

CG 

« 314 j. 

OC 77 

.0000 

.3106 

<□470 .0099 

-.□QOa 

.oaou 

-60,49 

,46 

6297,75 

78,5J 

105,00 

AC 

. -33P n 

.2142* 

.0020* 

. C 3 C 8 • 

,□196* -.0070* 

-,ngaa* 

, 0000 * 

- 59 , 77 * 

.97* 

6198.66* 

76,78* 

10a,99* 

CG 

. j332» 

,0137# 

.0020* 

.0303* 

•0193* -,0072* 

-.□oao* 

.0000* 

-60,49* 

.46* 

6297,75* 

78,53* 

105,00* 


* DETERMINANT 5 -,U}7Q + ZZ • SCALE 5 ,15Q5-U1 * LIFT COEFFICIENT FOE WING +CANARD CONTROL SURFACE IS 

C L = 0. 310G (WITH L. E. SUCTION) 

SECTION AIRLOAD COEFFICIENTS-SURF ACE NO, ■ l/( 1 , 4> NOTATION = INDICATES SOLUTION FOR SURFACE H 1 IS OUTPUT 

CONSIDERING SURFACES #1, #2, 03, and M SIMULTAtiEQUSU 


J 

Y* 

Y 

1 

W 

SCN 

sex 

SCL 

scu 

SMP C/4 

SCLC/B 

1XL 

1YL 

1ZL 

12 

,‘.22 7 

2,306 

. 020 

2,386 

, 1155 

.0003 

,1137 

, 0201 

-,0336 

.1207 

-.0129 

,0043 

-,999V 

13 

, : 6 Q? 

7,159 

,368 

7.159 

.149* 

- , 0023 

.1476 

,0256 

-.0329 

,1369 

- 1 3303 

,O30» 

-,9986 

14 

. 1.13 6 

11.931 

1,026 

11.931 

,1032 

-.oac* 

,1005 

,0317 

-. 02/1 

.1501 

-.0833 

,0469 

-,9954 

15 

.1591 

16, 7 r ; 3 

1,517 

16.7Q4 

.2314 

", DO 24 

,2203 

,0390 

-.0596 

.1715 

.0191 

-.0209 

-,9996 

16 

.2045 

21,476 

1 ,046 

21,477 

,2616 

- . 012 ^ 

, 259B 

,0432 

-. 0*02 

.1744 

-,0264 

,0150 

-,9995 

17 

,2500 

26.244 

2.022 

26.249 

,2906 

- .0140 

, 2966 

.0493 

-.0296 

.1694 

-,0426 

,0146 

-,999q 

18 

.2955 

3l,?2l 

2 , 040 

31,022 

-3212 

-.0306 

.3217 

,Q5q5 

-.0213 

,1516 

* 1 0 4 6 0 

,010* 

-,9989 

19 

,340 g 

35,79-? 

1 » 77- 

35.794 

,3511 

-.0372 

,3523 

,0545 

-.0240 

.1307 

-.0555 

.ooo 9 

-,9985 

20 

.3664 

4: ,566 

1.293 

40.567 

. 4 ,3 7 h 

- ,0455 

,4Q93 

,0629 

-.0200 

.1110 

-,3555 

,0009 

-.9985 

2 1 

A T •* A 

45,33" 

■ U16 

45.339 

,4 960 

-.0615 

.5019 

.0759 

-.0346 

,0858 

-,0593 

,00iv 

-.9982 

2? 

, 4773 

5 r , 111 

, 338 

50.112 

.7 226 

- , J047 

.7298 

, 1073 

-.0710 

.0518 

0663 

,0039 

-, 997H 


JOBFLAG 1234 
Vai mc 22 6 7 J 

5 6 7 

0 6 2 

6 9 10 11 

3 2 n 0 

12 13 14 

fi n n 

15 16 17 

10 19 20 

EXAMPLE problem 

NO, 3 - 

XH-70 AIHP^ANE SUBSONIC A 





u u u 

1 i U 



MACHNQ 

- 1 s j u u 

AL 1 J 1 -’ 





SECTION 

airload 

CUCFFlClENTS-SURFACE 

N0,= 

Z/< 1, 4) 





J 

Y« Y 

l 

W 

SCN 

sex 

SCL 

sea 

SMP C/4 

SCLC/B 

1 XL 

1YL 

1ZL 

27 

28 

29 

..037 7,306 

*2500 7,J 59 

• 4 1 6 7 1 1 . *9 J 1 

-6,196 
-6.112 
-6,J 63 

107,733 

112.505 

117.270 

1.0252 

1,2q 74 
l,?47l 

. 1017 
. Q9Q4 
. 0793 

,9920 

1,1734 

1,2144 

,1957 

,2254 

.2303 

1433 

-.1308 

*.1267 

. 6468 
,59U 
,43lR 

,1166 

,1312 

,1267 

- 1 0164 
-,0246 

- 1 Q3l5 

-,993o 

-.9911 

-,99i4 




SECTION 

ajrloao 

COEFFICIENTS-SURFaCE 

NO, 3 

3/C 1, 4 > 





J 

Y* Y 

L 

w 

SCN 

SCX 

SCL 

scu 

SMP C/4 

SCLC/B 

1 XL 

1YL 

1ZL 

32 

,?50T 7,306 

• OJO 

137,607 

.0288 

, D079 

.aj.a 

6-34 

,0064 

-.0150 

.1626 

,□693 

-.2129 

-.9746 















N 


6,4 EXAMPLE PROBLEM J 3, NORTH AMERICAN XB-70 ATRPLANE (CONTINUED) 


J 

Y* 

Y 

Z 

38 

,9940 

14,317 

-2,074 

39 

,994*3 

14,317 

-6,943 

4Q 

,994a 

14,317 

-11.811 


SECTION A J *1.060 COEFF1CJ«NTI-»URPACE NO,* */( li 41 


X 


SECTION LIFT COEFFICIENTS FOE SURFACE # 4 ARE OUT OF f 
SEE NOTE $ I. + 


SCN 


5C* 


SCW 


SCD 


SMP c/« SCLC/0 


XXL 


1 YI 


1ZU 


151,937#*««********#**»«•*••**•*•» 943t53992580,a?®}******#** .07*6 

... 445 , 7*13 756 , 36737956,2665 ,0012 

161.531 75.2273 -93,2598 9q,27B8 -J,iH3 -53,5006 64,7788 *,0162 


♦ 9943 


- 1,0000 

,9997 


,0766 
♦ 0033 

-t01« 


E F.CN ECX 


INTEGRATED AIRLOAD CQEFF JCIENT6-SURFACE NQS,b 1-4 

ECY ECL ECO ECHP ECM» ECMY EXA 62* 


£3 EHGC £0 


JO0FLAS 12*45 
VALUE 22 6 2 3 o 


8 9 10 II 12 13 14 15 16 17 18 It 20 

320000000 0 1 10 


EXAMPLE P«06LtH NO, J - XB-70 At*PLANE SUBSONIC AtROf) Fa«E 
ALFA* 10,00 HACHWD* .2000 ALTtTUDE*■••••• 1 4 


integrated airload coeffkients-surface nos.* i - 4 


i EtN 

[ *2368 

1 . 031 *« 

2 1.1362 

2 , 0000 * 

3 ,0200 

i ,0000* 

t ,0710 

4 


AC ,320t 

CO ,3157 

fcC 272,707** 
C<* 248.JJ02* 


\ 


tc> 

EC* 

€<L 

CCD £C*8 

CCMR E CM 7 

EX A 

£ZA 

ts 

EMftC 

LB. 

-.0129 

. 0000 

♦ 2355 

♦0?65 ••0*51 

-•onoo -»onon 

•5t•77 

• 97 

6196.66 

76.70 

104.99 

»0J 2t* 

-.0000* 

* 0*44* 

•0162* -.0070* 

♦•OflOtl• .0000* 

-59 * 7 7 * 

• 97* 

6196*66* 

7* .709 

104.99* 

,0927 

.0000 1 

♦ 1048 

.2689 -.1511 

•,0000 *0000 

-J 47.38 

-6.26 

413.07 

15.36 

29.63 

,0D00« 

,0000* 

.0000* 

♦0000* ,0000* 

• ODOO* .0 00 0 * 

*147,38* 

-6*26* 

413.07* 

15.34* 

20*63* 

»0071 

.ooao 

*0270 

.0128 -,0151 

♦onoo .0000 

-156.98 

■ An 

54*.83 

47.4n 

9.54 

,0000* 

.000a* 

*0000* 

.0000* .0000* 

■0000* .0000* 

- 1 S 0 • 9 0 * 

♦ DO* 

540,83* 

S7.40* 

9*54* 

-.0372 

*0000 

♦ 07*4 

-•0241 *0324 

-•0000 ,0000 

-15*69 

-5.44 

493.13 

19.16 

1409 

♦0372* 

AlftLOAO 

■0000* ,0000* 

1 SUMS *•• 

-15**9* 

«5« 4H» 

493.I 3* 

19.16* 

14.39* 

* »00at 

,0000 

,317* 

♦0469 *0195 

-♦0000 -.0000 

-5**77 

♦ 97 

6196.66 

76*70 

104.99 

-,0086 

*0000 

*1125 

♦ □ 46 2 *0159 

-♦0000 *.oooo 

-60*49 

.111 

6297.75 

70,5J 

105.00 

»C J St* 

-.0000*2*8 

» s418* 


*0000* -.0000* 

-59•77* 

♦ 97* 

A 1 9 6.66* 

7**709 

104*99* 

» 0 ) S6* 

- .0000*2*4 » 25 10* 

H6.4lDH********** 

♦000O* •♦0000* 

-60•49# 

.414* 

6297.71* 

70.53* 

105.oa* 



* OCTtPMlNlNt* ,5304*12 • SC*LC* * 140t 

-01 ♦ 






VORTEX-LIFT INCREMENTS FOR SURFACE if 4 ARE OUT OF RANGE 


SEE NOTE if 2. + 

• ».« J0 B TJME* 24* / ELaPSCO TIME* 2*6 / NO,PLOT riLE5. 5 / N5URF EXEC* VERSION 4-18-72 ♦**• 


XQT TRWPLT PRINTED OUTPUT OMITTED 
SEE INPUT DATA LISTINGS 


T NOTES: [1] THE 5ECTI0N COEFFICIENTS CALCULATED FOR SURFACE tf 4, THE VERTICAL FINS, ARE OUT OF RANGE OF 

THE (, F" FORMAT SPECIFICATION USED FOR THE PRINTED OUTPUT, THIS ANOMALY ARISES BECAUSE OF 
THE MANNER IN WHICH THESE COEFFICIENTS ARE CALCULATED, l.e., THE AIRLOADS OBTAINED IN THE 
VORTEX-LATTICE SOLUTION ARE NORMALIZED BY (DIVIDED BY) THE PROJECTED AREA OF THE SURFACE 
ON A HORIZONTAL PLANE WHICH IS OF ZERO ORDER FOR A VERTICAL SURFACE. THIS PROGRAMMING 
ERROR DOES HOT IN ANY WAY AFFECT THE ACCURACY OF THE VORTEX-LATTICE SOLUTION OR THE 
SPATIALLY-INTEGRATED AIRLOAD COEFFICIENTS WHICH ARE NORMALIZED BY A DIFFERENT AREA. 

[2] THE VORTEX-LIFT INCREMENTS CALCULATED FDR SURFACE # 4, THE VERTICAL FINS, ARE OUT OF RANGE 
AND IN ERROR FOR THE SAME REASONS OUTLINED IN NOTE # 1. 

[3] TO DEMONSTRATE THE VERACITY OF THE SOLUTIONS CALCULATED WITH AND WITHOUT VERTICAL FINS A 
COMPARISON OF THE NET-AIRLOAD COEFFICIENTS ABOUT THE C.G. OBTAINED FOR THE VORTEX-LATTICE 
SOLUTIONS (WITH L.E. SUCTION) IS GIVEN BELOW 


CODE 

DESCRIPTION 

C L 


\a 

O.D 

WING ALONE 

0,2981 

0,0366 

-0,0624 

(1 , 2 ) 

WING + CANARD 

0.3106 

0.0470 

+0.0099 

(M) 

WING + CANARD + FUSELAGE + VERT. FINS 

0.3125 

0.0462 

+0.0159 
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6.5 EXAMPLE PROBLEM # 4, THICK-WING ANALYSIS 


SUflSONIC-FLOW LIFTING SURFACE ANALYSIS PROGRAM HAOIOS 
TRW SYSTEMS INC., HOUSTON OPERATIONS 
HOUSTON* TEXAS <770581 


**** JOBS INPUT LIST **** 

7 XOT NSURF 

EXAMPLE PR06LFM NO. 4 - THICK MING PROBLEM AERODYNAMIC ANALYSIS 
TASK T02* PROJECT 3303a ♦ HJO 147033, AERODYNAMIC ANALYSIS ANO DESIGN 
SU 8S0NIC-FLOW LIFTING SURFACE ANALYSIS* TRW PROGRAM NO. HAOIOB (NSURF I 

A.V.GOMEZ/ 5 JULY 1972 

MNPUT 

NMING*3, NVTAIL*Q, NFUS*0, CDLCCP-O. 75, 

NFLG<n^3*I0. NFLGI 6 I =3* 5, NFLG(19J*l,2, 

NCS*2*10*2, NSS=2,4,6, 

T HICK K * 1, 

XGCI I« 1>~ .00* •051 .10* .15* .20* .30* .40* .60* .80* L.0 * 

XOC \ L» 2>» .00* .05* .10* .15* .20* .30* .40* .60* .60. 1,0* 

ZOCI I* n-.O, .044*3. .0585 3*. 06682*.07172 *.07502 #.07254 ,.057 04 *.0 3279, .0, 

ZOC< 1* 2 >».0* .04443, .0 565 3*. 06 682*. 07172 ,.07502 #.072 54 ,,05 7 04*.0 3279 *.0* 

ZOD<1* 3**.0*-.04443,-.05e53,-.Cfc682,-. 07172,-.07502,-.0725405704 03279*. 0 , 
Z 3 C<ii 4>«.0,-.04443*- .05853*-.C66B2*-,071*2 *-. 07502 *-.072 54 *-.05704,-.03279,.0, 
X - 0*0, 0,0* 

Y - 0,10# 0*10* 

Z *0.0. 0*0* 

C - 10,10. 10,10, 

E * 0,0, 0*0, 

Z • 0,0, 0.0, 

FLATP* i, 

X0CU.3J* .00, 1.0, 

Z0C(l,5i*.0, .0* 

ZQC(1*6J*»0* .0, 

X( 5 I* 0*0* 

Y< 5J* 0, 10* 

Z l 51 = 0*0* 

C( 51 = 10*10, 

6131 = a* a, 

XCGrO.O, REFC=10.0, R£F&=«20.0, REFS=20D.D, 

NJD8=1, ALFAMO* MACHN“0.0, N SOlV=l ,2 ,3 ,3 
♦END 

SENDJOBS 
7 XOT NSURF 


JDBFLAG 1 2 3 4 5 6 7 8 

VALUE 10 10 10 0 0 5 5 5 


5 10 11 12 13 14 15 16 17 18 19 20 
000000000112 


EXAMPLE PROBLEM NO. 4 - THICK MING PROBLEM 4[ POO YNANl PAGE 
ALFA* .00 MACHN3* .0000 A L TITUDE ******* 1 


i Input 

KDUT = 

KT1 

KT Z 

KT 3 * 

LINK * 
NM I NG 
NVTAIL * 
NFUS 

COL DCP 8 
CUT OF1 = 

CUT0F2 * 
LFLAP 
GSCALE * 


* 6, 
♦l* 

+ fl, 

♦3* 

♦ 56, 
♦3, 

♦ 0, 

♦ 0 , 

.T5 QOaOCOE♦ 00 , 
.loooaocoF- 03, 
.290000006-02* 

♦0, 

.lOOCOOOQF+Ol, 


NSS 

O 

+0, 

+ 2* 

♦ 4, 

1 

+0, 

NCS 

+ 0, 

♦ 10* 

+ 10. 

♦2, 

+0, 


= .OOOOOOOOE+00, 

.OCOOOOOOE+OO, .000000006 

.000000006*00* .OOOOOOOOE 

.000000006+00, 

-..owe+00, 

.OOOOGOOOt+OO, 
YCG - .OOOCOOOCE+OO, 

l CG * .000000006+00* 

REFS * . 2QOCOOOOE + 03, 

REFC = .100000006 + 02* 

R6FB * .200000006+02, 

NJOB +1, 

ALFA = .100000006+02# 

.OOOOOOOOE +00* .000000006 

.OOOOOOOOE+OO, .000000006 

-DCOOOOOOE+OO, .oooooocac 

.000000006+00, .0O000CC06 

. 000000006 + 00 , 

MACHN * .OOOOCOOOE + DC, 

.000000006+00, .OQOOQOC06 

.OOOOOOOOE+OO, .000000006 

HEIGHT = . lOaCCOOOE + Q5, 

.iOOOCOOOE+05* .lOOOOOOOE 

.100000006+05* .IOOOOOOOE 

FLAPOJ = .0000 00 COE + 00* 

.000000006+00* .OOOOOOOOE 

TABOJ = .000000006 + 00, 

.000000006+00, .OOOOOOOOE 

AILOJ = ‘OOOOOOOOE + OC, 


.000000006 + 00, ♦OODOQOOnc-'' 

+ac, .ooooojinAt. ** 

■►Cl 6- __ 

k • wJ f 

.12500000E+00, 


<wl#VC+[)0 * 

. 125000006+00, 


.OOOODOOOF♦00, .000000006+00, 

♦OC, .000000006+00, .000000006+00, 
+0C, •00000000E+DO, .000DOOOOE+00, 
+0C, .000000006+00, *000000006+00* 
♦OC, .OOOOOOOOE+OO, .OOOOOOOOE+OO, 


.00000 0006 + 00 , 
.000000006+00, 
NFLG 

+ 0, 

+ 0, 

♦ 0, 

♦ 0, 


♦OOOOOOCOE+OO, 

+0C, .OOOOOOOOE+OO, 
+ 00, .000000006 + 00 * 

. 1OOQOOCQE + 05 * 

♦05, . 1D0OOODOE+O5 * 

♦05, .10000000E+05* 

.000000006+00, 

♦ DC* 

.OOOOOOCOE+OO, 

+ 0C, 

■OOOOOOOOE+OO, . 


NSOLV 


IEND 


♦ 0, 

♦Oi 


■OOOOOOOQE+oc, .oaaaooooE+oo, 

,000000006 +0 C , . 000000006 + 00 * 

♦10, +10, 

♦5, +5, 

♦0* +0, 

, +0, +0, 

♦i* +1, 

+ 1 , + 2 , 

+0, +0, 

♦ 0 , * 0 , 


000000006+00, 

*000000006+00, 

10000000 E+05, 

.100000006+05, 

OOOOOOOOE+OO, 

OOOOOOOOE+OO, 

oooooooo6+oa * 

.ooooooooE+oa, 


+ 10 * 


♦3, 


♦5, 

+ 0 , 

♦0* 

♦ 2 * 

♦0* 

♦0, 


♦0, 


♦ 3i 



ORIGINAL PAGE IS 
OF POOR QUALITY 
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6.5 EXAMPLE PROBLEM § 4, THICK-WING ANALYSIS (CONTINUED) 


\ 


JOB FLAG 1 2 3 A 5 6 7 
VALUE 10 ID tO 0 0 5 5 


9 10 11 12 11 14 13 16 17 10 19 20 EXAMPLE PROBLEM NO* 4 - THICK A6 ROOYNAMI 

000000000112 ALFA- .00 MACHND- .0000 ALTl TIDE,-****** 


LIFTING SURFACE NO- 1 

********************* 


SURFACE § 1 


LOWER SURFACE 


SPAN 

ROOT 

CHORO 

TIP 

CHORD 

ROOT 
TWI ST 

TIP 

TNI ST 

AREA 

20.000 

10.000 

10.000 

.0000 

.0000 

200.00 

FLAP 
SPAN 1 
.000 

flap 

$P AN? 

. 6C0 

flap 

SPAN 3 
1,000 

FLAP 
DEFLEC 
. 000 

TAB 

DEFLEC 

.000 

L. AIL 
OEFLEC 
.000 




FUS STA 

X (C G 1 

. 000 

WING $TA 

VI CGI 
.000 

ML STA 
21 CGI 
.000 


NS 

V 

z 

XUE) 

XCC/41 

XITEI 

-10.000 

-10.000 

.000 

-2.500 

.000 

7.300 

-9.000 

-9.000 

.000 

-2.500 

.000 

7,500 

-8•000 

-8.000 

.000 

-2.500 

.000 

7.500 

-7.000 

-7*000 

.000 

-2,300 

.000 

7.500 

—6.000 

-6.000 

.000 

-2.900 

.000 

7.500 

-3,000 

-5.000 

• 000 

-2.500 

.000 

7.500 

-4.000 

-4.000 

,000 

-2.300 

.000 

7.500 

-3.000 

-3.000 

.000 

-2.500 

.000 

7.500 

-2.000 

-2.000 

,000 

-2.300 

• 000 

7.300 

-1.000 

-1.000 

.000 

-2.500 

.000 

7.500 

.000 

.000 

,000 

-2.500 

.000 

7.300 

I. 000 

i.aoa 

.000 

-2.300 

.000 

7.500 

2.000 

2.000 

,000 

-2.500 

• 000 

7.300 

3.000 

3.000 

.000 

-2.300 

.000 

7.300 

4,000 

4.000 

.000 

-2.500 

.000 

7.500 

5.000 

5.000 

■ aaa 

-2.500 

•ooo 

7.500 

6.000 

6.000 

.aoa 

-2. 500 

♦ 000 

7.500 

7.000 

7.D00 

.000 

-2. 500 

• 000 

7.300 

8.000 

8.000 

.aoa 

-2.500 

.000 

7.500 

9.000 

9.000 

.000 

-2.500 

• 000 

7.500 

10.000 

10.000 

.000 

-2.300 

.000 

7.500 


ASPECT 

RATIO 

MEAN 

CHORD 

NGC 

(MAC) 

YBAR 

(NGC1 

XBAR 

(MGC) 

Z8AR 

(MGC) 

2.0000 

10.000 

10.000 

5.000 

.000 

.734 

R. AIL 
OEFLEC 
.000 

OIHED. 

MGC/4 

.000 

SHEEP 

MGC/4 

.000 

MO.SPAN 
ELEMENTS 
10 

NO. CHORO 
ELEMENTS 

5 

NO. CHORD 
DISCONT. 
D 

AREA 

S (CG) 
200.000 

CHORO 

Cl CGI 
10.000 

SPAN 

BICG1 

20.000 





TWIST 

DtHEIC/4) 

SMEPtC/4) 

ClMtNGI 

C (FLAP) 

C(TAB) 

•000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

• 000 

.000 

10.000 

2*300 

1.250 

• 000 

.ooo 

.000 

10.000 

2*500 

1.250 

.000 

.000 

.000 

10.000 

2.300 

1.250 

.000 

.000 

• 000 

10.000 

2*500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

• DDO 

.000 

.000 

10.000 

2.500 

1.230 

.000 

• OOO 

.000 

10.ooo 

2.300 

1« 250 

.000 

•ooo 

.000 

10.000 

2.500 

1*250 

.000 

.ooo 

.000 

10 . ooo 

2.500 

1.230 

.000 

.0DO 

• ooo 

10.000 

2.300 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

•ooo 

.000 

10.000 

2.500 

1.250 

.000 

.ooo 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10. ooo 

2.500 

1.250 

• 000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

•ooo 

.000 

10.000 

2.500 

1.250 

•oao 

•ooo 

.000 

10.000 

2.300 

1.250 


JOBFLAG 1 

value 10 

2 3 4 

lo la o 

5 

0 

6 7 8 

5 5 5 

9 10 11 
OOO 

12 13 14 15 16 17 19 
0 0 0 0 0 0 1 

19 20 , 

1 2 

example problem ND. 4 - 

ALFA- .00 MACHNO 

THICK ! 
« .0000 

MING PROBLEM AEROOYNAMl 
ALTITUDE-****** 




xm l i/c 

XAI2I/C 

KA (31/C 

XAI4I/C 

XAI5I/C 

X A! 6 l/C 

XA(7)/C 

XAI6I/C 

XAI9I/C 

XAI10I /C 




.0000 

.0500 

. 1000 

.1300 

.2000 

.3000 

.4000 

.6000 

.6000 

1.0000 

X 

Y 


ZAill/C 

ZAC2I/C 

ZAI3I/C 

ZA14I/C 

ZA(51/C 

Z A< 61 / C 

ZAI 7)/C 

ZAI 81/D 

ZA (9) /C 

auoi /c 

.0000 

.0000 

.0000 

10.0000 


.0000 

.0000 

.0444 

.0444 

• 0585 
.0563 

.0666 
.066 6 

.0717 

.0717 

.0730 

.0750 

.0725 

.0723 

.0570 

.0370 

.0326 

.0326 

.0000 

.0000 



JOBFLAG 1 2 3 4 3 6 T 9 9 10 11 12 13 14 13 16 17 IB 19 20 
VALUE 10 10 10 003 5 5000000000 1 12 


EXAMPLE PROBLEM NO. 4 - THICK MING PROBLEM AERODVNAMI 
ALFA- .00 MACHMO- ,0000 ALTITUDE-****** 


LI FTI NG SURFACE NO- 2 


SURFACE § 2 = UPPER SURFACE 


SPAN 

ROOT 

CHORO 

TIP 

CHORD 

ROOT 

TWIST 

TIP 

TWIST 

AREA 

20.000 

10.000 

1C. ooo 

.oaaa 

.0000 

200.00 

FLAP 

SP AN 1 
.OOO 

flap 

SPAN2 

.600 

flap 
SPAN 3 
1.000 

FLAP 

OEFLEC 

.OOO 

TAB 

DEFLEC 

.000 

L.AIL 

OEFLEC 

.000 




FUS STA 
XICG1 
♦ OOO 

MING STA 

Y (CGI 
• ODD 

ML STA 
Z<CG> 
.000 


MS 

Y 

i 

X(LE) 

X (C/4) 

XITE) 

-10.000 

-10,000 

.000 

-2.500 

.000 

7.500 

-9.000 

-9.000 

.000 

-2.500 

.000 

7.500 

-B.OOO 

-8.000 

.000 

-2.500 

.000 

7.500 

-7.000 

-7.000 

.ooo 

-2.500 

.000 

7.500 

-6.000 

-6.000 

.000 

-2.500 

.000 

7,500 

-5.000 

-5.00C 

.000 

-2,500 

.000 

7,500 

-4.000 

-4.000 

.000 

-2.500 

• oao 

7.500 

-3.000 

-3.000 

,000 

-2.500 

.000 

7,500 

-2.000 

-2.000 

.000 

-2.500 

.000 

7.500 

-1.000 

-1.000 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

-2.500 

.000 

7.500 

1.000 

1.000 

.000 

-2* 500 

.000 

7.500 

2.000 

2.000 

.000 

-2.500 

.000 

7.500 

3.000 

3.000 

.000 

-2. 500 

. DOO 

7.500 

4.000 

4.000 

.000 

-2.500 

.000 

7.500 

5.000 

5.00G 

.000 

-2.500 

.000 

7.500 

6.000 

6.000 

■ ooo 

-2.500 

*000 

T.500 

7.000 

7.000 

.000 

-2.500 

.000 

7.500 

6.000 

6.000 

.000 

-2.300 

.000 

7.500 

9.000 

9.aaa 

.000 

-2.500 

•ooo 

7.300 

(0.000 

10.000 

,000 

-2.500 

♦ ooo 

7.300 


ASPECT 

RATIO 

MEAN 

CHORD 

MGC 

(MAC) 

VBAP 
{ MGC 1 

XBAR 

1 MGC ) 

ZB AR 

I MGC ) 

2.0000 

10.000 

IQ.OOO 

5.000 

.000 

-.734 

R. AIL 
DEFLEC 
.000 

DIHED. 

MGC/4 

.000 

SWEEP 

MGC/4 

.000 

NO .SPAN 
ELEMENTS 
10 

NO.CHORD 
ELEMENTS 

5 

no, chord 

D1 SCDNT. 
0 

AREA 

SI CGI 
200.000 

CHORD 

C(CG) 

10.000 

SPAN 

B( CGI 
20.000 





TWIST 

0IHEIC/4I 

SWEPCC/41 

Cl WING) 

CIF LAP) 

C (TAB) 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.300 

1.250 

.OOO 

•ooo 

.000 

lo.ooa 

2.500 

1.230 

.000 

.000 

,000 

io.oao 

2*300 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

♦ ooo 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.ooo 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

,000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

. ooo 

10.000 

2.500 

1.250 

.000 

.ooo 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.ODD 

• ODD 

10.000 

2.500 

1.250 

.000 

.a do 

• ODD 

10.000 

2.500 

1.250 

.000 

.000 

• DOO 

10.000 

2.500 

1.250 

.000 

.0 00 

.000 

io.aoo 

2*300 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1*250 

.000 

*000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

LO■OOO 

2. 500 

L.230 


PAGE 

2 


PAGE 

3 


PAGE 

6 
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6.5 EXAMPLE PROBLEM § 4. THICK-WING ANALYSIS (CONTINUED) 


JOBFLAG 1 

2 i 6 

5 

6 7 8 

9 10 11 

12 13 14 15 

16 17 18 

19 20 EXAMPLE PROBLEM NO. 4 

- THICK WING PROBLEM 

AE R00YNAM1 

VALUE 10 

10 10 c 

0 

5 5 5 

0 0 0 

o a o o 

0 0 1 

1 2 

ALFA- 

.00 MACHNO- .0 000 

ALT 1TUDt n* 

4 ** 6 * 




XA I U/C 

XAI2I/C 

XAC3I/C 

XAI4I /C 

XAC5I/C 

X AC 61/C 

KAl7|/C 

XAC 8 1/C 

XAI91/C 

XAI101/C 




.0000 

.0500 

, 1000 

.1500 

.2000 

.3000 

.4000 

.6000 

. 8000 

1.0000 

X 

Y 


ZAC U/C 

1 AC2)/C 

ZAI3I/C 

ZAI41/C 

ZAC 5J/C 

Z AC6J/C 

ZAC 71/C 

ZAC 8 \/C 

ZAI9I/C 

ZAI 101 /C 

.0000 

.0000 


,000 0 

-.0449 

-.0585 

-.066 S 

-.0717 

-.07 5 0 

-.0725 

-.0570 

-.0326 

.0000 

.0000 

ID.0000 


.0000 

-.0444 

-.0585 

-.0668 

-.0717 

-.0750 

-.0725 

-.0570 

-.0328 

*0000 

__r 

J06PLAC 1 

2 3 6 

5 

6 7 B 

9 10 11 

12 13 14 15 

-J 

16 17 18 

19 20 

example problem no, 4 

- THICK ! 

WING PROBLEM AERODYNAMt 

VALUE 10 

10 10 0 

0 

5 5 5 

0 0 0 

0 0 0 0 

0 0 1 

1 2 

ALFA- 

.00 MACHNO- .0000 

ALTITUDE-****** 






LIFTING SURFACE N0= 3 

SURFACE # 3 = THIN 

WING (FLAT PLATE) 


SPAN 

ROOT 


TIP 

ROOT 

TIP 

AREA 

ASPECT 

MEAN 

MGC 

YBAR 

XBAR 

ZBAR 


CHORD 


CHORO 

TWIST 

TWIST 


RATIO 

CHORD 

C MAC 1 

C MGC 1 

CMGC) 

(MGC) 

20.000 

10.000 


10.000 

.0000 

.0000 

200.00 

2.0000 

10.DOO 

lo.aoo 

5.000 

.000 

.000 

flap 

flap 


flap 

flap 

TAB 

L.AIL 

R. AIL 

CIHEO. 

SWEEP 

ND.SPAN 

NO.CHORD 

NO. CHORO 

SPAN 1 

SPAN 2 


SPAN 3 

OEFLEC 

OEFLEC 

OEFLEC 

OEFLEC 

MGC/4 

HGC/4 

ELEMENTS 

ELEMENTS 

OtSCONT. 

.000 

.60 0 


1.000 

, 000 

.000 

.000 

.000 

.000 

. aao 

10 

5 

0 





FUS STA 

WING STA 

ML STA 

AREA 

CHORO 

SPAN 








XCCGI 

YCCGJ 

ZtCGI 

SC CG) 

CCCG) 

BCCGI 








.000 

.000 

.000 

200.000 

10.000 

20.000 




US 

Y 


z 

XI LEI 

KCC/41 

KITE) 

TWIST 

DCHECC/41 

SWEPIC/4) 

C< WINGI 

C IFLAP1 

C CTA8I 

-10.000 

“10.000 


,000 

-2.500 

.000 

7.500 

• 000 

.000 

.000 

10.000 

2.500 

1.250 

“9.000 

-9.000 


.000 

“2.500 

.000 

7.500 

• 000 

.000 

.000 

10.000 

2.500 

1.250 

-8.000 

-8.0C0 


.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.OOD 

2.500 

1.250 

-7.000 

“7.000 


.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.900 

1.250 

“6.000 

-6.000 


.000 

-2.500 

.ooa 

7.5 00 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-5.000 

-5.00C 


.aoo 

-2*500 

.000 

7.500 

.ooo 

.000 

♦ ooo 

to.ooo 

2.500 

1.250 

—4.000 

-4.0C0 


.000 

-2.500 

.000 

7.500 

.000 

.000 

♦ ooo 

10.000 

2.50D 

1.250 

-3.000 

-3.000 


.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-2.DOO 

-2.000 


.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

“1.000 

-L.000 


.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 


.ooo 

-2.500 

♦ 000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

1.000 

1.000 


.000 

-2.500 

.000 

7,500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

2.000 

2.000 


.00 0 

-2.500 

.aoo 

7.500 

.000 

♦ooo 

• ooo 

10.000 

2.500 

1.290 

3.000 

3.000 


.000 

-2.500 

.ooa 

7.500 

.000 

.000 

.aoo 

lo.aoo 

2.500 

1.250 

6.000 

4.000 


.aaa 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

5.000 

5.000 


.oao 

“2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

6.000 

6.000 


.000 

-2.500 

.000 

7.500 

♦ 000 

.000 

.000 

10.000 

2.500 

1.250 

7.000 

7.oca 


.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

B .000 

6.000 


.ooa 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

9.000 

9.000 


.000 

-2.500 

.000 

7.500 

.000 

.ODD 

• ooo 

10.000 

2.500 

1.250 

10.000 

10.000 


,000 

-2.500 

.000 

7.500 

.000 

.ODO 

♦ ooo 

10.000 

2.500 

1.250 

JOBFLAG 1 

2 3 <. 

5 

6 7 3 

9 ia u 

12 13 14 15 

16 17 18 

19 20 

EXAMPLE PROBLEM NO. 4 - THICK WING PROBLEM 

AF RODYNANI 

VALUE 10 

10 10 0 

0 

5 5 5 

0 0 0 

0 0 0 0 

0 0 1 

L 2 

ALFA- 

.00 MACHNO- .0000 

ALT1 TUDE-* 

***** 




XA c n /C 

XA12 J /C 

XA 1 3|/C 

XAC4I/C 

XAI 51/C 

X At 61/C 

XAI 71/C 

XAC 81/C 

XA 191 /C 

XAI 101 /C 




.0000 

L.0000 

. 0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

X 

Y 


ZAC 11 /C 

ZAI21/C 

ZAC3I/C 

ZAC4I/C 

ZAC5I/C 

ZAC6I/C 

ZAC7I/C 

ZAl8 l/C 

ZAC9I/C 

ZA(IO) /C 

.0000 

.0000 


.0000 

.0000 

• 0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.ooc a 

10.0000 


.aoao 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

. 0000 

.0000 

_1 


PAGE 

10 


n 


JOBFLAG 1 2 3 A 5 6 7 0 9 LO 11 12 13 14 IS 16 IT 18 19 20 
VALUE ;c 10 10 00556000000000 112 


EXAMPLE PROBLEM NO. 4 - THICK WING PROBLEM AFRDDYNANl 
ALFA- .00 HACKNO® .0000 AlTITUDE=****** 


PAGE 
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25 

26 

27 

28 

29 

30 

31 


32 


XV 

2.0004-00 

2.000400 

2.000400 

2 . 000*00 

2.000400 

2.000400 

2.0flrtAr*« 

o.'JOO+OO 

6.000400 


YV 

' l .0004 00 
'4.000400 
-2.000400 
0.000 
2.000400 
4.00040C 

- w \JU 

6.000400 
B. 000400 


EOF PLOT FILE 3> 


ZV 

o.oco 

O.QOC 

C.OCC 

o.oco 

o.oco 

n a**- 

o.oco 

o.oco 

o.oco 


L XV 

0 . 000 
0. 000 
0.000 
O. 000 
0.000 ^ 

«• oOU 
0.000 
o. aoo 
0.000 


1 YV 

l.000400 
1.0004 00 
1.000400 
1.000400 

1.000400 

1.000400 

1 . 000*00 

1.000400 


1ZV 

0.000 
0.000 
0.000 
D -f» rtr * 

u .000 
0.000 
0.000 
0.000 
0.000 


XN 

3.000 400 
3.000400 
3*000*™ 

■.J400 
7.000*00 
7.000*00 
7.000400 
7.000*00 
7.000*00 


YN 

>5.000400 

0 . 000 400 - 

..yi UU 

■1.000400 
1.000400 
3.000*00 
5.000400 
7.000*00 
9.000*00 


1 YN 


1ZN 



0.000 

0 


0.000 
0.000 
0.000 
0.000 
0.000 
0.0 00 
0.000 


v uOO 

o.oao 
0.000 
0. DOO 
0.000 
o. ooa 
0.000 
0.000 


WVEH SURFACE 


0 . 000 
0.000 
o. aoo 
0.000 
0.000 
0.0 00 
0.000 
0.000 


1.001)400 
1.000400 
1.000400 
1.000400 
1.000400 
1.000400 
1.000400 
1.000400 
1.000400 


LIFT DISTRIBUTION DETAIL-SURFACE NO.- 1/1 1. 2) 
*********************** ************************ 


J 

K 

PC XI 

PI VI 

PCZJ 

AREA 

CPN 

GUI 

GC Y) 

G( 1 1 

vino 

VH YI 

VL CZJ 

GAK4 

1 

1 

-2.000 

“9,000 

.444 

4.0000 

2.72B5 

.17193 

.oaooo 

1.01942 

.03461 

-1.11482 

♦ OD172 

-.2729*01 

1 

2 

-.000 

-9.000 

.734 

4.0000 

-.1951 

.045 57 

.00000 

.846 L6 

-.13065 

-.95122 

. 12007 

.1951*00 

1 

3 

2.000 

-9.ooa 

♦ 667 

4.QOOO 

-l.1031 

.037 35 

.00000 

.31783 

-.16698 

-.76524 

. 1363 0 

.1103*01 
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6.5 


EXAMPLE PROBLEM Jjf 4, THICK-WING ANALYSIS (CONTINUED) 



J06FLAC 1 2 3 4 5 6 
VALUE 10 10 10 0 0 5 


7 8 9 10 11 12 13 14 15 16 17 la 19 20 

55000000000112 




J 


EXAMPLE PROBLEM NO, 4 - 
ALFA- 10*00 MAC mo- 


THICK WING PROBLEM AERDDYNANI 
•0000 A l Tl TIDE-**+*♦* 


PAGE 

17 


LOWER SURFACE 

SECTION AIRIOAO COEFFICIENTS “WR FACE NG«- l/I It 21 

******* ********************4 *♦****•*•••••*• ******** 


J 

r* 

Y 

l 

W 

SCN 

sex 

SCL 

SCO 

SMP C/4 

SCLC/B 

1XL 

ITL 

1 LI 

6 

*0500 

l.OCD 

.663 

1.000 

.9266 

♦ 1357 

.8892 

.1845 

-.7111 

.4446 

.0574 

• 0000 

-.9934 

7 

.1500 

3.000 

.66 9 

3.000 

.946 9 

.1334 

.906 5 

• 1885 

-.6830 

♦ 4543 

.0616 

. 000 0 

-♦9981 

3 

.2500 

5.0CC 

.666 

5.000 

.975 6 

.1326 

.9377 

.1924 

-.5930 

.46 09 

.0690 

• 0000 

9976 

9 

.3500 

7.0CC 

.660 

7.000 

.987 8 

• 2213 

.9344 

.2100 

-.4762 

.4672 

. 1006 

. 0000 

-.9949 

to 

.4500 

9* 000 

.66 9 

9.000 

.6172 

-.0015 

.6081 

.1069 

-.0657 

.3041 

.1225 

• 0000 

9925 


SECTION AIRLOAD COEFFICIENTS-SURFACE NO*- 2/1 1, 1) 

*************************************************** 


UPPER SURFACE 


J 

Y* 

Y 

z 

W 

SCN 

sex 

17 

.0500 

1.000 

-.668 

21.000 

-.1651 

• 0921 

ie 

. 1500 

3. 000 

- .663 

23.000 

-.2141 

• 1103 

19 

.2500 

5.000 

-.660 

25.000 

-.3032 

• 1460 

20 

.3500 

7.000 

-.668 

27.000 

-.4921 

.0445 

21 

.4500 

9.000 

-.668 

24.000 

-.2507 

.2142 


SCL 

SCO 

SMP C/4 

SCLC/B 

1 XL 

1YL 

121 

-♦1786 

-♦0127 

.6512 

■-•0693 

♦ 0459 

-.0000 

.9969 

-.2300 

-♦0180 

• 6162 

-♦1150 

♦ 0479 

.0000 

• 9989 

-.3243 

-.0270 

• 5209 

-•1622 

.067 0 

.0000 

.9976 

-.4923 

-.0777 

• 3661 

-•2462 

.0660 

• 0000 

.9977 

-.2641 

-.0063 

• 1403 

-.1421 

.2801 

• 0000 

• 9600 


INTEGRATED AIRLOAD COEFFIC I ENTS -SURF ACE NOS#- 1-2 

************* ************************************** 


E 

EON 

ECX 

ECV 

ECL 

ECO 

ECMP 

EC MR 

EC MY 

EX A 

EZA 

ES 

FMGC 

E0 

1 

.8909 

.1253 

.0000 

. 8556 

.2781 

-♦5014 

-.0000 

• 0000 

.00 

.73 

200.00 

10.00 

2 0.00 

1 

♦0003* 

.0 0C3* 

.oooa* 

.0002* 

.0003* 

•0001* 

.0000* 

.0000* 

.00* 

.73* 

200.00* 

10.00* 

20. 00* 

2 

-.23 50 

.1218 

.0000 

-.3019 

.0705 

• 4645 

-.0000 

•0000 

.00 

-.73 

200.00 

10.00 

20.00 

2 

.0000* 

.00 DO* 

.0000* 

.0000* 

.0000* 

• 0000* 

•0000* 

,0000* 

.00* 

-.73* 

200.00* 

10.00* 

2 0.00* 


jobflag 

1 2 

3 4 5 

6 7 8 

9 10 11 

12 13 14 

15 16 IT 

18 19 20 

EXAMPLE PROBLEM 

NO. 4 - 

THICK WING 

PROBLEM 

AERODYNANI 

PAGE 

VALUE 

10 10 

io o a 

5 5 5 

ooo 

0 0 0 

0 0 0 

1 1 2 

ALFA* 

ID. 00 

MACHNO 

« .0000 ALTITUDE-** 

***** 

18 










VORTEX-LATTICE SOLUTIONS FOR THICK WING 

(1,2) 










S 

C r - 

0. 5537. CL - 0.2405. 

7*"*% 

| 

il 

i 

0. 0371 







**+ AIRLOAD 

SUMS *** 


L 


v. 

X 



AC 

6058 

.2471 

.0000 

. 5537 

.3435 

-.0190 

-.0000 

•0000 

.00 

.73 

200.00 

10.00 

2 0.00 


cc 

6056 

.2471 

.0000 

. S537 

.3485 

-.0371 

-.0000 

.0000 

.00 

.00 

200.00 

10.00 

2 0.00 


AC 

0003* 

♦0003* 

.0000* 

.0002* 

.0003* 

.0001* 

.0000* 

.0000* 

.00* 

♦ 73* 

200.00* 

10.00* 

20.00* 


CG 

0003* 

.0003+ 

.0000* 

. 0002* 

.0003* 

.0001* 

.0000* 

.0000* 

.00* 

.00* 

200.00* 

10.00* 

20.00* 






* DETERMINANT" 

.4160+23 * SCALE" 

.6619-01 

* 








J06FIAG 123456 
VALUE ID ID 10 0 0 5 


7 

5 


8 

5 



9 10 11 12 13 14 15 16 17 16 19 20 
OOOOOOOOD112 


EXAMPLE PROBLEM NO. 4 - THICK WING PROBLEM AER 00 Y NANI 
ALFA- 10.00 MACMNO* .0000 ALT| TUDE-****** 


PAGE 
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SECTION AIRLOAO COEFFICIENTS-SURFACE NO." 3/1 3# 31 

*************************************************** 


J 

Y* 

Y 

l 

u 

SCN 

sex 

26 

.0500 

1.000 

.000 

41.ODO 

.5577 

-.0519 

29 

. 1500 

3.000 

.000 

43.000 

.5416 

-.0491 

30 

.2500 

5.CG0 

.000 

45.000 

*5067 

-.0426 

31 

.3500 

T, 000 

.000 

47.000 

.4437 

-.0301 

32 

.4500 

9.000 

.000 

49.000 

.3261 

-.0151 


SCL 

SCO 

SMP C/4 

SCLC/B 

1 XL 

1YL 

IZL 

.5533 

.0676 

.0031 

.2791 

-.0090 

, DOOO 

-1.0000 

.5419 

.0655 

.0029 

.2710 

-.0036 

.0000 

-1.0000 

.5064 

.0806 

.0014 

.2532 

-.0080 

.0000 

-1.QOOO 

.4422 

.0716 

-.0045 

.2211 

-.0071 

.0000 

-1. 0000 

.3238 

.0540 

-.0191 

.1619 

-.0152 

• 0000 

-.9999 


INTEGRATED AIRLOAO COEFFICIENTS-SURFACE NOS.* 3-3 

*************************************************** 


6 

ECN 

6 CX 

EC Y 

ECL 

ECO 

ECMP 

ECMR 

EC MY 

EXA 

EZA 

ES 

EMGC 

66 

1 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.00 

.73 

200.00 

10.00 

2 0.00 

1 

.0000* 

.0000* 

.0000* 

.0000* 

.0000* 

.0000* 

.0000* 

.0000* 

.00* 

.73* 

ZOO.00* 

10.00* 

20.00* 

2 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

• 0000 

•0000 

.00 

-.73 

200.00 

10.00 

20. 00 

2 

♦0000* 

.0000* 

.0000* 

♦ 0000* 

.0000* 

.0000* 

.0000* 

.0000* 

.00* 

-.73* 

200.00* 

10.00* 

20. 00* 

3 

♦4752 

-.0376 

.0000 

.4745 

.0453 

-.0032 

.0000 

• 0000 

.00 

• 00 

200.00 

10.00 

2 0.00 

3 

.0376* 

.0378* 

•oooa* 

.0306* 

.043 8* 

.0094* 

.0000* 

♦0000* 

.00* 

.00* 

200.00* 

10.00* 

2 0.00* 






*** AIRLOAO 

SUMS *** 







AC 

♦ 4752 

-.0378 

. oooo 

.4745 

.0453 

-.0060 

.0000 

.0000 

.00 

.73 

200.00 

iO.OQ 

2C.00 

CG 

.4752 

-.0378 

. oooa 

.4745 

.0453 

-.0032 

.0000 

♦0000 

.00 

.00 

200.00 

10.00 

20.00 

AC 

♦0370* 

.0378* 

.0000* 

.0306* 

.0438* 

• 0122* 

.0000* 

.0000+ 

.00* 

♦ 73* 

200.00* 

10.00* 

2 0.00* 

CG 

.0378* 

.0378* 

.0000* 

.0306* 

♦0438* 

.0094* 

.0000* 

.0000* 

.00* 

.00* 

200.00* 

10.00* 

20.00* 


* DETERMINANT* .3 470* 12 • SCALE* ,9600-01 * Sv '~~ WORTUX^LATTICE SOLUTIONS FOR THIN WING I FLA 1 ! I LATE) 

C Y ~ 0.4745, C _ = 0.0453, C u = -0.0032 
1 D i M (C/4) 

**** JOB TIME- 74 / ELAPSED TIME- 74 / NO.PLOT FILES* 3 / NSURF EXEC* VERSION 6-1B-72 **** 

***** ***************************************************************************************** 


XQT TRWPLT OUTPUT OMITTED 
SEE INPUT-DATA LISTINGS 
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6.6 EXAMPLE PROBLEM if 5, DEaiiS-PRIMT OUTPUT OPTIONS 


SUBSONIC-FLOW LIFTING SURFACE ANALYSIS PROGRAM HAO1O0 
TRW SYSTEMS INC., HOUSTON OPERATIONS 
HOUSTON, TEXAS (77Q5B) 


JOBS INPUT LIST i«m 


7 XOT N5JRF 

EXAMPLF NO.5 - DEBUG-DUMP DEMONSTRATION/ nFlG;2Q)s 0 

Task 7~2, PROjfcT 33G3A, MJO 147033, AERODYNAMIC ANALYSis and DESIGN 

SUHSONiC-FLOw LIFTING surface ANALYSIS, TRw PKDCRAM NO, HAOlOB CNSURFl 

A,V.GOMEZ/ 5 JULY 1972 


1 INPUT 


Nw)NG = J.i 

NSS(iI = Z. ‘!CS(l> a 2r NFLGU)=3, NFLG(6J=Z, NFLG( 11) ol, 
X(i)s2*D«» Y<1>=G*»10.. 2C1}*2«0, ' E<1>=2»0., C<1)*2*10,, 

xom j = o. «i. r flapdjii >* io., Njoa=i, alfa* 5, machn* a,, 
N r L0t2;J= o* 

SEND 

EXAMPLE no.5 - OEBUC^OUMP DEMONSTRATION/ NFlC<20>* 1 

1 INPUT 

NFL512C)- 

Sfc.No 

Example nd,5 - dehu g ~ d ump demonstration/ nflg<20)» 2 
SINPUT 
NF'LGI23)* 2, 

SEND 

EXAMPLE N0 ( 5 - OEBUG-DUMP DEMONSTRATION/ NFLG120)s 5 
fINPUT 
NFLG123)- 5, 


send 

EXAMPLE NO.5 - DEBUG-DUMP DEMONSTRATION/ NFL&(2Q)* 5 
sINPUT 
NFLGC2:)- 8, 

Send 

Example no,5 - oebug-dump demonstration/ nflgi2Ci* 16 

I INPUT 

NFLGI2C)= 16, NFL6C17JS1, 

SeNd 

SENDJObS 
7 XGT NSURF 


XQCR<11*2*0,23, 
NSOUVH*!* 


JObFLaG 12 3*5 

VALUE 3 o 0 0 0 


6 7 8 

2 0 0 


9 10 11 12 13 14 15 16 17 IB 19 20 

ooiooooooioo 


EXAMPLE NOi b - DE0UG-DUMP DEMONSTRATION/ NFLG(20)* 0 
ALFA* ,00 nACHNO* ,0000 ALTITUDE******* 


Page 

i 


S[NPUT 



KOUT 

5 

+ 6, 

KTl 

s 

+ 1 , 

KT 2 

s 

t 8 . 

KT3 

£ 

+3, 

LI NX 

= 

+36, 

NWINg 

= 

+ 1 , 

NVTA1L 

= 

+Q # 

NFUS 

= 

+ 0 , 

COLOcP 

= 

.750TOOOQE+OD 

CUT0F1 

= 

. 10030000E-03 

CUT0F2 

s 

•290O00C0E-02 

LFLAP 

= 

+ 0 . 

GSC4LE 


,iOo:ooooEtoi 


NSS 


+ 2, 

+a, 

♦0, 

NCS 

+ , r 1 . 

+ 2, 

♦a. 

to, 

X 

J 7 

♦::??0300E+QD, 

.30000000E+00, 

, nnrin^-- 


ooono:oof +oo 
ooood:oof.+oci 

OOOOOCOOE+OO 
Qonn^ 


.OJOOOOOOe+OC. 
.DOGJOOOOf*p^ 



Cann"' 

-kjuuDCt + DU, 


_ w ■ JU r 

i/5QOaOOE*OD» 


luO'J-0300E+00i 
♦"DCToOOOE+OO 1 
•COD.DOOOE+OOp 
.lOGCOOOQE+OA, 


REFC - 
REFB 3 
NJDB 3 
ALFA « 

■ nnoaocDOF.^OD 


.IOOCODOOe+03, 

,100'JD000E*03i 

+ 1 , 

.53C-ODOOfc + ai, 

, .DOUOOODGE+OOr 


, (jnonocooF*oo. 

* OCODO rOOF. + DQ, 
•oooao3oc£ + on, 
. ooono:ooF.*DOf 
MACHN = 
•U00OG200E+DD, 


.300D0003E*C3» 
, oucncoocE+oo, 
. 00DL'00DDE + 00> 

O-J J“OOOEtOO, 

,OOOOOOQOE+OO, 


OOOCQCQDE+OC, 

,oooooooot^oc, 

,COD0D000t + 0O, 
.00000300E+00, 

oooooooo£ + dj> 

OCOOCIOOOE + OOi 

.OOOOOOOOE+OJ, 


ooooaoooE^ao, 

,OQOQOOOOE+O0, 

TOoaooaooE+oOi 

lOOOOOOOOE+OO, 

iaoooaooofc>oo, 

oaoacooOE+oo, 

,OOOOOOOOE+O0, 


tcooro. ooe + do, .dodooddoe+oo, .ooooooaot+aa 

HEIGHT = .1O0DD00UE+05, .10000000E+05, 

■ 1OOOOGOOF + 05, . lLlODOOOOE+05, ♦ 10000000b + Cl5 

.1COOQGOOE+05, . lQ00C0a0E+C5, . 10000000fc*05 

FLAPDj * .1-C7C000E+O2, .DCDOCCOOE+00, 

.unoomoot * oo. .DDoaooaoE+oa, 


T A BDJ = 

. OrDDQ GOOF-i-GO 
A ILDJ 3 

■ 000 CO 'GOF* OO 
. unono.:ooF «-ao 
Nf LG = 


or: 3330E + 00* .OCOOOODDt + OO, 


.:uoaoD03E+oo 
j;*:ooofc+uo» 

.303JDDDOE+00 

. ooocouooe+oo 

♦ 3, 


.DCOOOQOOfc+aO, 

, .OOOOOCOOfc+Od 

* ,OODOOOOOt+OO 

♦ 0 . 


*l00aO00OE + D5, 

I ,10000000E+05 

I 

.OOODOOOOE*OOj 
.OOOOaoOOE+OQ, 

,OOQQQaOOE*OD, 

, .gaoaaooOE+oo 


* 0 , 


4 I, 

+ 2, 

tO. 

+c, 

+ r '» 

+ 0, 

tl, 

+0| 

tj. 

+0, 

to. 

to, 

+ D, 

♦1, 

to. 

to, 


tl, 

tl. 

to, 

t '•, 

to. 

to. 

+0, 

■*•'1, 

+ Q • 

to, 

*0, 


, 


t 


tO* 



to, 


t-0. 



PAGE is 

0F P °0R quality 


SEND 
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6.6 EXAMPLE PROBLEM # 5, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


JOsfUG 1 2 3 4 3 6 7 a 9 10 U 12 13 14 15 16 17 16 19 20 EXAMPLE NO,? - OE0U0-DUMP DEMONSTRATION/ NFLG(20>* 0 P*CE 

VALUE 30000200001000000100 ALFA* ,Q0 NACKNO* ,0008 altitude •**•*«♦ 2 


UFTJNG SURFACE NO* X 


S 3 aN 

ROOT 

CHORn 

TIP 

CHORD 

ROOT 

TWIST 

TIP 

TWJST 

AREA 

A5PECT 

RATIO 

MEAN 

CHORD 

MCC 

(MAC) 

VBAR 
(MGC) 

XBAR 

(MOO 

ZBAR 

(MGCJ 

2 r.,;no 

.1C,coo 

10.000 

,0000 

.0000 

200,00 

2,0000 

10,UOQ 

10,000 

5,008 

,000 

,000 

flap 

S'V.'l 
, .00 

FLAP 

SP1N2 

,600 

FLAP 

SPaNJ 

1.000 

FLAP 
QEFLEC 
10.ODD 

Tab 

QEFLEC 

«ogo 

l.ail 

OEFLEC 

,000 

R, A IL 
DEFLEC 
.000 

DIHEO. 

MGc/4 

,000 

' SWEEP 
MGC/4 
,000 

NO, SPAN 
ELEMENTS 

3 

NO,CHORD 
elements 

2 

NO CHORD 
DlScONT, 
X 




FUS STA 
X(CG> 
,000 

wing STA 
Y<CG) 

, ooo 

WL STA 
Z(Cfi> 
,000 

AREA 

StCG) 

1000,000 

CHORD 

c(co 

100,000 

SPAN 

8<CGJ 

100,000 





Y 

z 

X<LE> 

X ( C/ 4 i 

X<TE> 

TWIST 

D{HE(C/4) 

BWER(C/4) 

C< WINQ > 

C<FLAP) 

C(TAB) 


in.con 

-10.000 

. 000 

-2,500 

.000 

7,500 

.000 

1 uoo 

• 000 

10.008 

2,»00 

1.290 

- 9 1 u no 

-9,COO 

.300 

-2,500 

.000 

7,300 

iOOO 

.000 

,000 

10.003 

2.&0C 

1i2»D 

-4 . “00 

-a, goo 

.300 

-2,500 

.000 

7,900 

.ODD 

.OQO 

,000 

1Q.O0Q 

2,300 

1,298 

-7.000 

-7,000 

■ 300 

-2,500 

.oou 

7,300 

.ODD 

,000 

.000 

10.000 

2.300 

1,290 

-a.con 

-6,000 

. 000 

-2.500 

.000 

7,300 

.ODD 

, 000 

,000 

10.000 

2,300 

1,250 

-5.COO 

-5,000 

. 300 

-2,500 

.000 

7,500 

.000 

.000 

,000 

10.000 

2.300 

1,238 

- 4 .o o 

-4,000 

. uoo 

-2.500 

.000 

7,300 

.000 

,000 

,000 

10,000 

2t?D0 

1,258 

-3.GUO 

-3,000 

.000 

-2,500 

.000 

7,500 

.000 

.000 

.000 

10,000 

2,»00 

1,250 

-2.000 

-7,000 

.300 

-2,500 

,000 

7,300 

,000 

.000 

,000 

10,003 

2,500 

1,230 

-1.QQD 

-1 ,00u 

.000 

-2,500 

.000 

7,500 

.000 

.000 

.000 • 

10,000 

2,300 

1,230 

.000 

,000 

.000 

-2,500 

.000 

7,300 

,000 

,000 

,00c 

10,000 

2,300 

1,250 

1 . 300 

1,000 

.300 

-2,500 

.000 

7,300 

.000 

,ooo 

,000 

10,000 

2,300 

1,230 

2 , COO 

2,000 

,000 

-2,500 

,000 

7,300 

,000 

,000 

.000 

10,000 

2,300 

1,230 

3. COO 

3,030 

,000 

-2,500 

,000 

7,300 

.000 

,000 

,000 

10,000 

2,300 

1,250 

400 0 

4,000 

.000 

-2,500 

,000 

7.300 

.000 

.000 

,000 

10,000 

2,300 

1,290 

5, COO 

5,330 

.000 

-2.500 

.000 

7,300 

<000 

,000 

.000 

10,000 

2,300 

1,230 

6.000 

6,:-';o 

.000 

-2,500 

«QQO 

7,300 

.000 

,000 

.000 

10,000 

2,300 

1,230 

7. 3QD 

7 , 0:0 

.000 

-2,500 

,000 

7,300 

.000 

,ooo 

,000 

10,000 

2,300 

1,290 

a.COD 

a.oco 

. uoo 

-2,500 

.000 

7,300 

.000 

.000 

.000 

10,000 

2.3Q0 

1,230 

9.D00 

9.0CQ 

,000 

-2.500 

.000 

7,300 

.ODD 

.000 

.000 

10,009 

2,3q0 

1,250 

1G.C0C 

1O.3C0 

.000 

-2.500 

. 000 

7,300 

,000 

.000 

,000 

10,009 

2,300 

1,250 


JO0FLAG 1 2 3 4 s 6 7 9 9 10 11 12 13 14 15 16 17 IB 1? 20 EXAMPLE NO,5 - OEBUC-OUMP DEMONSTRATION/ NFLG<2D)» 0 PlttE 

value 3occa2ocooiooooonioo alfa* ,dq machno* .dudd altitude******* > 


XA.<1)/C XA<2)/C XA(3)/C XA< 4}/C XA(3)/C XA(6>/C XA(7}/C XA(8>/C XAI9J/C XA(lO)/C 

,0000 1p GOOD ,0000 ,0000 ,0000 .0000 .0000 ,0009 ,0000 .0000 


Z A< 2 >/C ZA<3>/C ZAU1/C ZA(5>/C ZA<4>/C ZA(71/C ZAI6J/C ZAI9I/C ZA(1Q1/C 

<0090 , 0000 ,0000 .0000 ,0 UOQ .0000 ,0000 ,0000 .0000 

.0000 ,0000 ,0000 ,0000 .0000 ,0000 ,0000 ,0000 .0000 


SECTION airload cqefficients-surface no,* l/( 1, l) 


W 5CN sex SCL SCO SMP C/4 SCLC/B 1XL 1YL 1ZL 

,000 < 4B7q ,0062 ,4846 ,C4J0 -.1245 ,2423 ,0103 ,0000 -,9999 

6,667 ,3010 -.0247 ,3020 ,0241 ,0141 ,1510 ,0038 -,0163 -,9999 


ZA(1!/C 


.OGOO ,OOCO ,COOQ 

.0000 lO.GODO fQOOO 


i 

°s^°° 

< VJ V j y* 


2 -.coon 

3 .3333 


-,ooo 

6,667 



1NTEGRATE0 airload COEFFICIENTS-BURFaCE NOS,• 1 - 1 


E F.CN 

ECX 

ECY 

ECL 

ECD 

ECMP 

ECMR 

ECHY 

EXA 

eza 

ES EMGC 

eb 

1 ,3630 

-,0144 

,0000 

,3629 

.0173 

-.0321 

-.0000 

-,0000 

,00 

,00 

200,00 10,00 

20, OQ 

1 .Cl 64 * 

.0164+ 

,0000* 

*0149 + 

, 0178* 

.0041+ 

- ,Q0Q0* 

, 0000 + 

,00* 

,00* 

200,00* 10,00* 

20 r □ D • 

JOBFLaG 1 2 

3 4 5 

6 7a 

9 10 11 

12 13 14 

15 16 l7 

1* 20 

EXAMPLE 

NO, 5 - 

DEBUG-OUMP 

demonstration/ 

NFLG(20I» 

VALUE 3 0 

0 f J 0 

2 U 0 

0 0 1 

ODD 

0 0 0 

10 0 

ALFA 

= 5,00 

MACKNQc 

,0000 ALTITUDES 


• •• AIRLOAD SUMS *«* 


AC 

,363d 

-OIM 

.0000 

.3629 

.0173 

-,0321 

-.0000 

-,ouou 

,00 

,00 200,00 

10,00 

20,00 

CG 

. 3726 

-.0029 

.0000 

,0726 

.0035 

-.0004 

-, ODDD 

- 1 GOOD 

,00 

,00 1000.00 

100 , DO 

100,00 

AC 

01*4# 

,0164* 

.0000* 

,0149+ 

.0178+ 

.0041+ 

-.0000* 

■QOQO* 

,00 + 

,00* 200,00* 

1Q,Q0 + 

2d . OD* 

CG 

0033* 

,0033# 

f oo n o• 

♦0030# 

,0036# 

,0001 + 

- , 0000 + 

,0000+ 

.00+ 

,00-# 1000,00 + 

100,00# 

100,00* 


♦ DETERMINANT 5 ,1073+02 * SCALE* ,7042-01 * 


**** J0fl TJML= 1 / ELAPSED TfMt = l / \0,PLOT FJLESe 0 / N5URF EXEC, VERSION 6-19-72 + + * + 


6-41 
















6.6 EXAMPLE PROBLEM # 5. DEBUG-PRINT OUTPUT OPTIONS {CONTINUED) 



JO0FLAC 1 2 3 4 5 6 7 a 9 10 11 12 13 14 15 16 17 IB 19 2D EXAMPLE NO,* - DEBUG-DUMP DEMONSTRATION/ NFLG(20)■ 1 PaCE 

value 3ocoo2ooociooooooiai alfa* ,oo machno* *0000 altitude******* 7 



XAt D/C 

X A < 2 ) / C 

XA(3)/C 

XA t 4)/C 

XA(5>/C 

XA<6 >/C 

XAt73/C 

XAt $)/C 

XA(9 J/C 

xAtitn/c 


,0000 

1,0000 

,0000 

*0000 

,0000 

. auao 

.aaao 

,0000 

,0000 

,0000 

X Y 

ZAl D/C 

ZAC2J/C 

2iI31/C 

Z A ( 4 J / C 

ZAI5J/C 

ZA « 6 >/C 

ZAt7)/C 

za< a j/c 

ZA t 9 J/C 

za<iq>/c 

.ococj .jcco 

.q;oo io.o::-7 

«OJ0O 

• cjoa 

.0020 
. aoco 

*0000 

,0000 

.0000 

.0000 

.0000 

.0000 

.0000 
. D U □ 0 

.0000 

.0000 

,0000 

,0000 

,0000 

.0000 

. QOOQ 
.0000 

J < V 

1 

WL 

EW 

OWL 

DC 

D5 






1 

~6. 6f>7 + c ? 

0.QUC 

6 

,667+CO 

6,6ft?+00 

6.667+00 

7.500+00 

5,000+01 

1 

-5,960-04 

e.ooo 

0 

.000 

a ,000 

6.667+00 

7.500+00 

5,000+01 

1 

6.6 6 7 ♦ G O 

j.COO 

ft 

,667*00 

6,667+00 

6,667+00 

7.500*00 

5,000+01 

? 

-6.^67+00 

0.000 

ft 

, ft 67*0Q 

6,667+00 

6.667+00 

2,500+00 

1,667+01 

? 

-3^60-01 

0.000 

0, 

1 000 

Q.ODQ 

6.667+00 

2,500+00 

1,667+01 

2 

6.867+og 

0,000 

ft 

,667+00 

6,667+00 

6.667+00 

2,500+00 

1,667+01 


J 

K 

XV 

TV 

ZV 

1XV 

1YV 

1ZV 

XN 

Y\| 

2N 

iXN 

1YN 

1ZN 

1 

1 

-6,250-01 

-1.000+01 

0,000 

0,000 

1.000+00 

0,000 

3,125+00 -6,667+00 

0,000 

0,000 

0.000 

1,000+00 

? 

1 

-6.250-01 

-3,333+00 

0,000 

0,000 

1.000+00 

a,goo 

3,125+00 -5.960-06 

0.000 

0,0 00 

0,000 

1(000+00 

3 

1 

-6.250-01 

3.333+00 

0,000 

0,000 

1 . 000+00 

0,000 

3,125+00 

6.667+00 

0,000 

0,000 

0,000 

l»QOp+OD 

1 

2 

5.625+0C 

- 1 , 000+01 

0.000 

0,000 

1 .000+00 

0,000 

6,875+00 *6.667+00 

0,000 

0,000 

0,000 

1,000+00 

2 

2 

5.625+00 

-3.333+00 

0.000 

0,000 

1.000+00 

0,000 

6,875+00 -5,960-0® 

0,000 

0.000 

0,000 

1,000+00 

3 

2 

5.625+00 

3.333+00 

0.000 

0,000 

1 . 000+00 

0,000 

6,875+00 

6.667+00 

0,000 

0,000 

0,000 

1(000+00 






section airload 

CQEFFICIENTS-SURFACE no,■ 

1/1 1, D 





J 

Y + 

Y 

l 

V SON 

sex 

SCL SCO 

SMP c/4 

SCLC/B 

1XL 

iyl 

1ZL 

2 

-,:ooti 

” 1 Gu v 

.QUO 

,000 ,4870 

,0062 

,4646 ,0430 

-,12+5 

,2423 

,0103 

,0000 

-.9999 

3 

,3333 

6,6ft7 

.000 

6.667 ,3010 

-,0247 

,3d2Q ,0241 

.01*1 

.151D 

,0038 

-,□163 

-,9999 


JO0FLAG 1 2 3 4 5 6 7 6 9 10 11 12 13 14 15 16 17 16 19 20 EXAMPLE ND,5 - DEBUG-OUMP OEMONSTRaT] ON/ NFLG(2Dj* 1 PaGE 

value 3oc . qzooooioooqooioi alfa* 5 r oo machno' ,0000 altitude******* a 


INTEGRATED AIHL04U COEFF JcIENTS-SURFACE nos, 8 1-1 


E 

ECN 

ECX 

ECY 

ECL 

ECD 

ECMP 

ECMR 

ecmy 

EXA 

EZA 

&s 

EMGC 

EB 

1 

, 36 on 

-, 0144 

.aooo 

,3629 

,0173 

-,0321 

-.0000 

-,0000 

,00 

.00 

203.00 

10.00 

20,00 

1 

. :i64* 

, 0164+ 

.oojc* 

.D1 4 9 + 

.0178* 

,0041+ 

-,0000+ 

,0000+ 

,oa* 

.00* 

200.00+ 

10(00* 

20,00* 







*** AIRLOAD 

SUMS +*• 







AC 

.3630 

-.0144 

,0000 

.3629 

,0173 

-.0321 

-,0000 

-.0000 

,00 

,00 

200,00 

10,00 

20,00 

CG 

,‘726 

- ,0O?9 

,□000 

. C 726 

,0035 

-.0006 

-,oaoo 

-,0000 

,DG 

,00 

1000,00 

100,00 

10a t oo 

AC 


, J164 + 

,aooo* 

.0149* 

.0176+ 

,0041* 

-.0000* 

,0000* 

,00* 

, 00* 

200.00+ 

10,00* 

20,00* 

CG 

1 :o33* 

■ ::33 + 

,0000+ 

•0030+ 

.0036+ 

.aaol* 

-,0000* 

,0000+ 

,ag* 

,00* 

1000.00* 

100,00* 

100 1 


* DETERMINANTS ,1Q 7 3+02 » SCALE' ,7042-01 • 


**** .JOB TJMts 1 / ELAPSED TlMLs 2 * NQ.PlOT FILES= 0 / NSURF EXEC, VERSION 6-18-72 ••• + 



JOBFLAG 1234567 
VALUE 3 Q C 0 0 2 0 



9 ID 11 12 13 14 15 1 £1 17 IS 19 20 EXAMPLE NQ,5 - DEBUG-DUMP DEMONSTRATION/ NFLC<20)* 2 PaG£ 
001000000102 ALFA* ,00 MACHNO* ,0000 ALT! TL'OE 3 ****** ll 



XAt D/C 

XA t 2 5 / C 

XA13I/C 

XAt 41/C 

XA(5)/C 

XAt 61/C 

XA< 7 l/C 


.0300 

1.0000 

,0000 

,0000 

.0000 

,0000 

• 0000 

Y 

ZA< 1)/C 

ZA 121/C 

Z A t 3) /C 

ZA t 4)/C 

2 A15)/C 

Z4< ft 1/C 

ZA(7 l/C 

jCQ .132: 

-00 10.007: 

. CJ30 
, 0330 

.0000 

.0000 

,uooo 

.DOQO 

*0000 

*0000 

. ODDD 
.0000 

.auao 

.ouoo 

.0000 

.aaao 

Y Z 


WL 


DWU 

DC 

D$ 


-6,^67+n? 0,000 

-5.°f>0-08 7.000 

6.6 6 7 + 0 n 0.000 

&, 
Oi 
6 . 

667+C0 6, 
ODD 0, 
667+CO 6. 

667+00 6. 
000 6. 
667+00 6. 

667+00 7, 

667+00 7, 

667+00 7, 

500+00 5, 

500*00 5, 

5DD+00 5, 

000*01 

aoo+gi 

000+01 



XAtSl/C 

VA(9>/C 

xAtiai/c 

,OJC0 

,0000 

.0000 

ZAtfll/C 

Z4C9J/C 

ZAt10 l/C 

.0000 

*0000 

, 000 a 

,0000 

.0000 

,□□03 


ORIGINAL PAGE IS 
OP POOR QUALITY 


6-42 










6.6 EXAMPLE PROBLEM I 5. DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


\ 


1 

2 -4.667+uo 

0.000 

6,667*00 

6,667*00 

61647*00 

3,900*00 

l,647*fll 


2 

2 -5.960-0* 

0.000 

0,000 

0.000 

6,667400 

2,500*00 

1,667*01 

• 

3 

7 6.667+qo 

0.000 

6,667*00 

6,647*00 

6.667*00 

2,300*00 

1,647*01 



J 

K 

XV 

TV 

2V 

1XV 

1 YV 

12V 

XN YN 

2N 

iXH 

1YN 

UN 

l 

1 

- 6,?50- 01 

- 1 . 000*01 

0,000 

0,000 

1,000*00 

0,000 

3,123*0(3 ’•6,667*00 

0,000 

0.000 

• 0,000 

1,000*00 

2 

1 

-6.P50-01 

-3.333*00 

0,000 

0,000 

1,000*00 

0.000 

3,125*00 -3.96Q-Q8 

0,000 

0,000 

0,000 

1,000*00 

3 

1 

-6.?5Q-01 

3.333+00 

0,000 

0.000 

1 , 000*00 

0,000 

3,125*00 4,467*00 

0,000 

0.000 

a < ooo 

1,000*00 

1 

2 

5.625*00 

- 1 . 000*01 

0,000 

0,000 

1 , 000*00 

0,000 

6,875*00 -6,667*00 

0,000 

0,000 

0,000 

1,000*00 

2 

?. 

5. *25 + 00 

-3.333*00 

0,000 

0,000 

1.000*00 

0,000 

6,875*00 *3,960-0* 

0,000 

0,000 

0 1 000 

1,000*00 

3 

2 

5.625*00 

3.333*00 

D .000 

0,000 

1 , 000*00 

0,000 

6,875*00 6,667*00 

0,000 

0,000 

0,000 

1,000*00 


LIFT DISTRIBUTION DETAIL-SURFACE NO,* l/( 1, 1> 


J 

K PCX) 


r > 

P C 2) 

area 

CPN 

6(X) 

G(Y> 

GIZ) 

VKX) 

VKY) VICZ) 

Gama 

1 

1 -,625 


-6,667 

.000 

50,0000 

,3923 ■ 

,0*314 

,00000 

»99173 

,00054 

,80348 ,00332 •, 

1472*01 

1 

2 5.620 


-4.667 

.034 

14,4467 

.030* 

•,80110 

-,01487 


■cot** 

•i80472 ,0*0S6 •, 

>7*0*01 

-- 


-- 


__ „ 


. — -— -- 

-- 

— 

--- 

— 


-. — 

JOflFLAG 123 

4 

5 6 7 

8 9 10 

11 12 13 14 

15 16 17 

18 19 20 

EXAMPLE 

NO,5 - OEBUB-DUKP 1 

DEMONSTRATION/ NFLCC20J* 2 PAGE 

Value 3 □ n 

0 

0 2 0 

0 0 0 

10 0 0 

OOO 

10 2 

ALFA* 5,00 

MACHNO" * 

0000 ALTTTUDe******* 

12 

2 

1 -.625 


- .000 

,000 

50,0000 

,3178 

-.01921 

.ooaoo 

1,0Q1$0 

,00541 

,00000 ,10236 -y 

1192*01 

2 

7 5.616 


-. 000 

,109 

16,6667 

,9942 

-.01031 

,00000 

,99872 

,00233 

,00000 ,09747 •, 

12 * 3*01 

3 

1 -.625 


6.667 

.000 

50,0000 

.3923 

,08384 

,00000 

.99673 

,00094 

•,00968 ,00332 *, 

1472*01 

3 

2 5.620 


6.667 

,05* 

16,6667 

,0302 

-,00380 

,Q16?7 

,99893 

,00207 

,0D*72 ,0908B •, 

378Q-01 


S 



SECTION AIRLOAD 

COEFFICIENTS-SURFACE 

NO,* 1/1 

ll 1> 

»«++•• 




J 

Y « 

Y 

Z 

W 

SCN 

SCX 

sew 

SCO SMP g/4 SCLC/B 

1XL 1YL 1ZL 


2 

-.CD CD -, 

000 

.000 

.000 

,4870 

,0062 

,4846 

,0*30 

,1245 

,2423 

,0103 .0000 -,9999 


3 

.3333 6, 

,66? 

,00a 

6,667 

.3010 

-.0247 

,3020 

,0261 

,01*1 

,1510 

,0038 *,0163 -,9999 



INTEGRATED AIRLOAD COEFFIDIENTS-SURFACE NOS,’ 1 - 1 


E 

ECN 

ECX 

ECY 

ECU 

ECD 

ECMP 

ECMP 

ECMY 

EXA 

EZA 

E9 

emgc 

E0 

i 

. 363P 

-.01*4 

,0030 

,3629 

,0173 - 

.0321 

-,0000 

-toooa 

,00 

.00 

200,00 

10,00 

20,00 

1 

.Cl 6* « 

.Q164* 

, aaoa* 

.0149* 

,0178* 

.0041* 

- iOQOO* 

,0000* 

,00* 

,00* 

200,00* 

10,00* 

20,00* 






*«• 

airload 

SUMS **♦ 







AC 

, 3&3n 

-.01** 

.oooc 

.3629 

,0173 - 

,0321 

-,0000 

-,0000 

,00 

,00 

200,00 

10,00 

20,00 

CG 

.0726 

PC29 

. 0000 

, 0 726 

,0035 - 

.000* 

-,0000 

-,0000 

,00 

.00 

1000,00 

100,00 

100,00 

AC 

. G16** 

,3164* 

,0000* 

,0149* 

,0178* 

.0041* 

-,oqco* 

,0000* 

,00* 

,00* 

300,00* 

10,00* 

20,00* 

CG 

, 0033* 

.0033* 

.0000* 

.0030* 

,0036* 

.0001* 

-.0000* 

,0000* 

,ao* 

,00* 

1000,00* 

100,00* 

100,00* 


* DETERMINANT* ,1Q73*Q2 • SCALE* ,7042-01 • 


.♦♦* JO0 Tjnfe- l / ELAPSED TJME* 3 / NQ.PLOT PILES* Q / N8URF EXEC, VERSION 6-18-72 +♦•* 



JOBFLaG 1 2 3 4 5 6 7 8 9 10 11 12 13 1* 15 16 17 JS 19 20 EXAMPLE N0,5 ' DEBUG-DUMP DEMONSTRATION^ NFLG{20J * 5 PAGE 

value 30020200001000000105 alfa* ,oo machno* ,ococ altitude******* is 




XA'IJ/C 

XAC2J/C 

XAC31/C 

XAt 4 )/C 

XAC5I/C 

XA C 6)/C 

XAC7)/C 

XA(8)/C 

XAC9J/C 

XA(iQ>/C 



,0000 

1,0000 

,0000 

, OOQO 

,0000 

.0000 

.0000 

,0000 

,0000 

, OOQO 

X 

Y 

ZACIJ/C 

ZAC21/C 

ZA C31/C 

ZA<4 )/C 

ZAC5J/C 

ZA(6VC 

ZAC7J/C 

ZAC 8)/C 

ZAC 9 )/C 

ZAC10>/C 

.0000 

. CD0G 

.0000 

.0000 

.0000 

,0000 

,0000 

.0000 

,0000 

,0000 

,0000 

,0000 

. DDOO 

ID.OCCO 

,0000 

.0000 

,0000 

,000 0 

,0000 

.0000 

.0000 

.0000 

,0000 

.0000 


J 

K 

Y 

Z 

WL 

EV 

OWL 

oc 

US 

1 

1 

-6.667+00 

0,000 

6,667+00 

6,667*00 

6.667+00 

7,500*00 

5,000*01 

2 

1 

-5.960-08 

0.000 

0,000 

0,000 

6.667*00 

7,500*00 

5,000*01 

J 

1 

6.667 + 00 

0,000 

6,667*00 

6,667+00 

6,667*00 

7,500*00 

5,000*01 

1 

2 

-6.667+00 

0 * ooo 

6,667+00 

6.667+00 

6,667*00 

2.300*00 

1,667*01 

2 

2 

-5.960-0* 

0.000 

0,000 

0,000 

6*647*00 

2.500*00 

1.667*01 

3 

2 

6 . 667 + QO 

0 . ODD 

6.667*00 

6,667*00 

6.667+00 

2,500*00 

1,667+Ql 


F 
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6.6 EXAMPLE PROBLEM 4 5, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


J 

K 

XV 

yv 

zv 

1XV 

1™ 

izv 

XN 

YN 

ZN 

ixn 

1YN 

1ZN 

1 

1 

-6.250-01 

-i.OOO+Ol 

0*000 

0,000 

1,000+00 

0,000 

3,125+00 *6,667+00 

0,000 

0,000 

a, ooo 

1,000+00 

2 

1 

-6.250-01 

-3,333+00 

Q.QOO 

0.000 

1.DO 0 + 00 

0,000 

3,125+00 -5,960-08 

0 1 000 

0,000 

0,000 

1 , 000+00 

3 

1 

-6.250-01 

3.333+00 

0.000 

0,000 

1,000+00 

0,000 

3,123+QO 

6,667+00 

0.000 

0,000 

0,000 

I,ooo+oo 

l 

2 

5,6?5+O0 

-1.000 + 01 

0.000 

0,000 

1.000*00 

0.000 

6,675+DO -6,667+00 

0,000 

0.000 

0,000 

1*000+00 

2 

2 

5.625+00 

-3.333+00 

0.000 

0.000 

1,000+00 

0,000 

6,875+QD -5,960-06 

0,000 

0,000 

0,000 

1tOOO+OO 

3 

2 

5.625+00 

3,333+00 

0.000 

0,000 

1,000+QO 

0,000 

6,675*00 

6.667+00 

0.000 

0,000 

0,000 

1(000+00 


VORTEX LATTICE MATRIX DET*IL-SURF ACE NO,■ l/l 1, 1) 


J 

K 

NP 

NG VFSI«AT> 

VIN(MAT) 

P(X) 

P(Y> 

P< Z3 

BIX) 

0<Y> 

BCZ) 

DlX) 

D(Yj 

D<Z> 

2 

1 

l 

1 -,*716-01 

,1113+00 

,3125+01 

-,596o-07 

.0000 

-.6250+00 

*,3333+01 

,0000 

-.6250+00 

,3333+01 

,0000 

2 

1 

1 

2 -.8716-01 

-,5010-01 

,3125+Ql 

-.5960-07 

,0000 

-.6250+00 

,3333+01 

,0000 

-.6230+00 

,1000+02 

.0000 

2 

I 

1 

3 -.8716-01 

,2476-01 

,3125+01 

-.5960-07 

,0000 

,5616+01 

*,3333+01 

,1065+00 

,3616+oi 

,3333+01 

,1085+00 

2 

1 

1 

4 -.8716-01 

- ,666S*Q1 

.3125+01 

-.5960-07 

,0000 

,5616+01 

,3333+01 

,1065+00 

,3625+01 

.1000+Q2 

(0000 

3 

1 

2 

1 -.8716-01 

•,2505*01 

.3125+01 

f 6667+oi 

,0000 

-,*250+00 

•,3333+01 

,0000 

-,6230+00 

,3333+01 

,0000 

3 

1 

2 

2 -.8716-01 

,1072+00 

,3125+01 

,6667+01 

,0000 

•» 6250+00 

,3333+01 

iOOOO 

-,6250+00 

,1000+02 

,0000 


JOSFLAC 

1 

2 

3 4 5 

6 7 8 

9 10 11 12 

13 14 15 

U 17 18 : 

19 20 EXAMPLE NO.5 

- DEBUG-DUMP DEMONSTRATION/ NFLG(20>* 5 

VALUE 

3 

0 

0 0 o 

2 0 0 

0 0 10 

0 0 0 

0 0 1 

0 5 

ALFA" 5, 

00 MACHNO* 

.0000 , 

ALTITUDE"** 


J 

K 

NP 

NG 

VFS(MAT) 

V J N < MA T } 

P(X> 

P(Y) 

P<Z> 

8 (X) 

B < Y J 

BIZ) 

0{X) 

OlY) 

O(Z) 

3 

1 

2 

3 - 

.8716-31 

-,3346*01 

,3125+01 

,6667+01 

,0000 

,5616+01 

* f 3333+01 

,1085+00 

,5616+01 

,3333*01 

,1085+00 

3 

] 

2 

A - 

,8716-01 

,2002-01 

,3125+Ql 

,6667+01 

,0000 

,5616+01 

,3333+01 

,1085+00 

.5625+01 

,1000+02 

,0000 

2 

2 

3 

1 - 

.2588+00 

,9435-01 

,6847+01 " 

.5960-07 

,3256+00 

-.6250+03 

*, 3333+01 

,0000 

.6250*00 

,3333+Dl 

.0000 

2 

? 

3 

2 - 

,25*8+00 

-,5275-01 

.6847+01 - 

,5960*07 

,3256+00 

-.6250+00 

,3333+01 

iOOOO 

.6250+00 

,1000*02 

,0000 

2 

? 

3 

3 - 

,2568+00 

,1814+00 

,6847+01 - 

,5960-07 

,3256+00 

.5616+01 

-,3333+Ql 

,1085+00 

,9616*01 

.3333+01 

,1005*00 

2 

2 

3 

4 - 

,2588+00 

-,3772-01 

,6847+Ql “ 

,5960-07 

,3256+00 

,5616+01 

,3333+01 

,1085+00 

.5625*01 

,1000*02 

.0000 

3 

2 

A 

l - 

,8716-01 

-.2831-01 

.6875+01 

,6667+01 

,0000 

-,6250+QO 

*,3333+01 

,0000 

,625o+Q0 

,3333+01 

.0000 

3 

2 

A 

2 - 

,8716-01 

,9421-01 

,6875+01 

.6667+01 

,0000 

-,6250+00 

,3333+01 

,0000 

,6290+00 

.1000*02 

.0000 

3 

2 

A 

3 - 

.8716-01 

-. 1977-01 

.6875+01 

,6667+01 

,0000 

.5616+01 

*,3333+01 

,10«5+00 

,5616+01 

,3333+01 

,1085+00 

3 

? 

A 

4 - 

.8716-01 

,1/95+00 

,6875+01 

,6667+01 

.3000 

,5616+01 

,3333+01 

,1085+00 

,5625+01 

,1000+02 

.0000 


LIFT DISTRIBUTION DETaIL-SURFaCE NO." 1/1 1, 1) 


J 

X 

P( X) 


P< Y ) 

P< Z) 

area 

CRN 

G{ X > 

G<Y) 

G(Z) 

VJIX) 

V{ < Y> V 1 < 2 3 Ci^A 

1 

1 

-.625 


-6.667 

.000 

5a ioqoo 

,3925 

,08384 

.OQOQO 

,99673 

.00054 

.00568 ,00332 *,H 7 2 + 0l 

1 

2 

5.62c 


-6,667 

.054 

16,6667 

.0302 

-.00380 

-.01627 

,99893 

.00*87 

■,QD 47 2 ,09q88 -,3780-01 

2 

1 

625 


-.000 

.aaa 

5a * oca o 

,3173 

-.01521 

.oaooo 

1,001*0 

.D 0541 

, 00^00 .10236 1192+01 

2 

2 

5,616 


-.ooo 

.10? 

16,6667 

,9942 

-.01031 

.00000 

,99872 

.00253 

.00000 .09747 « ( 1243+Q1. 

3 

1 

-.625 


6.667 

,aca 

50,0000 

.3925 

, 08384 

.uoogo 

,99673 

.00054 

*.□□566 ,00332 -,1472+qi 

3 

7 

5 i 62? 


6.667 

.054 

16.6667 

,0302 

-,0038a 

»0l62 ? 

,99893 

,00287 

,00 47 2 ,D9q 68 *,37 a Q-gi 






SECTION AIRLOAD 

coefficients-surface 

NO," 1/C 

1, D 



J 

Y* 


Y 

Z 

w 

SCN 

sex 

SCI 

SCO SMP C/4 SCLC/B 

1XL 1YL 1ZL 

2 

-» C0OC 

* % 

coo 

.000 

.000 

, 4fl?0 

,0062 

, 4 846 

,0430 

,12*5 

,2423 

.0103 ,OODO -.9999 

,0038 -.0163 -,9999 

3 

,3333 

6. 

667 

,000 

6,667 

.3010 

-.0247 

, 3020 

,0241 

,0141 

,1510 

JOBFlaG 1 

2 3 

4 

5 6 7 

6 9 10 

11 12 13 14 

15 16 17 

18 19 20 

example 

NO, 5 - PEBUG-DURP 

DEMONSTRATION/ NFLCI20)* 5 PaGE 

VALUE 5 

0 r 

- 

0 2 0 

ooo 

10 0 0 

0 0 0 

1 0 5 

ALFA 

* 5.00 

MAcMNDs , 

0000 ALTITUDE******* l 7 


INTEGRATED AIRLOAD COEFFIClENTS-SURFACE NQ5,a 1-1 


E 

ecu 

ECX 

ECY 

ECL 

ECD 

ecmp 

ECMR 

ECMY 

EXA 

EZA 

ES 

ZMGC 

EB 

1 

. 363P. 

;i44 

.00'JO 

. 3629 

.0173 

- ,0321 

-.0000 

-,0000 

,00 

,00 

200,00 

10 1 

oa 

20,00 

1 

• a i 6 4 « 

.}164* 

♦OOOC+ 

.0149* 

.0178* 

, 0 a 4 1 • 

-, 0000 * 

,0000* 

,00* 

,00* 

200.00" 

10 1 

00" 

20 1 00* 







♦** airloau 

SUMS ** + 








AC 

.363« 

-, 21 44 

.0000 

. 3629 

.0173 

-.0321 

-.0000 

-♦0000 

,00 

.00 

200.00 

10 , 

00 

20,00 

CG 

?? 6 

- , 002(> 

.0030 

.0726 

,0035 

-.0006 

-,0000 

-.0000 

,00 

,00 

1000,00 

IDO > 

ao 

100,00 

AC 

• 1' 16 A * 

. ;• 16 4 • 

.ooao* 

,0149* 

,0178* 

.0041" 

-.0000* 

, 0000 * 

.DO* 

,co* 

200,00" 

10 1 

ao» 

20,CD* 

CG 

.DO33* 

,:.033* 

,0000" 

,0Q3D» 

.0036* 

,0001" 

-.0000* 

.0000" 

.00* 

.DO" 

1000 1 DO" 

10 a ■ 

oa* 

100,00" 


• DETERMINAMT= .1D73+02 • SCALE" ,7042-01 " 


»•*« JOB TIMfcs i / ELAPSED TI ME= 4 / N0,PLOT FILES* 0 / NSURF EXEC, VERSION 6-19-72 


CLv 


n 


£L 2 


OF ?OC3, Q"JAL7. r .? 
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6.6 EXAMPLE PROBLEM A 5, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


JOBFLAC 1 

value 3 

2 3 4 

0 0 0 

5 6 7 6 

0 2 0 0 

9 10 11 
0 0 1 

12 13 14 15 
0 0 0 0 

16 1? 18 
0 0 1 

It 20 EXAMPLE NO. 
9 8 ALFA* 

5 - D£BUB+DUPP DeMONBT*AT10N< NFUft< 20 J« 
,00 MAftHND* ,9000 ALTITUDE******* 



XAI1J/C 

XAI2I/C 

XA<JI/C 

XA<4)/e 

XA(5 I/C 

XAC61/C 

XA< 7)/C 

XA(B I/C 

XA(93/C 

XAUQ3/C 



, 0000 

1,0000 

,0000 

,0000 

,0000 

,OOQO 

,0000 

,0000 

,0000 

,0000 


V 

zaui/c 

ZAC21/C 

ZA< JVC 

ZA<4>/C 

IAOI/C 

ZAC 6 3/C 

ZAI7J/C 

ZAtBI/e 

ZAttl/C 

ZAU03/C 

.0000 

.0000 

,0000 
10. 3000 

1 0 000 
, 0000 

,0000 

,oaoa 

,0000 

,0000 

,0000 

lOOOO 

,0000 

,0000 

.0000 

,0000 

,0000 

,0000 

,0000 

,0000 

,0000 

,QO00 

.0000 

,0000 


20 


J 

K 

Y 

Z 

WL 

EW 

OWL 

DC 

□ S 

l 

1 

-6.667 + 00 

0.000 

6,467+OD 

6,667*00 

6,667*00 

7,500*00 

9,000*01 

2 

1 

-5.°60-0fl 

0,000 

0,000 

0,000 

6.667*00 

7,500*00 

5,000*01 

3 

t 

6 . 667+00 

0,000 

6,667*00 

6,667*00 

6,667*00 

7,500*00 

9,000*01 

1 

2 

-6.667+0C 

0.000 

6,667*00 

6,667*00 

6,667*00 

2,500*00 

1,667*01 

2 

2 

-5.9*0-08 

0,000 

0,000 

0,000 

6.667*00 

2,500*00 

1,667*01 

3 

2 

6.667-+Q0 

0,000 

6,667*00 

6,667*00 

6,667*00 

2,500*00 

1,667*01 


J 

K 

XV 

YV 

zv 

1XV 

1YV 

1ZV 

XN 

YN 

ZN 

1XN 

itN 

1 

1 

-6,250-01 -1.000*01 

0,000 

0,000 

1 . 000*00 

0.000 

3,125*00 -6,667*00 

0,000 

0.000 

0,000 

2 

1 

-6.250-01 -3.333*00 

0,000 

0,000 

1,000*00 

0,000 

3,129*00 -9,960-06 

0,000 

0,000 

0,000 

1 

1 

-6.250-01 

3.333+00 

0,000 

0,000 

1,000*00 

0,000 

3,129*00 

6,667*00 

0,000 

o»Qdo 

0,000 

i 

2 

5.625+00 -1,000*01 

0,000 

0,000 

1.000*00 

0,000 

6,575*00 -6,667*00 

0,000 

0,000 

0,000 

2 

2 

5.625*00 -3,333*00 

0,000 

0,000 

1.000*00 

0,000 

6,679*00 -5,960-08 

0.QO0 

0.000 

0,000 

3 

2 

5,625+00 

3.333*00 

0,000 

0,000 

1.000*00 

0,000 

6,175*00 

6,667*00 

0,000 

0,000 

0,000 


1ZN 

1,000*00 
1i000*00 
1 , 000*00 

1 , 000*00 

1 , 000*00 

1 , 000*00 


loauovi 

p 

_ 

.31250000E+01, 

-.59604645E-07, 

, QOQOOOOOE+OG1 

9 

s 

-,62500000E+00, 

-,333333336*01, 

, 000000006*00, 

D 

a 

-,625Q0D00E+QDi 

,333333326*01, 

, QOOOOOOOE+OOi 

tana 

z 

-,4366092/E-Ol, 



GAMA 

z 

.795775386-01, 



PSIF 

= 

• 34 B9l974E*01, 


,348166696*01, 

vcos 

send 

SD9UGV2 


,15201366E+00, 

-,34B9 l 974E*gi, 

.3O402735E+0Q, 

-.17101539E+00, 


PSIF 

vcos 

m 

m 

, 000000006*00, 

,696337158*01, 

SEND 






SDBUGV3 

PSIF a ,2362l82SE*Ql, 

VCqs 3 ,304027356+00. ,000000006*00, ,932555636*01, 

SEND 

VQHTEX LATTICE MATRIX DETAIL-SURFACE NO,■ 1/5 1| 1> 


J K UP NG VFS(MAT) VINIMAT) P<X> P<Y> P{l ) B<X) BCYJ 

2111 8716-01 ,1113*00 ,3125*01 -,5960-0? .0000 -,6250*00 -,3333*01 


SDBUGVl 

P 

- 

.3l2500O0E*01, 

- ,596a4645E-07, 

, OOQDOQOOE + Oa, 

B 

3 

-.625000006+00» 

,33333332e*01* 

.OQQoaoaoE+QO, 

0 

S 

-.62*000006+00* 

,99999996E+01# 

,00Q0000QE*00< 

Tana 

a 

4366o927E-Qi, 



GAMA 

= 

.7957753SE-Q1, 



PSIF 

□ 

,34891975E+01, 



VCOS 

SEND 

SDBU&V2 


l520l36flE + 00 , 

-,171015406+00, 

-.348168706*01, 

PSIF 

z 

-.90C40575E + 00 » 



VCOS 

a 

112?43«OE+00, 

- ,156289196 + Oa, 

-,25B225B6E*fll, 

SEND 

ID3UGV3 

PSIF 

□ 

,40J49399E+OO, 



VCQS 

B 

- , H274380E + 0at 

-,15628919E*00, 

-.209876476*01, 

send 






S08UGV1 

R 

s 

, J1250G00E+01* 

-.59604645^-07, 

.OOOOOOOOE+OO, 

a 

3 

-.625000006+00, 

-.10000000E*02, 

. 000000006 * 00 , 

o 

3 

-.625OO000E + 00 * 

-,333333336 + 01 * 

.000000006*00, 

TAN* 

5 

-.4366C927E-01, 



GAMA 

s 

♦ 79577538E-01, 



PSTF 

6 

.^00405746+00, 



vcos 

3 

,392698766-01, 

-.147262046-01, 

,89942843E*00» 

send 

I0BUCV2 





PSIF 

3 

-.348919766 + 01, 



VCOS 

SEND 

soauGVj 


-.112743016+00, 

, 1562892QE + 0Q, 

-,258225876+Di, 

PS ]F 

S 

,483493996+DO, 



vcos 

SEND 

5 

-.112743816+00, 

,156209206*00, 

20987647g*0l, 


BIZ) DlXI D(Y) DIZ) 

,0000 -,6250*00 ,3333*01 ,0000 


6-45 






6.6 EXAMPLE PROBLEM # 5, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


PSIF 


,4649099QE-Q2, 


vcos 

SENS 


-.?01471S6e-Q2» 

-.49002358E-02* 

-,2663283DE*fl0» 






IDQUCVI 

P 


,562C25Z4E*Q1# 

,66 66 6 6 6 4£ + Q1, 

i 54265Q35E-011 






s 

S 

. 561 5*JD49£^oij 

-,33333333E+Q1j 

,10B53oo7£*O0i 






0 

a 

,56l55049E*oi, 

.33333332E+D1* 

. iq85J007£*00i 






TANA 

8 

-,43660^2/6*01* 








GAMA 

= 

,79S7753BE-01, 








PSIF 

a 

.667l3l68E*00i 








VC 05 

s 

.29C99439e-01* 

,36Q2B7H9e-02* 

i 6 66 4 B699g+0Q1 






JEVO 

lDaUGV2 

PSIF 

8 

?3G4Q09Jem, 









vcos 

SEmO 

$0BUCV3 


503D271JE-O1* 

-,2886l600E-0li 

- * 13353522e+01i 






PSIF 

E 

,14523004E-Q1, 








vcos 

Z 

-,43835899E-01* 

-,2686l600E-0li 

-,13340865E+Glf 






lENH 









sDbucvi 

p 


♦ 56202524£*Qi, 

.66666664E+01, 

.54265D35E-Q1, 



Oft 

► 7>% 


8 

S 

.56155049E+01* 

,33333332£+01r 

♦lO®83oo 7 &+OQf 






0 

TANA 

8 

,562500006+01* 

43A6o927E-0i, 

,99999996E+01, 

.ooooDooaE+oai 



Op 

PAP ri 

GAMA 

n 

.79577536E-01, 






^XJQD r 

R 

PSIF 

- 

,20C42719E+Q1, 






c 

’^LlXy 

VCOS 

*END 

3 

t 874l3603 £ -0l, 

,3246073ie-Ol, 

, 20a2lOl4 E +Oli 




7 

S0BUQV2 

PSIF 

8 

-,?0042719E+01* 








vcos 

8 

.l740?72lE+pa. 

,64937462E-D1* 

i4a042026E*01< 






send 

SDBUGV3 

PSIF 

z 

.oooooaaaE+oo, 








vcos 

SEND 

* 

,l7402721e+go. 

.64937462E-01. 

,4QQ4202B£*ai, 








LIFT DISTRIBUTION OET*IL-SJRFaCE 

2 

a 

■ 

»-• 

1) 




J K 


n<x 3 P{Y) 

P(Z> AREA 

CRN G(X> 


G(Z> 

Vt(X) 

VI(T) 

Vt(Z) GAMA 

1 1 


- , 625 -6.667 

,000 so.aaoa 

.3923 ,08384 

.00000 

,99673 

.0Q034 

.00568 , 

,00332 • ,1472*01 

1 2 


5,620 -6.667 

,054 16,6667 

,0302 -,00380 

-.01627 

,99893 

,00267 

+.00*72 , 

,09088 -,37«Q-Q1 


JOBFLAG 1234 
vALnE 3 o r 'J 

5 6 7 

a 2 o 

8 9 10 11 12 13 14 

o o o t o n o 

15 16 17 

ooo 

18 19 20 

i o a 

Example 

ALF A 

NO,3 - DEBJG-Ouhp DEMONSTRATION/ 

NFLG(2Q I ■ 8 PAGE 








► imv.hmiv- 1 VU UU 

*1- | * fUUt • 


J 

* PCX) 

P(Y ) 

P t 2 J AREA 

CRN 

G (X) 

cm 

ClZ> 

V M X > 

vKr) 

VlIZ) GAMA 

2 

2 

1 -.625 

? 5,616 

*.000 

".000 

,000 50.0000 
.109 16,6667 

.3178 

.9942 

-.01521 
* .01031 

,QOQQQ 
,00000 

1,00160 

,99872 

.00541 , 

,00253 , 

ooooo . 

OOOQQ , 

10236 -.1192+01 
09747 -,1243*01 

3 

3 

1 -.625 

2 5,620 

6,667 

6,667 

.ago 50,0000 

,054 16,6667 

,3925 
, Q3Q? 

,06384 

-.00380 

.00000 

,01627 

,99673 

,99893 

,00054 
,00267 f 

□g568 ,00332 -.1472+01 
00 4 72 ,09088 *,378o-Ol 




SECTION AIRLOAD 

coefficients-surface 

; no,* i/( 

1» 1) 




J 

Y* Y 

Z 

W SCN 

sex 

SCL 

SCD SMP c/4 SCLC/B 1XL 

1YL 

12L 

2 

3 

*,cooo )q 

.3333 6,667 

,000 
* ao o 

,000 .4870 

6.667 .3010 

.0062 

-.0247 

,4846 

.3020 

,0430 

.0241 

,1245 

*0l4i 

.2423 ,0103 

.1510 .0038 

,OD0D 

-.0163 

-,9999 
- f 9999 




INTEGRATED AIRLOAD COEPFIC1 ENTS-SURFACE NQS,» 

1*1 




E 

ECN ECX 

ECY 

ECU ECO 

ECMP 

ECMR 

ecmy 

exa eza es 

EMGC 

ea 

1 

.3630 -.0144 

■ 0164. , ;i64 + 

,aooo 

.0000+ 

.3629 ,0173 

.0149* , 0170• 

-.0321 

.0041* 

-,0000 

-.0000* 

,0000 

,0000* 

,00 

fCO* 

,00 200,00 10,00 

.00* 200.00+ 10.00+ 

20,00 

20.00* 




*** airload 

SUMS *«• 






AC 

CG 

AC 

CG 

.3630 -,;144 

. ;72 (> -,: r .29 

■ ri^* , 01^4* 

-:c33* ,C033* 

.OOOD 

.3000 

,0000+ 

•0000+ 

.3629 .0173 

, Q726 ,0035 

•C149* .0170* 

. 003g• , 00 36 * 

-.0321 

-.0006 

.0041* 

•0001* 

-,0000 

-.0000 

-,0000* 

- .0000* 

, Q □ 0 0 
,0000 
,0000* 
*0000+ 

1 OQ 
.00 

.00* 

iOO* 

,QD 200,00 10,00 

,00 1000,00 100,00 
,00+ 200,00* 10,00* 

*00+ 1000,00* 100.00* 

20,00 

100,00 

20,00* 

I00t00 f 


• DETERMINANT- ,1D73*Q2 • 9CAIE+ ,7042-01 * 


JObFLaG 123 
VALUE 3 0 r 


’ 5 \ 8 ? 10 11 12 13 14 15 16 1? 18 19 20 EXAMPLE NO,5 - DEBUG-DUMP DEMONSTRaTJOn/ NFLGt 20> + 8 P A GE 

^^ ■ ^^^■OOOOOOIDB ALFA 3 5,00 MAcHNQ 3 ,0000 ALTITUDE******* 22 


«*•* JOB TIME* 


3 / ELAPSED TJME* 7 / VO.PLQT FJLESs 0 / NSURF EXEC, VERSION 6-18-72 *••• 
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6,6 EXAMPLE PROBLEM # 5, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


J' 


JOBFLAO 

value 

1 

3 

2 3 4 5 

o c o 0 

6 7 6 

2 0 0 

9 10 11 

0 0 1 

12 13 14 15 
0 0 0 0 

16 17 16 
Oil 

19 20 EXAMPLE NO, 5 
0 16 ALFA* i 

- DEBU9-0UMP PBMONflt«*TlON/ NfLG<*0> p 

1 00 PU6HN0- lOOOO aLUTUOM****** 




XA ( 1 ) /C 

XA<2)/C 

XAC3J/C 

XAUJ/C 

XAC5J/C 

*A<6>/C 

XA(7 J/C 

XA ( 8 ) /C 

XA(9)/C 

XA 1 10 P/& 




,0000 

1,0000 

,0000 

,0000 

,0000 

.0000 

,0000 

, ooofl 

,0000 

.0000 

X 


V 

ZAtn/c 

ZA(2)/C 

ZA (3 )/C 

ZA ( 4 >/C 

ZA<9^C 

ZA t6)/C 

ZA<?>/C 

ZAI8>/C 

ZA<9>/C 

ZAUO)/C 

.0300 

.OGOO 

,:coo 

10,0030 

,0000 

,0000 

,0000 

.0000 

,0000 

.0000 

,0000 

»oooo 

,0000 
, 0000 

.0000 

.0000 

,0000 

,0000 

,0000 

,0000 

,0000 

,0000 

,0000 

,0000 


29 


J 

1 

2 

3 

1 

2 

3 


J 


2 

3 

1 

2 
3 


K 

Y 

Z 

WL 

1 

-6.6f7*00 

a ,000 

6,667+QO 

1 

-5.°60'0B 

0,000 

0,000 

1 

6.667+00 

0,000 

6,667*00 

7 

-6 . 667 + QD 

0,000 

6,667+00 

2 

-5.96D-Q8 

c.ooo 

0,000 

? 

6.6*7+00 

0.000 

6,667*00 


K 

XV 

YV 

2V 

1 

-6.P50-01 -1.000+01 

0,000 

1 

-6.250-01 -3,333*00 

0,000 

I 

-6,250-01 

3,333*00 

0,000 

2 

5.625+00 -1.000*01 

0,000 

2 

5.629*00 -3,333+00 

0,000 

7 

5.6-*5+00 

3,333+00 

0,000 


EV 

OWL 

DC 

6,667*00 

0,000 

6,667*00 

6,667*00 
6,667+00 
6,667+00 

7,900+00 

7,900*00 

7,900*00 

6,667+00 

0,000 

6,667*00 

6,667+00 

6,667+00 

6,667*00 

2,900+00 

2,900+00 

2,900+00 

1XV 

1YV 

1ZV 

0,000 

0,000 

0,000 

1,000*00 

1,000+00 

1.OO0+0Q 

0,000 

0.000 

0,000 

0 i 000 

a .coo 
o.ood 

1*000+00 

1.000*00 

1.000*00 

o.oog 

0.000 

0,000 


OS 

9 , 000*01 

9,000*01 

5,000*01 

1,667*Q1 

1,667*01 

1 , 667*01 


*N YN 

9,1Z9*0D -6.667*00 0,000 
3,125*00 -9.96Q-Q8 0,000 
3 , 125*00 $. 667*00 0,000 

6,675*00 -6,667+QO 0,000 
6,179*00 •9,96o-0 | 0,000 
6,179*00 667*00 0,000 


iXN 

1YN 

UN 

0,000 

0,000 

1,000+00 

0,000 

0.000 

1,000+00 

0,000 

O'OOO 

1,000+00 

0,000 

0,000 

1,000+00 

0,000 

OiOOO 

1,000+00 

0,000 

0,000 

1,000+00 


SDBUGV1 



-,596C46+5£-07* 

p 

— 

.3125QOOUE+01, 

B 

3 

6Z9DOQOOE+OOi 

-,33333333E+C1, 

p 

3 

-,623000Q0E+0Dj 

,33333332E+01, 

TANA 

S 

- . 4366 c ,927E-nn 


GAMA 

S 

,79377538E-01. 


PS IF 

3 

,34m974E+Gli 

-,17101539E*OOi 

VCDS 

send 

SDBUGV2 


,l520l3A8e+00* 

PSIF 

- 

-.34691974E*01, 


vcas 

SEND 

3 

,304□27 35E+00, 

■aoaoooaoE+oo, 


.OOQOOOOQE+OO, 

,000000006*00, 

,000000006*00, 


,34B16S69£*01i 


,69A33738E*01, 


S0BUGV3 
PS IF 

_ 

,23621625E+01* 

VCDS 

a 

,3D4C?735e+0Q * 

SEND 

SREFLEX 

PX 


.COODOODOE+OO, 

PY 

3 

-,A25SOOaaE+QO. 

XI 

3 

.1CO38190E+O5, 

Y1 

3 

. 000000006+00, 

PM J 

r 

-.8726643DE-01* 

ALF Aft 

s 

,R7266430E-O1« 

RX 

= 

10CGD052E+05, 

RY 

— 

,874 29 012E + 03, 

ZL 

m 

,10DO0OOOE+D5, 

COS* 

3 

,99619471E+00* 

SEND 



SREFLEX 

PX 

t 

♦19923998E+05, 

PY 

r 

.17429248E+04, 

XI 

- 

.1003A198E+Q5, 

n 

= 

,oaoaooo0E*oo, 

PHI 

3 

-,87266430E-Q1, 

alfar 

z 

,A7266430E-01r 

Rx 

3 

, ia 0 C 00 5 26 + f)5 » 

RY 

2 

,87429012E+0' 

2L 

8 

.lOOOnn-' 

COSR 

S 


send 

— 

- ^ 


EC* 


EC7 


1 

, 3 6 3 n 

-.0144 

,0005 

1 

. ;':16* + 

,C1P4* 

.0000* 

AC 

.3630 

- , 31 4 4 

.0000 

CG 

.C726 

-.0029 

.0000 

AC 

.C16*» 

.0164* 

,0000* 

CG 

* :0 33 * 

,C033« 

.0000* 


DOOOOQOOe* 00« ,93255963g+01i 



integrated airload coe^f rc i&nts-SURFACE N0S.* 1-1 


ECL 

ECO 

ECMP 

ECMR 

ECMY 

EXA 

EZA 

E9 

EMGC 

eb 

,3629 
,C1 + 5 * 

.0173 

,017b* 

-.0321 

,0041* 

-,0000 
-,aoaa* 

~,0000 

,0000* 

,oa 

,0Q* 

,00 

.00* 

200,00 
20a ,aO* 

10,00 

10,00* 

20,00 

20,00* 


AIRLOAO 

SUMS •»* 







.3629 

.0726 

,0149* 

,oo3o* 

,0173 

.0035 

.0178+ 

.GO 36 * 

-.0321 

-.0006 

.0041* 

.0001* 

-.0000 

-,ooao 

-,0000* 

-,0000* 

-,DODO 
-, 0000 
,0000* 
,cooo* 

,00 

,00 

,00* 

,00* 

.00 

,00 

,00* 

♦ 00* 

200,00 

1000,00 

200,00* 

1000,00* 

10,00 

100,00 

10,00* 

100,00* 

20 >00 
100,00 
2D,DO* 
100,00* 


* OEtErMIWAMt 11 .1073*02 • SCALE* ,7042-01 * 


J 


JDBFLAG 1 2 3 4 5 6 7 6 9 10 11 U 13 14 15 16 17 18 1? 20 

VALUE 3 0 C » o 2 o o Q o 1 a Q 0 Q a 1 1 D 14 


EXAMPLE NO,5 - DE9UC-DJMP QEMONSTRaT tON^ NFLG(20)* 16 PAGE 
ALFA* 5,00 MAKHNO* ,0000 ALTlTUpE. 27 


JOB TIME= 6 / ELAPSED T[ME= 13 / Np.PLOT FtLES* 0 / NSURF EXEC, VERSION 6-18-72 **** 
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6.6 EXAMPLE PROBLEM * 5, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


XQT NSURFT 


24 AUG 72 


10*20' 3.974 


XOT ISURFT 


1.032 0004-00 
7.965000400 
3.216000*00 
3.031000*00 
1.032000*01 

7.480000*00 
-4. 390 000*00 
6. 900000*00 
- 1.0 30 000*00 
5.690000*00 

3,030000*00 
-3.380000*00 
-1.167000*01 
4.180000*00 
-3.600000*00 

-2.930 000*00 
5*670000*00 
8.323000*00 
9.073000*00 
3.780000-02 

-9.780000-02 

7.103000*00 

9.992000*00 

9.783000-01 
1.514000*01 

TEST MATRIX - 

[«] 

3.220950-01 

1.091531-01 
-8*700974-02 
-2.496 730-02 
“2.908256-01 

2.931715-01 

1.615780-03 

— 1.2 504 76-01 

- 1.494637-02 
-2,303324-01 

9,424216-03 
3.5417 07-02 
-6.201933-02 
3.317090-02 
- 3.456437-02 

-8.727426-02 
1,522940-03 
1.070551-01 
0.115159-02 
9.4170L3-02 

-1.363442-01 

-2.353400-02 

9.249558-02 

-2.02B226-02 

1.896721-01 

INVERSE MATRIX » 

M _I 

1,000000*00 
-9.671617-19 
0.000000 
4.336 8C9- 19 
3.469 44 7- 19 

-3*465447-10 
1.000 000*00 
9.673617-19 
9.757820-19 
6.938894-10 

4. 336809-19 

1.734T23-10 

1.000000*00 

0. 000000 
0.673017-19 

-1.782 157-18 
“1.029992-18 
-2.46 3172-18 
1.000000*00 
“1.565317-10 

3.469447-18 

-8.673617-19 

-1.734723-10 

1.301043-18 

1.000 000*00 

J 

UNIT MATRIX = 

[>] x O] ~ 2 

✓ 

5.970328*04 

T 

— DETERMINANT 




24 

AUG 72 

1 




- - / --- 

* w 


1.032000*00 

7.845000*00 

3.216000*00 

3.031000*00 

1.032000*01 

7.6HOOOCKOO 
-6.390000*00 
0.900000*00 
- 1.030000*00 
5*690000*00 

3.030000*00 
-3.380000*00 
-1.167000*01 
4.180000*00 
-3. 600000*00 

-2.930000*00 

5.670000*00 

8.323000*00 

9.073000*00 

3*700000-02 

-9.783000-02 

7.103000*00 

9.992000*00 

9.703000-01 

1.5 1 4 0 00 *01 

■TEST MATRIX «=■ 

[AT] 

3.220950-01 
1.0A1531-01 
- 9 * 700 874-02 
-2*44673 0-02 
-2*008256-01 

2.931715-01 
1.619780-03 
-L.25e476-01 
-1.494037- 02 
-2.303324-01 

9.424216-03 
3.5*1707-02 
-6.201933-02 

3,317090-02 
- 3.456437-02 

-8. 727428-02 
1.522940*03 
1.070551-01 
8.115159-02 
8.417013-02 

“1.363442-01 
-2.353400-02 
9.249558-02 
“2.028226-02 
1.096721-01 

INVERSE MATRIX - 

[A/] ~ 2 

1 . 000000*00 
-0.673617-19 
0.000000 
4.33680 9-19 
3.469447-18 

-3.469447-1 9 
1,000000*00 
8.673617-19 
9.757020-19 
6. 936094-18 

4.336809-19 
1* 734723-10 
1* 000000*00 
O.oooooo 
8.673617-19 

-1.782157-18 
“1.029992-18 
-2.463172-18 
1.000000*00 
“1*565317-18 

3.469447-18 

“8.673617-19 

-1.734723-18 

1.301043-18 

1.003000*00 

UNIT MATRIX - 

DO x [W] - 1 


10*20* 6.109 


/ DETERMINANT 

5 . 8703294-04 
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6.7 PLOT-OUTPUT 


1) EXAMPLE PROBLEM 4 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY 


tutcnie nojinto* er iiftim tuwncts 


i.i 


rwntiue rituEtiie* w urnw wages 


i.i 
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MM 2 MTFL *rrs, Sinl$F««5 


• 1.1 

MIllmTH A1IJ, SCATS'IVI 


PMC >, 


2) EXAMPLE PROBLEM # 2, SINGLE-SURFACE ANALYSIS CAPABILITY 

NOTE: THE FIRST TWO PLOTS ARE SHOWN BELOW, THE REMAINDER OF THE PLOT-OUTPUT 
FOR THIS PROBLEM IS PRESENTED IN FIGURE Z.15[C] (PAGES 2-4S THRU. 2-52) 

LIFT I** SUFFMl M.ANFCCM GCC««T*V 



tSCMCTFlC FFpjfCIIm [* HIM PLRttFCIM 



ORIGINAL Pag - 

OF POOR QUALITY 
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6.7 PLOT*OUTPUT (CONTINUED) 


3) EXAMPLE PROBLEM # 3, NORTH AMERICAN XB-70 ATRPLAHE 


iKKcnic mcjtiTicK of lift rue juw*a$ 


IUM1IK H»JttTr» QF LIFT[Nt UVKII 




IBBBBBBBBB 

!■■■■■■■■■ 


■EsasBEacsraanscjiagl 

^^■■csiainBisaBtacBECSBBM 

iSSSSSSESSESSSSSSSSSSI 


BBBBBBBflBBBBBBBBBBBBBBBBBflBBBBBBB^^^^H 
BBBBBBBBBBBBBBBBBBBBB BBBBBiil BBBBBBBBBBBKm 





BBBBBBBBBBBBRS^^aSBBflBBBBBBSHMBBBBBBaBBl 
bbbbbbb bbbbr^cmibbbbbbbbbbbbbbbbbbbbbbbbbI 

■■H17>S^»eaiBBBBBBBBBBBaBBBBBBBflBflBBBBfl 
^^^■^^jMBBBBBBBBaBBaaBBBBBiBBaBBBBBBl 


mwwwz&*mmwmmmumummmummm 

BBr^BBBBBBBBBBBBBBBBBBB 


IBBBBBBBBBBBBBBBBBr///:»'UB 

IBBBBBBBBBBBBBBBBBVJlSBae 


■■■■■■EaasccassiscQH&aH 

IflBBBBEHEHiEEBBCaQmznBi 




HIBflBBBBBBBBBBBBBBB! 

BBBBBBBflflflBBBBBBBBfli 


!■■■■■■■■■■■■■■■«] 

|||MHnBBBgBflBflBBflBBBBflB| 

■■glgUIRIIIINIIII 

BBBflflHflflflBBBBBflBflBBBBBBl 

■bbbbbbbbbbbbbhcbeibbbbI 


^^^^^^^Hy^iv^^aaaaaBaBBBBaa 

immmmmmummmmmmmwwjAkKMV'dmmmmmmmmmmmmmm 

BBflBflBBflBBflBBBB'£*&£j«BeZ3BflBBBBBBflflflBH 

mummmmmmm mmmmmmjZMZiWrnfZMKmimmmmnmmmmmm 

I w^mE^^mmmmmmwxiVU'WAKmvzswmmmmmmmmmm 

\mmmummmmnnmmmwz02K0'm+Zirzc*r_*z*xumwwwM\ 

BflflBBBBBBflflBBJ!Ur,BSiBB&BBSp^^B^B:iflBBBBj 

\mmwmmmmmmm¥w+r.r,mZ**^*+nmmn\ 

BBBBBBBBBPC'JC£Sf£SaKBBBBBBBBBHL 
BflBflflBflBQr^aBflBBBBBBBBBBBBBBBBBBBaBai 
■flflBr^BP^BBBBflBflBBBBBBBBBBBBBBBBBflflBfll 

r^ViBIBBBflaflBIIIIBIHIUlHIBBIfll 


BBBBBBBBBBBBBBBBBBBBBB1 
mwms 4#^BBBBBBflBBBBfliEil 
llllllllllllllBIBIIBIBIIBflIBBBBBBIBB 
||S|P|»WBBBBBBBBBBBBBBBBBBBBflBBflflBBj 

B |5SS5SSSSiS5555SS5B5SS5S5SSSE5SSSS»7 ! 

iBBBB BBBBBBBBBBBBBBBBBB BBBgiegBl iig 
^^HBBBBBBBBBBBBBBBBBfl^^HHHi^H 


V AILt 11 























7.0 PROGRAM DESCRIPTION 


7.1 Operating Procedures 

The "TRW Vortex-Analysis Program #HA010B (N. SURFACE)" is written in 
Fortran V source language for execution in the UNIVAC 1108 computer, with 
a 65K core or a computer of similar configuration. Five separate execution 
modes for the program are permitted: 

1) XQT ISURF or XQT NSURF 

Two main execution modes for solving lifting-surface problems by 
the vortex“lattice method are permitted. NAMELIST statements are used ex¬ 
clusively for input of numeric quantities along with "A" formatted read 
statements for titles and comments. Card input and tabular printed output 
are on units 5 and 6 respectively. In addition to the program PCF tape, 
which is assigned to an unused unit, the following units* are also used: 

Unit 1 (KT1) Input data is stored in unit 1 for all the cases that 

are to be executed. 

Unit 8 (KT2) Output plot-data tape or drum physical unit assign¬ 
ment that is required as an input for the auxiliary 
execution mode. 

Unit 3 (KT3) Work tape or drum physical unit assignment, 

2) XQT ISURFT or NSURFI 

Two test execution-modes for determining the accuracy of the matrix 
inversion procedure are permitted. The test execution-modes require no 
input data. Tabular printed output is on unit 6. 

3) XQT TRWPLT 

One auxiliary execution mode that is used for obtaining Calcomp or 
4060-microfilm output is permitted. This mode of execution requires two 
modes of input, a tape or drum file (Unit KT2) containing the plot data 
accompanied by punched-card input describing the manner in which the data 
is to be plotted. A generalized input processor is used which compares 
the input symbols to an internal symbol table and stores the data in the 
appropriate address. The card format, which is input in unit 5, consists 
of BCD symbol equivalences to the input data in a free-form mode. Printed 
output is in unit 6 and plot output on magnetic tape (PLT tape assignment). 

*Units, 1, 3, and 3 (KT1, KT2, and KT3) may be reassigned in execution 
(see input instructions). 
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FIGURE 7.01 - TRW VORTEX-LATTICE ANALYSIS PROGRAM OVERLAY STRUCTURE 
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7.1 Operating Procedures (Continued) 


The program overlay diagram for the main and test execution inodes is 
presented in Figure 7.01 (Page 7-2). The program control deck setup 
is illustrated in Figure 7.02 (Page 7-3). 

7.2 Execution Time 

For the main execution modes of the program, i.e., XQT ISURF or 
XQT NSURF, the execution time required to complete a single case is pri¬ 
marily dependent on the total number of vortices or elemental surfaces 
that are considered simultaneously in arriving at a solution. The other 
factors that affect the execution time are due to the execution of the 
special options of the program, such as: ground effects, lifting-line 
extrapolated solutions, tape output, surface discontinuities (flaps or 
tabs), and the execution of XQT TRWPLT, the auxiliary mode of execution, 
for obtaining Calcomp or 4060-microfilm plots. A simple but approximate 
estimate of the total execution time for completing a given job may be 
determined using: 


t 


(seconds) 


AT X + N c x ( 


N e * AT 2(N ) ) + N p x AT 


N = N x 
M S 



Surfaces 


N 

e,n 


n ~ 1 


(7.2.01) 


( 7 . 2 . 02 ) 


where: AT^ - 20 


Time required (seconds) to load the program. 


AT^ = Time required (seconds) to obtain a single vortex- 

lattice solution (see Figure 7.03). 

AT^ = 10 Time required (seconds per plot) for the XQT TRWPLT 

execution 


N 


C 


Number of cases to complete job. 


N 

g 



1 

2 


No ground effects. 
With ground effects. 


N 

P 



N 


S 



1 


0.5 


Number of plots. 

Number of elements in the vortex-lattice matrix. 
Unsymmetric loading. 

Symmetric loading 


N 

e ,n 


Number of elemental panels for the nth, surface 
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7.3 Program Organization 


The present version of the "TRW Vortex-Lattice Analysis Program 
#HA010B (N. SURFACE) 11 that is described in this report constitutes an 
expanded and modified version that was derived from two older prototype 
programs., i.e., "TRW’s Single Surface Vortex-Lattice Analysis Program 
//HA009A/B (ISURF) , M and "TRW t s Multiple Surface Vortex-Lattice Analysis 
Program //HA010A (NSURF)." The prototype programs were developed speci¬ 
fically for analyzing single-surface and multiple-surface configurations 
respectively. The present version (HA010B) incorporates the same analyti¬ 
cal procedures and basically the same source-program code found in the 
prototype programs and differs only in the input and output format that 
is used. In addition, the "TRW Generalized Plot Program TRWPLT 
(Reference 35)" is included in the PCF tape for providing Calccmp and 
4060-microfilm plot-output. Five separate modes of execution are per¬ 
mitted (see Section 7.1) that include: (1) two main execution modes for 
solving lifting-surface problems by the vortex-lattice method, (2) two 
test execution modes for determining the accuracy of the matrix inversion 
procedures, and (1) one auxiliary execution mode that is used for obtain¬ 
ing Calcomp or 4060-microfilm output. The source program (absolute and 
symbolics) in the program PCF tape is arranged in the following form: 


1st. File 

2nd. File 

3rd File 

(No Plots) 

(With Plots) 

(Backup) 

NSURF 

NSURF 

NSURF 

ISURF 

ISURF 

ISURF 

NSURFT 

NSURFT 

NSURFT 

ISURFT 

ISURFT 

ISURFT 

— 

TRWPLT 

TRWPLT 


The source program for each of the main execution modes (XQT NSURF or 
SQT ISURF) is organized in the following manner: one main (driver) routine, 
one block data (initial values) subroutine, one-vortex-lattice-geometry 
calculation subroutine, one vortex-lattice-solution calculation subroutine, 
and a number of special purpose calculation subroutines. The functions 
performed by each category are as follows: 
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7.3 Program Organization (Continued) 

Main (Driver) Routine 

1) Read input data (Unit 5) for all cases to be executed and 
store the input data in a drum file (Unit 1) for later use 
and initiate calculations by calling the block data sub¬ 
routine* 

2) Read data for the first case (or subsequent cases) from the 
data drum file (Unit 1). 

3) Call the vortex-lattice-geometry calculation subroutine for 
determining all the geometric parameters that will be 
needed. 

4) Setup angle of attack loop and multiple-surface loop (if 
applicable) and proceed to obtain the vortex-lattice- 
solutions by calling the vortex-lattice-solution calcula¬ 
tion subroutine. 

5) . Finalize the first case (or subsequent case) by printing 

the execution elapsed time and the number of plot files 
created. Go back to #2 and start the execution of the next 
case. 

Block Data (Initial Values) Subroutine 

1) Stores data for the initial values (built-in Tables, see 
Section 4). 

Vortex-Lattice-Geometry Calculation Subroutine 

1) Calculate the geometry of the. vortex-lattice for all the 
lifting surfaces that are defined in the input. 

2) Calculate the geometric parameters that define each 
lifting surface, e.g., the lifting surface reference 
dimensions. 

3) Output the calculated geometry for each lifting surface. 

4) Output bn tape (Unit 8) the geometry for each lifting- 
surface using the special format required for the plot¬ 
ting option (XQT TRWPLT). 

6 
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7.3 Program Organization (Continued) 


Vortex-Lattice-Solution Calculation Subroutine 

1) Calculate the influence coefficient matrix* 

2) Invert the influence coefficient matrix and determine 
the vorticity or circulation for all the vortex-filaments 
of the lifting surfaces that are considered simultaneously. 

3) Calculate the airload distribution on each lifting surface 
and perform all the required summations. 

4) Calculate the section-airload coefficients and output same 
as printed output and on tape (Unit 8) if applicable. 

5) Finalize the calculations by printing the spatially- 
integrated airloads for each lifting surface and the 
net airload summations* 

Special Purpose Calculation Subroutines 

1) Perform calculations directed towards a limited objective. 

The program logic flow diagrams for the main (driver) routine and the 
principal subroutines of the program are presented in Figures 7*04 through 
7.09 following Section 7.5. A description of the functions performed by 
each individual routine are presented in Sections 7*4 and 7.5. 

7.4 Program Routines for XQT NSU RF 

1) MAIN ROUTINE (A01) (237 FORTRAN Statements) 

This is the main routine or driver routine for the XQT NSURF execution 
mode of the program that performs solutions for multiple-lifting-surfaces 
problems by the vortex-lattice method. 

2) SUBROUTINE BLKDAT (A02) (55 FORTRAN Statements) 

This is a block data routine where the initial values (built-in tables) 
of selected input variables are stored (see Section 4*0). 

3) SUBROUTINE L0FT (A03) (864 FORTRAN Statements) 

Subroutine L0FT constitutes the vortex-lattice geometry calculation 
routine. In this routine all the geometry calculations are carried out. 

It includes the setup of the vortex-lattice field point coordinates, 
unit vectors, areas, etc., and the calculation of the reference dimensions 
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7,4 Program Routines for XQT NSUKF (Continued) 


for each lifting surface that is input. Also, as a special option 
(NFLG(19) ^ 0), the geometry of the vortex-lattice is output on tape or 
any specified internal unit which is used as the input data-tape in the 
execution of XQT TRWPLT for generating Calcomp/4060-microfilm plot-output. 

4) SUBR0UTINE LIFTX (A04) (1,178 FORTRAN Statements) 

This is the vortex-lattice-solution calculation subroutine for multiple- 
surface analysis (XQT NSURF). In this subroutine all the calculations 
directed towards obtaining a solution for a given vortex-lattice origi¬ 
nate, that include: calculate influence coefficients, calculate the cir¬ 
culation strength of the vortex-filaments, etc. In addition, the section 
airload coefficients, lift distribution, and spatially-integrated sums 
of airload force and moments are performed, 

5) SUBR0UTINE AB0RTJ (A05) ( 92 FORTRAN Statements) 

All diagnostic and job termination output originates in this subroutine. 
Tests are performed in this routine for selected key variables during 
the execution and if unallowable errors are incurred the job execution is 

aborted. 

6) SUBR0UTINE C0RDF (A06) (60 FORTRAN Statements) 

This routine calculates the planform dimensions at a wing station for a 
lifting surface, e.g. , Y, X^g, X^ E » C» C^, etc., as a function 

of a function of a dummy argument W. 

7) SUBR0UTINE CAMBER (A07) (53 FORTRAN Statements) 

Subroutine CAMBER determines the normal coordinate of the median camber 

line of an airfoil, i.e., Z /C as a function of X /C. 

a 

8) SUBR0UTINE FLAPS (AO8) (169 FORTRAN Statements) 

This routine together with Subroutine FLAPI is used to update the coordinate 
and unit normal vector (no deflection) of a field point on the surface of 
a lifting-surface due to flap and/or trim-tab deflection. 

9) SUBR0UTINE FLAPI (A09) (28 FORTRAN Statements) 

See Subroutine FLAPS (#8). 
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7.4 Program Routines for XQT NSURF (Continued) 


10) SUBROUTINE REFLEC (A10) (53 FORTRAN Statements) 

Subroutine REFLEC calculates the coordinates of a mirror image of a field 
point using the ground plane as the mirror plane. It is used in the 
ground effect analysis for determining the coordinates of the image vortex- 
lattice . 

11) SUBR0UTINE IS0MET (All) (27 FORTRAN Statements) 

It transforms the coordinates of a given field point (P(X,Y,Z) to a new 
coordinate system P(X t ,Y , ,Z T ) that is used to obtain an isometric pro¬ 
jection of the vortex-lattice. 

12) SUBROUTINE R0TATE (A12) (45 FORTRAN Statements) 

It transforms the coordinates of a given field point P(X,Y,Z) to a new 
coordinate system P(X f ,Y',Z ! ) involving a prescribed rotation and 
translation. 

13) SUBR0UTINE V0RTEX (A13) (189 FORTRAN Statements) 

Subroutine V0RTEX calculates the induced velocity or influence coefficient ^ 
for a field point P(X,Y,Z) due to a skew-shaped horshoe vortex filament 
of circulation strength F defined by the field points B(X,Y,Z) and D(X,Y,Z). 

14) SUBROUTINE DMATIN (A14) (149 FORTRAN Statements) 

Subroutine DMATIN is a double precision, 100 x 100, matrix inversion 
routine. 

15) SUBR0UTINE D0TP (A15) (17 FORTRAN Statements) 

It calculates the dot-product of two vectors. 

16) SUBR0UTINE CR0SP (A16) (20 FORTRAN Statements) 

It calculates the vector cross-product of two vectors. 

17) SUBR0UTINE PAGE (A17) (43 FORTRAN Statements) 

This subroutine causes a new page to be started and the job title and 

job execution flags to be printed at the top of the page in the program 
execution. 
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7.5 Program Routines for XQT ISURF 


18) MAIN R0UTINE (B01) (211 FORTRAN Statements) 

Same as #1 (A01) except the solution for a single-lifting-surface is 
considered exclusively. 

19) SUBROUTINE BLKDAT (B02) (55 FORTRAN Statements) 

Same as #2 (A02) except the solution for a single-lifting-surface is 
considered.exclusively. 

20) SUBR0UTINE L0FT (BO3) 935 FORTRAN Statements) 

Same as #3 (A03 except the solution for a single-lifting-surface is 
considered exclusively. 

21) SUBR0UTINE DLIFT (B04) (699 FORTRAN Statements) 

Same as #4 (A04) except the solution for a single-lifting-surface is 
considered exclusively. 

22) SUBR0UTINE INTERP (B05) (406 FORTRAN Statements) 

Subroutine INTERP is used to calculate coefficients from two exact 
vortex-lattice solutions at different angles of attack. These coefficients 
are used to generate arrays of approximate solutions that are based on the 
lifting-line theory linearized analysis technique. 

23) SUBR0UTINE DLINER (B06) (601 FORTRAN Statements) 

Subroutine DLINER calculates arrays of approximate solutions using the 
coefficients determined by INTERP. 

24) SUBR0TINE SPANI (B07) (125 FORTRAN Statements) 

This routine is. used to calculate constant and variable span spacing of 
the vortex-lattice elemental panels. 

25) SUBR0UTINE CH0RDI (B08) (77 FORTRAN Statements) 

Subroutine CH0RDI calculates constant or cosine spacing of the vortex- 
lattice elemental panels in the chordwise direction. 

26) SUBR0UTINE CH0RDT (B09) (44 FORTRAN Statements) 

Same as #6 (A06) except the presence of a trim-tab has been omitted. 
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27) SUBR0UTINE FLAPS (BIO) 


(93 FORTRAN Statements) 


Same as #8 (A08) except the presence of a trim-tab has been omitted. 


28) SUBR0UTINE V0RTEX (BU) 


(190 FORTRAN Statements) 


Equivalent to #13 (A13) * 

29) SUBR0UTINE REFLEC (B12) (50 FORTRAN Statements) 


Equivalent to #10 (A10) 

30) SUBR0UTINE DMATIN (B13) (149 FORTRAN Statements) 


This is a double precision, 70 x 70, matrix inversion routine. 

31) SUBR0UTINE D0TP (B14) (18 FORTRAN Statements) 

Equivalent to #15 (A15). 

32) SUBR0UTINE CR0SP (B15) (21 FORTRAN Statements) 

Equivalent to #16 (A16). 

33) SUBR0UTINE R0TATE (B16) (46 FORTRAN Statements) 

Equivalent to #12 (A12). 

34) SUBR0UTINE CURFIT (B17) (103 FORTRAN Statements) 

The CURFIT routine calculates the coefficients of cubics that are used 
by the CURVE subroutine, 

35) SUBR0UTINE CURVE (B18) (58 FORTRAN Statements) 


Using the coefficients of cubics calculated by the CURFIT subroutine, the 
subroutine CURVE determines the value and the derivative of a given function 
at selected values of the independent variable. CURVE together with CURFIT 
constitute a spline point (cubic), continuous derivative, interpolation 
procedure used in the program, 

36) SUBR0UTINE PAGE (B19) (40 FORTRAN Statements) 

Same as #17 (A17), except, the title and the job execution flag IFLG used 
in XQT ISURF are output. 


7-12 



7.6 Program Routines for XQT NSURFT and ISURFT 

37) MAIN R0UTINE (A18) (76 FORTRAN Statements) 

This routine performs a matrix-inversion test by calculating the inverse- 
matrix and the unit-matrix using the values of a 5 x 5 built-in matrix. 

38) MAIN R0UTINE (B20) (76 FORTRAN Statements) 

Equivalent to j?37 (A18). 

7.7 Program-Logic Flow Diagrams 

The program-logic flow diagrams for the main (driver) routines 
and the most important calculation routines that are used in the main 
execution modes (XQT NSURF and XQT ISURF) are presented in Figures 
7,04 through 7.06 (see Pages 7.14 through 7.19), 
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A) I-IAIN ROUTINE (AOI} XQT NSURF 
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ORIGINAL PAGE 18 

FIGURE 7.04 - L0GIC-FLCW-DIAGRAM5 FOR THE MAIN (DRIVER) EXECUTION ROUTINES ^ A'OOR QUALITY 
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B) MAIN ROUTINE (BOI ) 


XQT ISURF 
START 
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FIGURE 7.04 - LOG IC- F LQH-DIAGRAMS FOR THE MAIN (DRIVER) EXECUTION ROUTINES 
(PROGRAM HAQ7QB) [CONTINUED] 
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A) SUBROUTINE L0FT (AQ3) 


SUBROUTINE LOFT 
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(SYMMETRY ABOUT £) 



FIGURE 7.05 - LOGIC-FLOW-DIAGRAMS FOR THE VORTEX-LATTICE GEOMETRY CALCULATION 


ROUTINES (PR OGRAM HA010B) 


7-16 










B) SUBROUTINE LOFT (B03) 

SUBROUTINE LOFT 



FIGURE 7.05 - LOGIC-FLOW-DIAGRAMS FOR THE VORTEX-LATTICE GEOMETRY CALCULATION 

ROUTINES (PROGRAM HA010B) [CONTINUED] 
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B) SUBROUTINE DLIFT (P04) 


SUBROUTINE DL1FT 




FIGURE 7.06 - LOG IC-FLOU-DIAGRAMS FOR THE VORTEX-LATTICE SOLUTION CALCULATION 


ROUTINES (PROGRAM HA010R) [CONTINUED] 
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9.0 SOURCE-PROGRAM LISTING 


V MAP NSURF,NSURF 

SEG A01-A02-A0 3-A 04-A05-A06-A07-A08—A09—A10—A11-A12-A13-A14-, 
A15-A16-A17 


NSU 10 
HSU 20 
NSU 30 


1 

2 
3 


V MAP ISURF,1$URF 

SEG 601-BO2-BO3-S04-BO5-0Q6-B07-B08-B09-610-BI1-B12-B13-BX4-* 
B15-&J6-B17-818-B19 


ISU 10 
ISU 20 
ISU 30 


4 

3 

6 


V MAP NSURFT,NSURFT 

SEG A10-414—A 17 


NSUT 10 

HfUT 20 


7 MAP ISURfT, ISURFT 

SEG B20-813-B19 


ISUT 10 * 

ISUT 20 10 



ADI 
AO 1 
A01 
AO l 
AOl 
A01 

THEORY AND PROGRAM OEVELOPED BY ANTULIO V* G0ME2»STAFF ENGINEER * AOl 
TRW SYSTEMS GROUP, DIVISION OF TRW INC., HOUSTON* TEXAS - 77058 * AOl 
VERSION 2 ROUTINE 100U8LE PRECI$SION-LANGLEY MAT INV SUBROUTINE) * AOl 
9 TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.72 *A01 
4 PROGRAM DEVELOPED 8Y A.V.GOME2 ITPW SYSTEMS) ON JUNE-JULY 1971 *A01 

AOX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXAOl 

AOl 

REAL MACHN(101 

DIMENSION STORE!141, C0MMTS(42I 
DIMENSION WCL121I*ALFA{20I tHEIGHTUOl 
OIMFNSIDN SYMLFI5I,NSOLVI2♦6),NFLG!20) 


FOR AOl.AOI 


* MAIN ROUTINE N-SURFACE VORTEX LATTICE ANALYSIS PROGRAM HA010B-71* 


COMMON/DATA00/ T1TLEI14), ALFAQ, ZHO, CMA* 


COMMON/DATAOl/ KIN, KOUT, KTl, KT2, 

1 , R A □, PIE* CUTOF1, CUT0F2, OELALF, 

2 , IFLG!20) * EXECKU5) 


KT3 , KREC, KF1LE, LIN, 
LFLAP, LORAG, COLOCP 


L1NX 


COMMON/DATA02/ NblNG, NfUS, NVTAIL, NSS13), NSSDI5), NCS(5) 

1 « XI 30 ) ■ Y I 30} , 2(30} * E (301 , COO)* X0CRI30), FLAPCI30I * T ABC I 30 I 

2 iWSMOTH, F WE I 30 ) * ELE(30), ETE130I* EHEI30I, EMEEC 30 I 

3 ,X0Clia,9), ZOC110,30) 

COMMON/DATA03/FLAPDJ15) .TABDJ15),AILDJI2,5),DELTFM 5>,DEL7 F2C5) 

1 ,WFF1U5), WFF12C5I. WFF21 (5) * WFF22C5), WFF3K5) 

2 ,WFLAP1I5). WFLAP2I5I, WFLAP315) 

COMMON/DA TAG5/XCG*YCG*2CG*REFS,REFC * REF R 
EQUIVALENCE INFlG » IFLGI 

MAMEL I ST/INPUT/KCUTrKTl,KT2 *KT3,L!NX,NW!NG,NVT Alt,NFUS,COLOCP 
,CUTOF1,CUTOF2 
,LFLAP,GSCALE 

,NSS,NCS,X,Y*2,E,C *XOC,ZOC *XOCR 
,WFLAPl,WFLAP2,VFLAP3,FLAPC,TABC,WSMOTH 
,XCG,YCG,ZCG,R6FS,REFC,REFB 

,NJ08,ALFA,MACHN,HEIGHT ,FLAPOJ,TA8DJ*AIL0J 
,NfLG,NSOLV 


AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOL 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOX 
AOl 
AOl 
AOX 
AOl 
AOl 
AOL 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOL 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
, AOl 
AOl 
AOl 
AOl 
AOl 

XXXXXXXXXXXXXXXXIKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXAOI 

AOl 
AOl 
AO l 

CALL BLKOAT 
REWIND KT1 

WRITE IK1UT,1050) 401 


OATA TRST/6H SENDJ/ 

OATA NJGB/l/, NJDBL/20/, ALFA/2040.0/ 
DATA WCL/l.O. -Q.4,-0.3,-0.2,-0,1,0.0,0. 
• 0.8,0.9,1.0,1.1*1.2*1.3*144,1.5,1.6/ 

OATA MACHN/1040.C/, HE IGHT/10*l0000.0/ 
DATA SYMLF/5*0.0/*NS0LV/l,1,10*0/ 


1*0.2,0* 3,0.4,0.5,0.6, 


1000 FORMAT!13A6.A2) 

1010 FORMAT 1//,15*,14M**** JOB TIME*,I4»16H / ELAPSED TIME*,14, 

1 17H / ND.PtOT FILES*,|4,35H / NSURF EXEC. VERSION 6-18-72 

2 //,15X,47I2H**1,/,15X,47C2H**) ) 




1020 FORMAT! 1Hl , 10X , 35H**** JOBS INPUT LI 5T-CQNTlNUED ****,/,IX ) 

1030 FORMAT!IX*13A6,A2) 

1040 FORMATlIX, 11H7 *GT NSURF) 

1050 F0RMAT(lHlt///,///»29Xt 

1 53HSUBS3NIC-FLOV LIFTING SURFACE ANALYSIS PROGRAM HAO108,//, 37X, 

2 36HTRW SYSTEMS INC., HOUSTON OPERATIONS,//«44X, 

3 22HH0USTDN, TEXAS I 77059},///*16X, 

4 2 5H+*** JOBS INPUT LIST ****,/, IX ) 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
2 60 
270 
2 60 
290 
300 
310 
320 
330 
340 
350 
3 60 
370 
380 
3 90 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
320 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
6 70 
680 
690 
700 
7|0 
720 
730 
740 
750 
760 
770 
780 
790 
8 00 
8 10 


11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2i 

29 

30 

31 

32 

33 

34 
33 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 
40 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
BO 
81 
82 
83 
64 

85 

86 

87 

88 

89 

90 

91 


V = 7/8 PUNCH 
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MR rTf (kOUT,10501 
WRITE I K3 U T,1040) 

L IN = 15 

1D60 READ <K|N, lOOOMSinRFM » »1»1#14) 

WR ITE IKT1,1000MSTORF It) ,1-1 »14| 
IF C L [NX-L IMP iCTCtlOBOa 080 
1070 WRITF IKOUT,10201 
L IM- 3 

1090 L IN = L tN *1 

Wft ITF IK3UT. 103OH STORE (M ,!■=!, 14» 

C 

IF <STORE! 11»NF.TEST) GO TO 1060 

FNO FlLF KT1 

REMIND KT1 

WRITE (KaUT,1040) 

C 

NCOM T■- l 
NCAICP= -1 
ISUM = 0*0 
GSCALE= 1.0 
C 

CALL RESET 


10^0 READ I KT1,1000)(TlTLEII) ,1-1,14) 

IF(TITLEIIt*FU.TEST! CALL FKIT 
IF I NC DM T > 1100* 1 100*1 110 
1100 READ (KT1, 1000) ICCMMTS!1) , [-1 ,42) 
mo NCOMT- l 

R6AC < KT t * INPUT) 

C 

IF (NCALCPI 1120,1120*1140 
1120 NCALCP- l 
1130 REWIND KT2 
1140 CONTINUE 
C 

NS UR F = NW1NG *NFlS ♦!ARS1NVTA1LI 
NSTM = NW1NG ♦ NFUS 
DO 1160 NSF^l»NSLRF 
SVMLFiNSF I * 0.0 
IF (NSYM-NSF) 1150*1160*1160 
1150 SVHLFINSF 1*1.0 
1160 CONTINUE 
C 
C 

ALFAO- 0.0 

zho = ioooa.o 

CM AK = 0,0 

c 

XCG = GSC A Lf* XC G 
YCG * GSCALF*YCG 

ZCG = gscale*icg 

RFFC- GSCALF*REFC 
REFB* GSCALE*REF0 
R E FS 3 GSCALF*GSCALE*RFFS 

c 

IF (WSMOTH-l.OI 1180,1190,1170 
1170 WSMOTH* WSMOTHMGSCALF 
1160 CONTINUE 
C 

DO 1240 N * 1 * 5 

IE l WFLAP UNI-1.0) 1200*1200,1190 
1190 WFLAP1IN I * WfLAP1(N>*GSCALE 
1200 IF <MELAP2(N|-1.01 1220,1220*1210 

1210 WFLAP2(NI s WFLAP2IN)♦GSCALE 
1220 IF IWFLAP3INI-1.CI 1240,1240,1230 
1230 WFLAP3IN) * WFLAP3CNI*GSCALE 
12*0 CO NT LNUE 
C 

JX = NS SI NS UR FI 
00 1270 K = 1 * 10 
00 1260 J-I.JX 

[F 1IFLGC16M 12^0,1260,1250 
1250 Z0C!K,J1= ZOCCK, JI/CIJl 
1260 CONTINUE 
1270 CONT INUE 
C 

DO 1310 J = 1 * 30 
XI JI 3 XIJ1*0. SC ALE 
YlJ J = Y I J)*GSCALE 
Z(J1 3 Z(JI*GSCALE 
ClJ) - ClJl*GSCALE 
IF I ELARC IJI-1,0) 1290*1290,1280 
1280 FL APCIJI~ FLAPCIJ)*GSCALE 
1290 IF ITABCIJl-l.O) 1310.1310,1300 
1300 TABCIJI = TAHCIJl*GSCALF 
1310 CONTINUE 
C 

GSCAlE 3 1.0 
C 
C 

CALL PAGF 

WR ITF IK3UT,INPUT) 

C 

C 

C 

CALL LOFT 
C 
C 

DO 1420 N=>l,NjnS 

c 

ALFAD= ALFA(N) 

HE EGT * HEIGHT1N ) 

&L FAOc ALFAn 
ZHO = HFIGT 
CMAK = 0.0 


AO 1 

820 

92 

AO 1 

830 

93 

AO 1 

840 

94 

AO l 

850 

95 

AO L 

860 

96 

AO 1 

870 

97 

AO 1 

890 

98 

AOI 

890 

99 

AOl 

900 

LOO 

AOI 

910 

101 

AOl 

92 0 

102 

AOI 

930 

103 

AOl 

940 

104 

AOl 

950 

105 

AOl 

960 

106 

AOl 

970 

107 

AOl 

9 80 

108 

AOl 

990 

109 

AOl 

1000 

110 

AOl 

1010 

ill 

AOl 

1020 

112 

AOl 

1030 

113 

AOl 

1040 

114 

AOl 

1050 

115 

ADI 

1060 

116 

AOl 

1070 

117 

AOl 

1080 

116 

AOl 

1090 

119 

AOl 

1100 

120 

AOl 

1110 

121 

AOl 

1120 

122 

AOl 

1130 

123 

AOl 

1140 

124 

AOl 

1150 

125 

AOl 

1160 

126 

AOl 

1170 

127 

AOI 

neo 

128 

AOl 

1190 

129 

AOl 

1200 

130 

AOl 

1210 

131 

AOl 

1220 

132 

AOl 

1230 

133 

AOl 

1240 

134 

AOl 

1250 

135 

AOl 

1260 

136 

AOl 

1270 

137 

AOl 

1260 

138 

AOl 

1290 

139 

AOl 

1300 

140 

AOl 

1310 

141 

AOl 

1320 

142 

AOl 

1330 

143 

AOl 

1340 

144 

AOl 

13 50 

1*5 

AOl 

1350 

1*6 

AOl 

1370 

147 

AOl 

1380 

148 

AOl 

1390 

149 

AOl 

1400 

l 50 

AOl 

1410 

151 

AO l 

1420 

152 

AOl 

1430 

153 

ADI 

1440 

154 

ADI 

1450 

155 

ADI 

146D 

156 

AOl 

1470 

157 

ADI 

1480 

15B 

AOl 

1490 

159 

AOl 

1500 

160 

AOl 

1510 

161 

AO l 

1520 

162 

AOl 

1530 

163 

AOl 

1540 

164 

AOl 

1550 

165 

AOl 

1560 

166 

AOl 

1570 

167 

AOl 

1580 

168 

AO L 

1590 

169 

AOl 

1600 

1 70 

AOl 

1610 

171 

AOl 

1620 

1 72 

AOl 

1630 

173 

AOl 

1640 

174 

AOl 

1650 

175 

AOl 

1660 

176 

AOl 

1670 

177 

AOl 

1680 

178 

AOl 

1690 

179 

AOl 

1700 

180 

AOl 

1710 

181 

AOl 

1720 

l 82 

AOl 

173 0 

183 

AOl 

1740 

184 

AOl 

1750 

185 

AOl 

17 60 

1 86 

AOl 

1770 

187 

AO l 

1780 

188 

AOl 

1790 

189 

AOl 

1800 

1 90 

AOl 

18 10 

191 

AOl 

1820 

192 

AOl 

1830 

193 

AOl 

1840 

194 

AOl 

1850 

195 

ADI 

1660 

196 

AOl 

1870 

197 
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EX FCK-I 11= 1.0 

IP [MACHN(N|-0,9;i 1320*1320*1930 
1320 CMAK s MACHNIN) 

C 

CALL ABDRTJI5.CMAK.NI 

C 

EXECK(l)* 5QRT<i.0-CMAK**2l 
1330 CONTINUE 
C 
C 

DO 1390 1*1.6 
N S l 3 NSOL VI l.U 
N$2- NSDL V12*LI 
IF (NS2 > 1390*1390,1340 
1340 CONTINUE 
C 

TEST - 0.0 
DO 1350 M«NSl,NS2 
SYMLFIN1* 0.0 

L350 TEST 3 TEST ♦ ABSI AILDJU,M) - AILDJ<2»M> I «0*01 
IF ITEST) 1380,1380.1360 
1360 CONTINUE 

DO 1370 M»NSl*NS2 
1370 SYMLFI H)*» 1.0 
13B0 CONTINUE 
C 
C 

CALL L IFTXIALFAD,HE1GT,SYMLF,NSl*NS21 


1390 CONTINUE 


CALL TIME!IMS) 

IS= IM S/1000 
IS JB- IS-ISUH 
ISUM 3 IS 
C 

L IN= LIN + 6 

IF (LINX-IIN) 1400,1410,1410 
1400 CALL PAGE 

1410 WRITE (KOUT,101011SJB,1StKFlLE 
LIN= LIN ♦ LINX 
C 

1420 CONTINUE 
C 

GO TO 1090 
C 
C 

END 


A01 1380 
AO 1 1890 
AO1 1900 
AO 1 1910 
AO 1 1920 
AO 1 1930 
A01 1940 
AOi 1930 
AO1 1960 
AOi 1970 
A01 1980 
A01 1990 
AOl 2000 
AOl 2010 
A01 2020 
AOl 2030 
A01 2040 
A01 2050 
AO 1 2060 
AO l 2070 
A01 2080 
A01 2090 
AOI 2100 
AOl 2110 
AOI 2120 
AOL 2130 
AOI 2140 
AOI 2150 
AOl 2160 
AOl 2170 
AOl 21B0 
AOl 2190 
AOl 2200 
AOl 2210 
AOl 2220 
AOL 2230 
AOl 2240 
AOl 2290 
AOl 2260 
AOl 2270 
AOl 2260 
AOl 2290 
AOl 2300 
AOl 2310 
AOl 2320 
AOl 2330 
AOl 2340 
AOl 2350 
AOl 2360 
AOl 2370 


198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
226 

229 

230 

231 

232 

233 

234 

235 

236 

237 
236 

239 

240 

241 

242 

243 

244 

245 

246 

247 


FOR A02.A02 


SUBROUTINE BLKOAT 

A02 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISEO fl AUG.72 *A02 

* PROGRAM DEVELOPED BY A.V.GOMEZ ITRW SYSTEMS) ON JUNE-JULY 1971 *A02 

AO Z 

XXXKXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKA02 

AO 2 

COMMON / DA T A 00 / TITLEU41, ALFAQ, ZMO, CNAK A02 

A02 

COMMaN/DATAOl/ KIN, KOUT, KTl, KT2, KT3t KREC* KFIIE* LIN, LINX A02 

1 ,RAD, PIE* CUTOFl* £ U T OF 2 , DELALF, LFLAP, L DRAG* COLOCP A02 

2 * I FLGt 20) * EXECM15) A02 

A02 

COMMON/DA TA02/ NHNG* NFUS, NVTAIL, NSSI5I, NSSQ15), NCS<5) A02 

1 , XI 30 I» Y(30)♦ l (301 * F|30)* CI30I, X0CRI3D), FLAPCI30>,TABCl30> A02 

2 * WSMOTH* EWE(iO), ELEI30J, ETEI30), EHEI30I, EHEEI30) A02 

3 * XOCI10* 5)# ZOC110.30) A0Z 

AO 2 

COMMON/0ATA03/FLA PD J< 51 .TAB0JI5 )*AIIDJ12,5) ,OELTFll5), 0ELTF2I 5) A02 

1 ,WFF1L|5)* WFF1215), MFF21I5), MFF22I5), WFF31I5) A02 

2 .WFLAPim, MFLAP2I5), WFLAP3 15) A02 

A02 

COMMON/OATA04/ W1NGDI5.16), JNII5), JN2I5)* KN2I5), SYMGFI5)*N5URFA02 

1 ,EW160*10 ) t E Yl60,101* EClbO.lO), ESI60.10)* EG160*10) A02 

2 * EN(6 0,10*6), EVl60,10,6), VVINDXI60,10,31 A02 

A02 

COMMON/DATA05/XCG,YCGf ZCG *REFS,REFQ,REFB A02 

A02 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXKXXXXXXXXXXXXXAOZ 

AO 2 

DATA KIN/5/, KOUT/6/, KTl/I/, KT2/6/. KT3/3/, KREC/O/, KFILE/O/ A02 

1, L IN/O/, LINX/56/, RAD/57.2958/, PIE/3.14159/, CUTOFl/O.OOO1/ A02 

2, CUT0F2/0.0O29/ T OELALF/1.0/■ LFLAP/O/, LORAG/O/. COLKP/O.75/ A02 

3,IFLG/10*0,0,0,0 * 4,0,0,0,0* 5*0* 0,0,1,0*4/*EXEtK/15*0.0/ A02 

A 02 

OATA NNING/l/.NFLS/O/.NVTAIL/O/, NSS/2,4*0/.NS SO/1 *4*0/,NCS/2*4*0/A02 
l,X/30*0.0/,Y/0.0,1000. 0,2 8*0.0/,Z/30*0.0/,£/30*0.0/,C/100.0, 100.0 A02 
2,20*0,0/,XOCR/30*C.25/,FLA PC/30*0.25/,TABC/30*0.125/ A02 

3, WSMOTM/0*10/, XGC/O.0,1.0,48*0♦0/*ZOC/300*0.0/ A02 

A02 

DATA FLAPDJ/5*0*C/.TABOJ/5*0.0/,AILDJ/l0*0.0/ A02 

DATA WFLAP 1/5*0.0/,HFLAP2/5*0.60/,HFLAP3/5*1.00/ A02 

A02 

DATA XCG/0.0/*YCG/0.0/,ZCG/0,0/,REFS/1000,0/*REFC/100.0/ A02 

l T R FFB / 100.0 / 402 

A02 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXKXXXXADZ 

A02 

RETURN 402 

XXXXXX 402 


246 

249 

250 

251 
2 52 

253 

254 
253 

256 

257 
256 

259 

260 
261 
26 2 

263 

264 

265 

266 

267 

268 
2 69 

270 

271 

272 

273 

274 
2 75 

276 

277 

278 

279 
260 
201 
262 

283 

284 

285 

286 
287 
2B8 

289 

290 

291 

292 

293 

294 

295 

296 
2 97 
29 0 

299 

300 
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A02 

540 

301 

ENO 

A02 

550 

302 


FLIP A03,A03 



AO 3 

10 

303 




A03 

2D 

304 

SUBROUTINE LOFT 



AO 3 

30 

305 




AO 3 

40 

306 

* TRW MULT 1PLF-SURFACE VORTEX-LATTICF PROGRAM 

* REVISED 

8 AUG.72 1 

• AO 3 

50 

307 

* PROGRAM DEVELOPED 8Y A.V.GOMEZ (TRW SYSTEMS* 

ON JUNE-. 

JULY 1971 1 

• A03 

60 

308 




AO 3 

70 

309 

XXXKXKXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXKKXXXA03 

BO 

310 




A03 

90 

311 

DIMENSION COSK 31 ,C0S2I31 ,0153! 31 



AO 3 

100 

312 

DIMENSION DUMYF!LC* 



AO 3 

no 

313 




A03 

120 

314 




AO 3 

130 

115 

COMMON/DATAO1 / KIN, KOUT. KTl, KT2, KT3, KREC, 

KFILE, LIN, L1 NX 

AO 3 

L40 

316 

l ,RAD, PIE f CUTOFI, CUT0F2, DELALf, LfLAP , LORAG, COLOCP 

A03 

150 

317 

2 , IfLGC 201, EXECK(15* 



AO 3 

160 

318 




AO 3 

170 

319 

COMMON/DA TA02/ NhING, NFUS, NVTAIL, NSS (5 *, NSS0I5), NCS! 5 * 

AO 3 

180 

320 

l , X( 3D*, Y { 301 t ZOO*, E ( 30* , COO), XOCRI30), 

F L APCI 30 > * T ABC! 3 D I 

AO 3 

190 

321 

2 * WSMQ TK, EWE(301r ELE!30), ETE<30J, EH6I30), 

E HE E I 30 1 


AO 3 

200 

322 

3 T xnc( 10 , 5 ), zncu0'30i 



A03 

2 10 

323 

COMMON/DAT A22/'IMAGEF15> ,JSING PI 5* 



A03 

220 

324 




AO 3 

230 

325 

COMMON/OATA03/FLAPOJI5*,TA80J<5 »,A(LDJ(2,5),DELTf K 5*,OELT F2t5* 

A03 

240 

326 

l , WFF Ll( 51, WFF12(5)♦ WFF 21(5), WFF22I5*, WFF31I5* 


A03 

250 

327 

2 ,WfLAP 1< 5 J, WFLAP2I5), WFLAP3{5» 



A03 

260 

328 




A03 

2 TO 

32 9 

COMMON/ DATA04/ WlNGD!5,l6), JNH51, JN2I5I, KN2I5*, SYMGFI 5 1, NSURF A03 

2 80 

33Q 

1 ,EWl60,10), EY(60,10* , EC160,10>, ES(60,i0>, 

EG!60,10) 


A03 

290 

331 

2 ,ENC60,10,6) , EY(60,t0«6) , VV!NOX!60,l0,3» 



A03 

300 

332 




A03 

310 

333 

COMMON/OATA05/XCG,YCG.ZCG,REFS,«EFC,PEFB 



603 

320 

334 




AO 3 

330 

335 

XXXXXXXXKX XXXXX XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXX XXXXX AO 3 

340 

336 




AO 3 

350 

337 

1000 F0RM4TIIX,//,1X1 



A03 

360 

338 




AO 3 

370 

339 

1010 FORMAT!50X,19HLIFTING SURFACE NC=,12,/,50X,21!1H*1,///, 

IX, 

AD3 

380 

340 

l 60H SPAN ROOT TIP ROOT 

TIP 

AREA , 

AO 3 

390 

341 

2 59H ASPECT MEAN MGC YflAR 

X BAR 

ZBAR, / 

, AO 3 

400 

342 

361H CHURO CMCRD TWIST 

TWIST 

* 

AO 3 

410 

343 

4 60H RATIO CHORD (MAC* <MGC* 

4 MGC * 

(MGC *, 

/AO 3 

420 

3 44 

5/, IX,3F10.3,2F10.4,F10.2,Fl0.4,5F10.3,//,IX, 



A03 

4 30 

345 

6 6OH FLAP FLAP FLAP FLAP 

TAB 

L .A IL , 

AO 3 

440 

346 

7 6CH R.AIL OIHED. SWFFP NO,SPAN 

NO,CHORD 

NO. CHORD, 

/AO 3 

450 

347 

8»61H SPAN 1 SPAN2 SPAN3 DEFtEC 

deflec 

oeflec 

, AQ 3 

4 60 

346 

9 60H DEFLFC MGC/4 MGC/4 ELEMENTS 

ELEMENTS 

Dt SCONT 

A03 

470 

349 

*/,IX,9F10.3,17,2110,//»34X, 



AO 3 

4B0 

350 

I 56HFUS STA WING STA WL STA AREA 

CHORD 

SPAN ,/ 

, AO 3 

490 

351 

234X,56H XICG) yicg* zicgi sicgi 

C (CGI 

BICGJ , / 

, A03 

500 

352 

331X»6F10.3,///,1X1 



AO 3 

510 

353 




AO 3 

520 

354 

1020 FORMAT! U* 



AO 3 

530 

355 




AO 3 

540 

356 

1030 FORMAT! IK, 



A03 

550 

357 

L 6OH WS Y 7 X(LEI 

X(C/41 

XITE* , 

AQ 3 

560 

3SB 

2 60H TWIST 01HEIC/4! SWEPIO/4) CIWING* 

CIF L A P * 

CITAB) , 

AO 3 

5 70 

359 

3 /, IX * 



AO 3 

580 

360 

1040 FORMAT! IX , 12FIC.3 ) 



A03 

590 

361 




A03 

600 

362 

IQ 50 FORMAT!21X,^OH XA l H /C XA!2*/C XAI3I/C 

X A (4 1/ C 

X A! 5 * / C i 

A03 

610 

363 

1 5 OH X4!6*/C XA(7J/C XA(8)/C XA|7|/C 

XA!ID */C, 

/ / , 2 1X , 

A03 

620 

364 

2 10F10.4,///,IX, 4 DH X Y 

zaiu/c 

ZAI2I/C, 

AO 3 

63 0 

365 

3 60H ZAI31/C Z A!4 */C ZA(5|/C ZA<5*/C 

Z A ( 7 */ C 

L Ala */c. 

AO 3 

640 

366 

4 20H ZAI9I/C ZAl ID)/C ,/,1X ) 



AO 3 

650 

36 7 

1060 FORMAT! LX,I2Fl0.4 ) 



A03 

660 

368 




A03 

6 70 

369 

1070 FORMAT!3X,4HJ K, 40H Y l 

WL 

EW , 

AO 3 

6R0 

370 

1,3OH nWL DC OS ,/,lXl 



A03 

69 0 

371 

1080 FORMAT! IX,2T3, 12UPE10,3* 1 



A03 

7 00 

372 




AD3 

710 

373 

10 90 FORMAT!3X,IHJ,2X,1HK,5X,2HXV,8X ,2HYV,8X,2HZV,8X,3H1XV»7X,3H1YV,7X 

, A03 

720 

374 

* 3H1ZV,7X,2HXN t 8x,2HYN,flX,2H2N,8X,3HIXN,7X,3H1YN,7X,3H1ZN,/,IX1 

AO 3 

730 

375 

1 LOO F0RM4TI IX, 213, 12!lPfL0.3* 1 



AO 3 

740 

376 




AO 3 

750 

377 

Il10 FORMAT!5X,IHB,9X,2HCP♦8X,2HC T,BX,2HFR,6 X,2HET, 

1 6 X , IMS,9 X 

,2 HAR, ax, 

AO 3 

760 

378 

♦ 2HMC,8X,3HMGC,6X,4HYMGC,6X,4HXMGC,6X ,4HZMGC,/ 

,1X1 


A03 

770 

379 

1120 FORMAT* IX, 12F10.3 * 



AO 3 

780 

3B0 




AO 3 

790 

301 

1130 FORMAT! IX,/, IK,14HIEQF PLOT FILE,I3,1H) ) 



A03 

BOO 

382 




AO 3 

BIO 

303 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXA03 

8 20 

384 




AO 3 

8 30 

385 




AO 3 

840 

386 




AO 3 

8 50 

387 

*** INITIALIZE *•• 



A03 

860 

388 




A03 

870 

309 

XEROX = 0,0 



AO 3 

800 

390 

ZEROX = 0,0 



AO 3 

890 

391 

NWING= NWING > NFUS 



40 3 

9 00 

392 

N5UPF* NWING ♦ IABSINVTAIL* 



A03 

910 

393 

mflag= ioo 



AO 3 

920 

394 

IFINVTAIL,LT,OI *FLAG- NWlNG +1 



AO 3 

930 

395 

NFUS = 0 



AO 3 

94 0 

396 




A03 

950 

397 

CALL ABOPTJ!1,XEROX,NSUPF » 



A03 

960 

398 




AO 3 

970 

3 99 

SUMW = 0,0 



AO 3 

960 

400 




A03 

990 

401 

NX- 30 



403 

1000 

402 

00 1190 N = l,NX 



AO 3 

1010 

403 


A 




EWF(NI« SUHW 

A03 1020 

404 


ELE(N> = X(N) - CINl*XOCfUNl 

AOS 1030 

405 


6TECN>= ELE(N> ♦ CINI 

AO 3 1040 

406 


CfLAP - FLAPCIN1 

A03 1050 

407 


CTAB * TABCIN) 

A03 1060 

400 

c 


A03 1070 

409 


IF (CFLAP- 1,0 J 1140,1150,1150 

A03 1080 

410 

1140 

CFLAP « CFLAP*C(N| 

A03 1090 

411 

1150 

IF (CTAB- l ,0t IUC,1170,1170 

A03 1100 

412 

1160 

CTA© ^ CTAB*C(N) 

AQ3 1110 

413 

1170 

CONTINUE 

A03 1120 

414 


EHEINI * ETEINI - CFLAP 

AO 3 1130 

415 


EHEEIN 1 * ETEINI - CTAB 

AO3 1140 

416 


IF 1N-NX1 1180,1190,1190 

AO3 U50 

417 

neo 

Nl- N*l 

A03 1160 

418 

1190 

SUM U ■ $UNW * SQRTI 12 INI-21N11 )**Z ♦ 1Y(Nl-VI Nil )**Z ) 

AO3 11T0 

419 

c 


AOS 1180 

420 


NO * 1 

AOS 1190 

421 


Jl» 0 

AOS 1200 

422 


00 1200 N« UNSURF 

AO3 1210 

423 


J2* N$$(N> 

AO3 1220 

424 


CALL ABORTJ(10,J2,J11 

AOS 1230 

425 


Ji* J2 

A03 1240 

426 


NS SOIN1= NO 

A03 1250 

427 

1200 

NO * NSSINI +1 

AO3 1260 

428 

J1 =■ l 

A03 1270 

429 

c 

AO3 12B0 

430 


CALL ABORTJI6,XEROX.Nl 

AOS 1290 

431 

c 


AOS 1300 

432 

c 


AOS 1310 

433 

c *** 

n-surfacf LOOP *+* 

AO3 1320 

434 

c 


AO3 1330 

435 


00 Z060 NSF-1,NSURF 

AO3 1340 

436 

c 


AO3 1350 

437 

c 


AOS 1360 

438 

c ** 

CALCULATE WETTED LENGTH ** 

A03 1370 

439 

c 


A03 1380 

440 


NREPET* 0 

A03 1390 

441 


I F( NSF ,GE , MEL AG ) NREPE T■» 1 

AOS 1400 

442 


NSFMI2 NSF - 1 

AOS 1410 

443 


NSF5 » NSF ♦ 5 

A03 1420 

444 


NSF10- NSF ♦ 10 

AO3 1430 

445 


NSPV * IFLGINSF) 

AO3 1440 

446 


nCv ® IFLGINSF51 

A03 1450 

447 


NC 01S“ IFLGINSF 10) 

A03 1460 

448 


NCVW « NCV - NCOIS 

AOS 1470 

449 


NSPV1» NSPV ♦ 1 

AO3 1480 

450 


NCVl =* NCV ♦ 1 

AO3 1490 

451 


NB = NSSINSF} 

A03 1500 

452 


NO * NSSOINSFI 

AO3 1510 

453 


NX * NC SI NSF ) 

*03 1520 

454 


OCORO * l.O/FLOATINCVW) 

AO3 1530 

455 


IMAGEFiNSFIa NSPV 

AO 3 1540 

456 


JSINGPINSF|» 0 

AOS 1350 

43 7 

c 


A03 1560 

456 


CALL ABORTJI3,XEPOXtNCVI 

AO3 1570 

459 


CALL A80RTJ<7,XEROX,NKI 

AO3 1580 

460 


CALL AB0RTJI8,XER0X,NSPV| 

A03 1590 

461 


CALL A BOR T Jl9,XEROX,NC VWI 

AOS 1600 

462 

c 


A03 1610 

463 


00TU *(EWE(NB|-EWE I NO)1 

AOS 1620 

464 

c • 


AO 3 1630 

465 


DEL TF11NSF} * WSPOTH 

A03 1640 

466 


0ELTF2INSF) - WS«OTH 

AO 3 1650 

467 

c 


A03 1660 

466 


IF 1 DELTF UNSF 1-1.01 1210,1220,122 0 

A03 1670 

469 

1210 

OELTFMNSF) = OELTFKNSFI *BOTU 

AOS 1660 

470 


DElTF2(NSF ) « OELTF 21N5F|*B0TU 

AOS 1690 

471 

1ZZ0 

CONTINUE 

AOS 1700 

472 

c 


AOS 1710 

473 


WFF1UNSFI = WFLAPHNSF) 

A03 1720 

474 


WFF21CNSFI = WFLAP2(NSF» 

AOS 1730 

4 75 


WFF3UNSFI * WFLAP3<NSF» 

A03 1740 

476 

c 


403 1750 

477 


IF |WFF11INSF}-l.01) 1230,1240,1240 

A03 1760 

478 

1230 

WFF1HNSFI - WFFI1 i NSF J *BOTU 

AOS 1770 

479 

1240 

IF 1HFF21INSF l-UOl) 1250,1260,1260 

AOS 1780 

460 

1250 

WFF2KN5FI = WFFZ1INSF1 *BOTU 

AOS 1790 

481 

1260 

IF (WFFSl(NSF)—I.C1I 1270,1260,1260 

AOS 1800 

462 

1270 

WFF3UNSFI a WFF3UNSF1^B0TU 

A03 1810 

463 

1280 

CONTINUE 

AOS 1820 

464 

C 


AO3 1830 

465 


WFFlllNSFI * WFF1KN5FI - DELTF1 |NSf 1/2*0 

AO3 1640 

486 


WFF21INSFI « WFF21(NSFI - DELTF11NSF1/2.0 

AO3 1850 

48 7 


WFF31INSFI a WFF3HNSFI - 0ELTF1 (NSF 1/2,0 

AOS I860 

488 

c 


AOS 1870 

469 


WFF12INSFI = WFFlllNSFI ♦ DELTF1INSF) 

AOS IB80 

490 


WFFZ2INSFI = WFF21INSFl + DE LTFiiNSFI 

AOS 1090 

491 

c 


AOS,1900 

492 

c 


AO 3 1910 

493 

c ** 

CALCULATE wing panels ** 

AO3 1920 

494 

c 


AO S 1930 

495 


(F (NSF-NWtNG) 1290,1290,1300 

AOS 1940 

496 

1290 

CONTtNUE 

AO3 1950 

497 


SYHF* 2.0 

A03 1960 

49 B 


SPAN » BOTU*2,0 

AOS 1970 

499 


WiNGOi NSF, 11 *= yiNB)*2.0 

A03 1960 

500 


GO TO 1310 

A03 1990 

501 

1300 

CONT INUE 

AOS 2000 

502 


SYMF = 1.0 

AOS 2010 

503 


SPAN* BQTU 

AO3 2020 

504 


WINGDINSF,1»= SPAN 

AD3 2030 

505 

1310 

CONT INUE 

A03 2040 

506 

C 


AOS 2050 

507 


WINGDINSF,21= C(NO) 

AOS 2060 

500 


WINGOINSF,31= CINB1 

9-5 

AOS 2070 

509 



r>oo o n r> n n o noon no on n n on ononon non onono 



HlNGOlNSF,41- E (N0> 

AO 3 

2D BO 

510 


WlNC0INSr,5l= E(MB 1 

AO 3 

2090 

511 



AO 3 

2100 

512 


QSPAN- SPAN/FL04TINSPVJ 

A03 

2110 

513 



A03 

2120 

514 


JN1INSF) » J1 

ao a 

2L30 

515 


JN2(NSF( = Jl ♦MSPV -1 

AO 3 

2140 

516 


KN2(NSF| = NCV 

AO 3 

2190 

517 


J2 * JN21NSFI 

AO 3 

2160 

516 


J3 * J2 ♦! 

AO 3 

2170 

519 


AO 3 

21 ao 

520 


CALL AflOR T J(Z *XE RCX,J31 

A03 

2190 

521 



AO 3 

2200 

522 


SYMGFC NSF l - SYMF 

AO 3 

2210 

523 



A03 

2220 

524 



AO 3 

2230 

525 



A03 

2240 

526 

** 

VORTEX LATTICE GEOMETRY ** 

AO 3 

2250 

527 



AO 3 

2260 

520 


DO 1390 J*J l» J 3 

AO 3 

2270 

529 



AO 3 

22 ao 

530 


WS= -B0TU*(SYMF-1,01 ♦ DSPAN*FLCATU-Jl 1 

AO 3 

2290 

531 


WAA* AB St WS) 

AO 3 

2300 

532 


ha - HAA ♦ EWE(MCI 

A03 

2310 

533 



AO 3 

2320 

534 


CALL COROF(HA , Y A , KLE ,XTF , ZLE,FPS,CM,Cf,CTAB,TAND,TANS♦RATS,Ml,M2 ) 

AO 3 

2330 

535 



A03 

2340 

536 


SIGN 3 1.0 

AO 3 

2350 

537 


TEST- 0,0001-HAA 

AO 3 

2360 

536 


IF (TEST) 1320,1330,1330 

A03 

2370 

53 9 

1320 

SIGN 3 US/WAA 

AO 3 

23 BO 

540 

133 0 

Y0 ■ YA* SIGN 

AO 3 

2390 

541 


IF (NCOIS-1I 1350,1340,1340 

A03 

2400 

542 

13*0 

CW= CW - CF 

A03 

2410 

543 

1330 

CONT INUE 

AO 3 

2420 

544 



A03 

2430 

54 3 


00 1360 K 3 1,NC V 

AO 3 

2440 

546 



A03 

2450 

54 7 


XKM = FLOAT(K-i) 

A03 

2460 

548 



A03 

2470 

549 


EY(J,K1= WS 

AO 3 

2480 

550 


EC(J T * 1 = C W*DC ORO 

AO 3 

2490 

551 


EWtJ t K>> NA 

AO 3 

2500 

552 



A03 

2510 

553 


EV{J,K,n= XLE ♦ CW*DCORO*10,25♦XKMl 

AO 3 

2520 

554 


FV(J,K,2»= Y8 

AO 3 

2530 

555 


EV(J,K,3»s ZLE 

AO 3 

2540 

5 56 



AO 3 

2550 

557 


EN ( J , K , 11 ~ XLE ♦ CW*PCORO*(CGLOCP ♦ XKMI 

A03 

2560 

558 


FN(J,K,2>= YB 

AO 3 

2570 

559 


EN ( J *K * 3 >* ZLE 

AO 3 

25 90 

560 



AO 3 

2590 

561 

1360 

CONTINUE 

AO 3 

2600 

562 



AO 3 

2610 

563 



AO 3 

2620 

564 


IF (NCDIS-1I 139C,1370,1380 

A03 

2630 

565 

1370 

CONTINUE 

AO 3 

2640 

566 



AO 3 

265 0 

567 


K* NCV 

AO 3 

2660 

568 


EC(J,KJ - CF 

AO 3 

2670 

569 


6V(J,K,1 )- XTE - CF+O,75 

A03 

2680 

570 


EN t J,K, 1XTE - CF *(1*0 - CniOCP) 

AO 3 

2690 

571 


GO TO 1390 

AO 3 

2700 

5 72 



A03 

2710 

573 

13 0 

CONT INUE 

AQ3 

2720 

574 


K- NCV 

AO 3 

2730 

575 


Et(J,K|- C TAB 

AO 3 

2740 

576 


EV(J,K,U= XTE - CTAB*0, 75 

AO 3 

2750 

577 


EN ( J , K , LI- XTE - CTAB+t 1.0 - COlOCP ) 

AO 3 

2760 

578 


K= K - 1 

AO 3 

2770 

5 79 


ECU,* ) 3 CF - CTAB 

AO 3 

2780 

500 


EV(J«K, LI* XTF - CTAB - E C ( J, K1 *0.75 

AO 3 

2790 

581 


ENU,K,L> = XTE - CTAB - ECtJ,Kl*U.O - CULOCPl 

A03 

2800 

5 82 



A03 

2810 

5 83 



A03 

2820 

504 

1300 

continue 

AO 3 

2830 

505 



AO 3 

2B40 

566 



AO 3 

2850 

587 


DO 1410 J=J1,J3 

AO 3 

2 860 

588 



AO 3 

2870 

509 


WA= EWU,ll 

AO 3 

28 00 

590 



AO 3 

2890 

591 


CALL COROF(HA,YA, XLE,XTF , ZLF,EPS,CW,CF,CTAB, X AND,TANS,RATS,Ml,M2 I 

A03 

2900 

592 



AO 3 

2910 

593 


DO 1400 K=l,NCV 

AO 3 

2920 

594 



AO 3 

2930 

595 


XFI= EV(J,K r 11 

AO 3 

2940 

596 


ZF1= FV(J,K t 3( 

AO 3 

2950 

597 



AO 3 

2960 

598 


CALL CAMBER(NSF,NR,Ml,M2,RATS.EPS,XLE,CW, XFl,ZFl> 

AO 3 

2970 

5 99 



AO 3 

2900 

600 


FV ( J ,K » 3} = ZF1 

A03 

2990 

601 



AO 3 

3000 

602 


XF1= FN(J,K,U 

A03 

3010 

603 


/Fl= EN(J * K,31 

AO 3 

3020 

604 



AO 3 

30 30 

605 


CALL CAMBERINSF,NK,Ml,M2»RATS,E PS,XLE,CW» XF1»ZFl) 

AO 3 

3040 

606 



A03 

3050 

607 


EN( J ,K , 3 > = ZF 1 

603 

3060 

608 



A03 

3070 

609 

1400 

CONTINUE 

A03 

3000 

610 

1410 

CONTINUE 

A03 

3090 

611 


ORIGINAL PAGE IB 
do 1,30 j=ji,j£ Q-p POOR QUALITY 

A03 
AO 3 
AO 3 
AO 3 

3100 

3110 

3120 

3130 

612 

613 

614 

615 


9-6 



o non r> n on ooo 


J3* J*l 
C 

00 1420 K=l.NCV 
C 

EY C J * K I = fYlJ3,K*-EY(J*lO 

ESIJ i* I s Q.5*£YlJtKJM ECIJ.KI + EC<J3,M I 

C 

ENCJ,K*n* 0.5*1 ENIJ.KUl ♦ £N<J3,K,l) J 
FNU.K,2)» 0* 5* < ENIJ,K,21 ♦ €NCJ3.K*2> 1 
FN1J »K t 3 I = 0.5*1 ENIJ,K,3l ♦ ENIJ3,K f 3J » 

C 

1420 CONTINUE 
1430 CONTINUE 
C 
C 

C ** CALCULATE UNIT VECTORS •• 

C 

DO 1490 J*Jl t J2 
J3** J+l 
C 

00 1480 K*1» NC V 
C 

SUM l* 0.0 
SUM2* 0.0 
DO 1440 L * It 3 
M* L +3 

EV|J f K t MI- EVCJ3,K,LI - EV(J,K,U 

ENIJ«K»M1= FNIJ « K * L) - 0.5*1 EVU3tK*L»♦£VIJ»*»L) I 
SUM1 = SUN 1 ♦ £VlJ f K»M»**2 
14^0 SUM2- SUN 2 * £NlJ#K«MI**2 
C 

SUM 1 * SORT I SUM II 
SUM2 * S3RTISUM2I 


00 1450 L-L.3 
M 3 L +3 

EVCJ|K,MI*> EVI J.K.M1/SUM1 

FN I J f K , l >* XTE - CTAB - ECIJ«K)*<1.0 - COLOCPI 


C 

C 

e 

c 

c 

c 


1390 CONTINUE 

00 1410 
WA = EW{J«1 I 

CALL COROF{NA,YA.XLE,XTE t 2LE,€PS,CN 


,CF,CTA0*TANO,TANS f RATS # Nl»M2l 


C 


□Q 1400 K»1,NC V 


XF1- EVU.K.ll 
2F1* EV(JiK,3| 

CALL CAMRERINSF»NKiNl«N2,RATS»EPS#ALE»CNt XF|,2F|| 


C 

EV(J v K,3l * ZFl 
C 

XFl- ENlJ.KtU 
ZFl* EN(J,K,3I 
C 

CALL CAMBER1NSF T NK«Ml < M2,RATS.EPStXLE # CN, XF1*ZF1> 
C 

6N ( J » K 1 3 l * ZFl 
C 

1400 CONTINUE 
L410 CONT INUE 


DO 1430 J* J1« J2 
33* J*l 

00 1420 K-l.NCV 

EYIJ♦K I = EYU3,K>~EY(J»lO 

ESIJ*K 1= 0.5*EY<J*KI*I ECUiKJ ^£C(J3 r K1 I 

ENIJ.K.II 3 0.5*1 ENlJfK.lJ ♦ EN(J3»Kfl) I 
EN(J,K,2I* 0.5*1 ENIJ »K.2) ♦ ENU3*K,2> I 
EN(J,K f 3l» 0.5*1 EN(J»K.3> * ENlJ3»K f 3> \ 

1420 CONTINUE 
1430 CONTINUE 


** CALCULATE UNIT VECTORS ** 

DO 1490 J»Jl'J 2 
J 3 = J+l 
C 

DO 1480 K - 1 »NC Y 
C 

SUM 1 = 0.0 
SUM 2 a 0.0 
DO 1440 L * 1 » 3 
M* l *3 

EVIJ*K » MI= EV(J 3*K«LI - EVIJ.K.LI 

ENIU»K,M>a EN(J,K,L> - 0.5*1 EVlJ3 t K»Ll*EVtJ*K,L* ) 
SUM 1= SUNi * EV1J.K,M)**2 
1440 SUM2 = SUM2 + E N f J f K . M) **2 
C 

SUM 1 = SORT! SUM 11 
SUM 2 « 5 QRT 1 SUM 2 I 
C 


AO3 3140 
A03 3150 
A03 3160 
A03 31 TO 
AO3 3180 
AO3 3150 
AOS 3200 
AO3 3210 
A03 3220 
AO3 3230 
A03 3240 
A03 3250 
A03 3260 
A03 3270 
A03 3280 
AOS 3240 
AOS 3300 
A03 3310 
AOS 3320 
AO3 3330 
AOS 3340 
A03 3350 
AOS 3360 
AO3 3370 
A03 3360 
A03 3390 
AOS 3400 
AOS 1410 
AOS 3420 
AOS 3430 
AO3 3440 
A03 3450 
AOS 3460 
A03 3470 
A03 3480 
A03 3490 
A03 3500 
AO3 3510 
A03 3520 
AOS 3330 
AO3 3540 
A03 3530 
AOS 3360 
A03 3570 
A03 3580 
AO3 3390 
AO 3 3600 
A03 3610 
A03 3620 
AO3 3630 
AO3 3640 
AO3 3650 
AOS 3660 
AOS 3670 
A03 3680 
A03 3690 
A03 3700 
AO3 3710 
AO3 3720 
AO 3 3730 
AO3 3740 
AO3 3750 
A03 3760 
A03 3770 
AO3 3780 
AOS 3790 
A03 3600 
AO 3 3610 
A03 3820 
AOS 3830 
AO3 3840 
A03 3850 
AOS 3860 
AO3 3870 
A03 3880 
A03 3690 
AO3 3900 
A03 3910 
AOS 3920 
AO3 3930 
AO3 3940 
A03 3950 
A03 3960 
AO3 3970 
AO3 3980 
A03 3990 
A03 4000 
AOS 4010 
A03 4020 
AOS 4030 
A03 4040 
AOS 4050 
A03 4060 
A03 4070 
A03 4080 
A03 4090 
AO3 4100 
AO3 4110 
A03 4120 

AO 3 4130 
AO 3 4140 
A03 4150 
AOS 4160 
A03 4170 
AO3 4180 
A03 4190 


616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 
627 
626 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 
656 

659 

660 
661 
662 

663 

664 

665 

666 
667 
666 
£>69 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 
6BS 
6 66 
667 
6 88 
6 89 

690 

691 

692 

693 

694 

695 

696 

697 
69B 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 
71 B 

719 

720 

721 


00 1450 L=1» 3 



Ms L ♦ 3 



AO 3 

4200 

722 


EVIJ,K,M»= £V4J,K,M1/SUM1 



AO 3 

4210 

72 3 


COS mi= -ENl J,K,M)/SUM2 



AO 3 

4220 

724 

1450 

CD S2< L1 = -FVIJ,K,M1 



AO 3 

4230 

725 

c 




AO 3 

4240 

726 


CALL CROSP|C0S1*CCS2iC0S3» 



AO 3 

42 SO 

727 

c 



A03 

42 60 

728 


SUM 2= 0.0 



AO 3 

4270 

729 


DO 1460 L*l» 3 



AO 3 

42 80 

730 

1460 

SUM2= SUM2 ♦ C0$3<L1**2 



A 0 3 

4250 

731 

C 




AO 3 

4300 

732 


5UM2* SQRTISUM21 



AO 3 

4310 

733 

c 




A 0 3 

4320 

734 


DO 1470 L = l, 3 



AO 3 

4330 

73 5 


M* L+3 



AO 3 

4340 

736 

1470 

EM < J,K,H1= C0S3 tL 1/SUM2 



A03 

4350 

73 7 

c 




AO 3 

4360 

738 

l 4 R 0 

CONT INUE 



A03 

4370 

739 

14Q0 

CONT INUE 



A03 

43 60 

740 

c 




A 0 3 

4380 

741 

c 




A03 

4400 

742 

c ** 

CAlCULATF WING CONSTANTS ♦* 



AD3 

4410 

743 

c 




A 0 3 

4420 

744 

c 

H INGDI NSlfRf « n - B, SPAN 



AO 3 

4430 

745 

c 

WINGOINSURF, 21 * CR» ROOT CHORD 



AO 3 

4440 

746 

c 

WINGDINSURF , 31 - CT, TIP CHORD 



AO 3 

4450 

747 

c 

HlNGDINSURF, 41 = ER , GEOMETRIC TWIST AT 

ROOT STATION 

A03 

4460 

748 

c 

HlNGDINSURF. 51 = FT, GEOMETRIC TWIST AT 

TIP ST ATT I ON 

40 3 

4470 

749 

c 

wtNGOINSURF, 6) = S, AREA 



AO 3 

4480 

750 

c 

HlNGDINSURF, 71 - AR, ASPECT RATIO 



40 3 

4480 

751 

c 

w [NGOtNSURF, 81 * CM, MEAN CHORD 



AO 3 

4500 

752 

c 

rt [ NGD(NSURF, 91 * MGC, MEAN GEOMETRIC CHORD 


A03 

4510 

753 

c 

HlNGDINSURF,101 = YMGC « SPAN LOCATION OF 

1/4 MGC 


AO 3 

4520 

754 

c 

HlNGDINSURF,111 = XMGC, HORIZONTAL MOMENT ARM TO 1/4 MGC 

A03 

4530 

755 

c 

HlNGDINSURF,121 - ZMGC . VERTICAL MOMENT 

ARM TO 1/4 

MGC 

AO 3 

4540 

756 

c 

WINGOINSURF,131 * DIHEDRAL ANGLE OF 1/4 

MGC 


AO 3 

4550 

757 

c 

HINGOINSURF,141 * SWEFP ANGLE OF 1/4 MGC 



A 0 3 

4560 

758 

c 




A03 

4570 

759 

c 




A03 

45 BO 

76 0 


JX = 100 



403 

4550 

761 


DJX * FLOAT!JX1 



AO 3 

4600 

7 62 


OSPAN- SPAN/DJX 



A03 

4610 

7 63 


ZERO * D5PAN/2.0 



403 

4620 

764 

c 




A03 

4630 

765 


SUMA - 0.0 



AO 3 

464 0 

766 


SUMY - 0.0 



A03 

4650 

76? 


SUMC = 0.0 



403 

4660 

768 


Sum x = o.o 



A03 

4670 

769 


SUMY * 0.0 



A03 

46 80 

770 


Sum z = o.o 



A03 

4680 

771 

c 




A03 

4700 

772 


DO 15 30 J~L'JX 



AO 3 

4710 

773 

c 




403 

472 0 

774 


M$* -80TU* <$YMF-WOI «• DS PAN*f L OAT ! J- 1) ♦ 

ZERO 


A03 

4730 

775 


W4 * 46SCWS1 ♦ EWF1N01 



AO 3 

4740 

776 

c 




AO 3 

475 0 

777 


CALL CORDFIWA , YA , XLF , XTF , ZLE , EP S, CW,tf , CTAH»TAND,TANS,RATS,Ml,M21 

A03 

4760 

778 

c 




AO 3 

4770 

779 


DA* CW*DSP4N 



AO 3 

4780 

780 


I FlSYMF-1*011520,1520,1500 



AO 3 

4790 

781 

1500 

DA- DA/S3RTI 1.0 ♦ TAN0**2 ) 



A03 

4800 

782 

1520 

CONT INUF 



AO 3 

4010 

783 

c 




AO 3 

4820 

704 


OAC = DA*CH 



AO 3 

48 30 

785 


XFl = XLE ♦ CM/4.0 



AO 3 

4840 

786 


ZFl = ZLF 



A03 

4850 

787 

c 




A03 

4860 

788 


CALL CAMP ER INSF,NK,Ml,M2,RATS,EPS , XLE,CM, 

XFl,ZFl 1 


A03 

4870 

789 

c 




AO 3 

4880 

790 


SUMA * SUMA DA 



AO 3 

4890 

791 


SUMC = SUMC ♦ DAC 



A03 

4900 

792 


SUMX = SUMX ♦ 04*XFl 



AO 3 

4910 

7 93 


SUMY = SUMY ♦ □ A*YA 



AO 3 

4920 

794 


SUMZ * SUMZ ♦ 04 * ZF1 



403 

4930 

795 

c 




A 03 

4940 

796 

1530 

CONT INUF 



403 

4950 

797 

c 




A03 

4960 

798 

c 




403 

4970 

799 


WlNGOlNSF, 61 = SUMA 



AO 3 

49 BO 

8 00 


WINGDCNSF, 7 | - tWl NGfJ (NSF,l 1 **2 1/HI NGO INSF ,6 1 


A03 

4990 

801 


WINGOINSF, ft| * WINGDINSF,61/HINGDINSF,11 



AO 3 

5000 

8 02 


HINGDINSF, 91 = SLMC/SUMA 



AO 3 

5010 

803 


H1NG0I NSF,101 * Sumy/SUMA 



403 

5020 

804 


HINGDI NSF, 11) - SUMX/SUMA 



403 

5030 

805 


HINGDINSF,121 = 5UMZ/SUMA 



AO 3 

5040 

806 

c 




AO 3 

5050 

807 


HA- D . 5* I FWEINO) ♦ EWE{N01 1 



40 3 

5060 

SOP 

c 




AO 3 

5070 

809 


CALL COROF1WA,YA,XLF , XTF , ZUE,EP S,CW,CF,CrAB,TAND,TANS , RATS , Ml, M2J 

A03 

5060 

810 

c 




AO 3 

5090 

Sll 


HING01 NSF, 131 * RAO*ATANt TAND 1 



A03 

5100 

812 

c 

HINGO! NSF, 14J = RAO + ATANI TANS 1 



AO 3 

5110 

813 




A03 

5120 

814 

c 




AO 3 

5130 

815 

c 




AO 3 

5140 

816 

c ** 

WING GEOMFTPY ** 



AO 3 

5150 

817 

c 




AO 3 

5160 

818 


CALL PAGF 



AO 3 

5170 

819 


HRITE IKOUT,1010)NSF,< WlNGOINSF ,I 1 , 1 ~ L , 121,HFLAPlINSF1 » WFlAP2INSF 1A03 

5180 

820 


1,HFLAP3(NSF1,FLAP0J(NSF1 , TA9DJ1KSFI , IA|10Jll , N$F1 , I 

= 1,21 ,( HINGDINSA03 

5190 

821 


2F, 11, 1 = 13,141,NSPV,NCV,NCDIS,XCG»YCG,ZC G, 

REFS,REF C, 

REF& 

AO 3 

5200 

822 

c 




A03 

5210 

823 


LIN = L TN ♦ 19 



403 

5220 

624 


HR1TF (KOUT,10301 



AO 3 

5230 

625 


LIN= L1N+3 



AQ3 

5240 

82 6 

c 




A03 

5250 

827 


9-8 



r. 


A03 

9260 

820 


OSPAN- SPAN/20.0 

A03 

5270 

629 


DO 1580 J- l, 21 

A03 

5280 

830 

c 


A03 

5290 

831 


WS- -8QTUMSYMF-1.0) ♦ OSPAN*FLOATIJ-ll 

A03 

5300 

832 


WAA * A8S(WSI ' 

A03 

5310 

833 


WA - WAA ♦ EWE* IMO) 

A03 

5320 

034 

c 


A03 

5330 

835 


CALL CQRDF|WA t YA f XLE fXTE ,ZLE«EP$*CW*CF,CTA8,TAND,TANS*RATS,Ml#M2) 

A03 

9340 

836 

c 


AO 3 

9350 

837 


SIGN - 1.0 

A03 

5360 

838 


TEST* 0.0001 - HAA 

A03 

5370 

839 


IF I TEST) 1540t1550.1550 

A03 

5380 

640 

1540 

SIGN- WS/WAA 

A03 

5390 

841 

1550 

YB* YA*SIGN 

A03 

5400 

842 


DIHE * $IGN*RAO*ATAN<TANDl 

AO 3 

5410 

843 


BETA 3 S1GN*RA0*ATAN(TANS) 

AO 3 

5420 

844 


XC04* XLE * CW/4.0 

AO 3 

9430 

845 

C 


A03 

5440 

846 


If ILINX-tIN) 1560,1570.1570 

AO 3 

5450 

847 

1560 

CALL PAGE 

A03 

5460 

848 


WRITE IK0UT.1030) 

AO 3 

5470 

849 


LIN - LIN *2 

A03 

54 BO 

8 50 

1570 

HR ITE i (OUT■1040)HS,YB,ZLE,XLE.XCOA.XTE,EPS,DIHE.B6TA,CW,CF,CTAfl 

AO 3 

5490 

851 


LIN- LIN +1 

A03 

5500 

852 

1580 

CONTINUE 

AO 3 

5510 

853 

C 


A03 

5520 

854 

C 


A03 

5530 

835 

c 


AO 3 

5540 

856 

c ** 

AIRFOIL SECTION •* 

AO 3 

5550 

857 

c 


A03 

5560 

838 


WRITE |KOUT T 1000} 

A03 

5570 

859 


LIN* LIN #7 43 

A03 

5550 

860 


IE (L1NX-LINI 1590,1600*1600 

AO 3 

5590 

861 

1590 

CALL PAGE 

A03 

5600 

862 


UN- LIN +7 

AO 3 

5610 

063 

1600 

WRITE IKOUT.lOSqnXOCM ,NSFI ,1-1*10) 

A03 

5620 

864 


LIN- LIN * 1 

A03 

5630 

865 

c 


A03 

5640 

866 


OD 1650 J-NO, NB 

AO 3 

5650 

867 


IF ILINX-LINI 1610,1620*1620 

AO 3 

5660 

868 

1610 

CALL PAGE 

A03 

5670 

869 


WRITE CKOUT, I050HXQC U »N$F) *1-1,10) 

A03 

56 80 

870 


LIN- LIN 47 

A03 

5690 

871 

1620 

CONTINUE 

AO 3 

5700 

872 

C 


AO 3 

5710 

873 


00 1630 K*1,10 

AO 3 

5720 

874 

1630 

OUMYFIK 1-0.0 

AO 3 

5730 

875 


K-0 

A03 

5740 

876 


DO 1640 KN-1,NK 

A03 

575 0 

077 


K- K4l 

AO 3 

5760 

878 

1640 

OUHYFCKI- ZOCIKN.JI 

A03 

5770 

879 


WRITE (KDUT*1060 1 X < J> , Y ( J > , t DUM YFCl)*1-1,10) 

AO 3 

57 BO 

§80 


LIN- LIN 4l 

AO 3 

5790 

0 61 

1650 

CONTINUE 

AO 3 

5 BOO 

882 

C 


AQ3 

5010 

883 

C 


AO 3 

5B20 

884 


LIN- LIN 43 

AO 3 

5B30 

885 


IF (LINX-LINI 1660,1670*1670 

AO 3 

5B40 

8B6 

1660 

CALL PAGE 

A03 

5850 

8 87 


LIN- LIN43 

A03 

3860 

888 

1670 

WRITE CKOUT,10001 

AO 3 

5870 

8 89 

C 


AO 3 

5880 

8 90 

C 


AO 3 

5090 

891 

C 


AO 3 

5900 

892 

c *** 

DEBUG OUTPUT ♦** 

AO 3 

5910 

893 

c 


AO 3 

5920 

694 


J16 = JNl(NSF) 

AO 3 

5930 

895 


J 2 6 - JN2INSF) 

AO 3 

5940 

896 

1680 

Jl - JNHNSF) 

A03 

5950 

897 


J2 » JN2CNSF) 

A03 

5960 

096 


K2 - KN2CNSF) 

AD3 

5970 

899 


IF MFLGl20)-n 1880,1690,1690 

AO 3 

5990 

900 

1690 

CONTINUE 

AO 3 

5990 

901 

C 


AO 3 

6000 

902 


J3 - J2 41 

AO 3 

6010 

903 

c 


AO 3 

6020 

904 


LIN* LIN 42 

A03 

6030 

905 


IF IL1NX-L IN) 1700,1710,1710 

A03 

6040 

906 

1700 

CALL PAGE 

A03 

6050 

9Q7 


L IN = UN 42 

A03 

6060 

908 

1710 

WRITE CKOUT,1070) 

A03 

6070 

909 

C 


A03 

6080 

910 


□□ 1770 K-1,K2 

A03 

6090 

9U 


LIN- LIN ♦1 

A03 

6100 

912 


00 1760 J-JUJ2 

AO 3 

6U0 

913 


IF (JSINGPCNSF I .Eg. Jl GO TO 1760 

A03 

6120 

914 


UN* LIN ♦ 1 

A03 

6130 

915 


IF (LINX-LINI 17 2 0,173 0.173 0 

AO 3 

6140 

916 

1720 

CALL PAGE 

A03 

6150 

917 


WRITE (KOUT,10701 

AO 3 

6160 

918 


LIN* LIN +2 41 

AO 3 

6170 

919 

1730 

JP1* J 41 

A03 

6180 

92 0 


WA* EWEC NO) 

A03 

6190 

921 


TEST* ABSCEWtJ,K)-EW(JPl,KM -0.001 

A03 

6200 

922 


IF (TEST) 1750,1150,1740 

A03 

6210 

923 

1740 

WA- 0.5* C E WC J ,K ) 4 EW( JP1 *K| 1 

AO 3 

6220 

924 

1750 

MB* WA - EWECN01 

A03 

6230 

925 


WR ITE IK OUT,1080) J , K, (E N( J ,K, 11 ,1-2,31 ,WB,WA ,EYI J ,KJ, ECU, K ), E$ U 

, A03 

6240 

926 

♦K* 

A03 

6250 

927 

1760 

CONTINUE 

A03 

6260 

920 

1770 

WRITE IKOUT,1020) 

AO 3 

6270 

929 

C 


AO 3 

62 80 

9 30 


L IN- LIN 4 3 

A 03 

6290 

931 


IF (LINX-LIN) 1780,1790,1790 

AO 3 

6300 

932 

1780 

CALL PAGE 

AO 3 

6310 

933 


9-9 



nnnn o n on on o o o non n o noooo no 


1790 

1800 

1610 

C 


1820 

1830 

1840 

1850 


860 
87 0 


I860 

1890 


* 


1900 

* 


c 

c 

c 

c 

c 

c 


c 


c 


ltN* LIN ♦ 3 

A03 

6320 

934 

WRITE (K3UT f lOOCU 

AO 3 

6330 

935 

LIN = LIN *2 

AO 3 

6340 

936 

IF ILINX-LIN) 1BC0,1810.1810 

AO 3 

6350 

937 

CALL PAGE 

AD 3 

6360 

9 38 

L IN = LIN *2 

A03 

6370 

939 

WR ITE (KGUT, 10901 

A03 

6380 

940 


AO 3 

6390 

941 

00 1850 K*1.K l 

A03 

6400 

942 

LIN* LIN +1 

A03 

6410 

943 

DO 1B40 J-J1, J2 

A03 

6420 

944 

IF (JSINGPINSF).EQ.JI GO TO 1640 

AO 3 

6430 

945 

LIN* L IN +1 

A03 

6440 

946 

IF ILINX-UN1 1820* 1830,1 830 

AO 3 

6450 

947 

CALL PAGE 

AO 3 

6460 

948 

WRITE 1 KOU T,10901 

AO 3 

6470 

949 

LIN- LIN *2 

AO 3 

64 80 

950 

CONTINUE 

A03 

6490 

951 

WRITE C K JUT, 11001 J,K,lEVU,K t n ,1*1,5 1 , <EN( J ,K, 11 , I* l, 6 ) 

AO 3 

6300 

952 

CONTINUE 

AOS 

6910 

953 

WR TTF (KDUT, 10201 

AO 3 

6520 

454 


AQ 3 

6530 

955 


A03 

6S40 

956 

LIN* LIN *3 

A03 

6550 

957 

If (LINX-LIN1 1660,1870,1870 

AO 3 

6550 

958 

CALL PAGE 

AO 3 

6570 

9 59 

LIN- LIN *3 

A03 

6580 

96 0 

WRITE (KOUT.IOOOI 

AO 3 

6390 

961 


AO 3 

6600 

962 


A03 

6610 

963 


A03 

6620 

964 

WR ITE ON CALCOHPLOT TAPE * 

AO 3 

6630 

96 5 


A03 

6640 

966 

IF « IFLGI 191-U 2020,1 990,1890 

A03 

6650 

96 7 

CONTINUE 

A03 

6660 

968 


A03 

6670 

969 

KFILE - KFtLE *1 

AO 3 

66 80 

970 

KR EC — 1 

AO 3 

6690 

971 

KWORO = 6 

AO 3 

6700 

972 


AO 3 

6710 

973 

J1 = J16 

A03 

6720 

974 

J 2 * J 26 

AO 3 

6730 

9 75 

J 3 - J 26 ♦ ! 

AO 3 

6740 

976 

REFL = WINGOI1,11/2.0 

AO 3 

6750 

977 

XZER * WINGD11,11) 

A03 

6760 

97 8 

YZER = 0.0 

AO 3 

67 70 

979 

ZZFR * W l NGD(1,121 

AO 3 

6700 

980 


A03 

6790 

9 81 

RECORD 1 - FILE NSURF * 

A03 

6800 

9 82 


A03 

6810 

9 83 

00 1 9 00 J = J 1, J 3 

AO 3 

6BZ0 

9 84 


AO 3 

6830 

985 

WA - EWU, n 

AO 3 

6840 

986 


A03 

6890 

9 87 

CALL COROF(WA,YA,XLE,XTF,ZLE,EPS,CW.CF,CTA0,TANO,TANS,RATS,Ml,M2 1 

A03 

6160 

988 


AO 3 

6870 

9 69 

YLE* EV(J,1,21 

A03 

6880 

990 

YTE- YLE 

AO 3 

6890 

991 

ZTF* ZLE 

AO 3 

6900 

992 

XL C * XLE 

AO 3 

6910 

993 


AO 3 

6920 

994 

CALL CAMBER INSF ,NK,HL,N2,RATS,EPS,XLC,C W, XLE,ZLE1 

AO 3 

6930 

995 


A03 

6940 

996 

SHE- YLE 

A03 

6950 

997 

CALL FLAPHNSF, WA,SHE,XTE ,CF,CTAB,TAND, XLE *YIE ,ZLE, C0S3I 

AO 3 

6960 

998 


A03 

6970 

999 

CALL CAM8ER(NSF,XK,Ml f M2,RATS,EPS,XLE,CW, XT E,ZTE) 

A03 

69 80 

1000 


A03 

6990 

1001 

SHF* YTF 

A03 

7000 

1002 

XLC* XTE 

A03 

7010 

1003 

CALL FLAPHNSF, WA,SHE,XLC ,CF,CTA8 t TAND, XT E ,YT E,ZT E, C053 I 

AO 3 

7020 

1004 


A03 

7030 

1005 

CALL I SONET1XLE , VLE,ZLE, REFL , XZER,YZER,ZZER) 

A03 

7040 

1006 

CALL ISG5ETIXTE,YTE,ZTE, REFL , XZER, YZER, ZZE Rl 

A03 

7050 

1007 


A03 

7060 

1008 

WR ITE (KT2 JKREC,KWORO,XLE,YLF,ZLE,XTE,YTE,ZTE 

AO 3 

7070 

1009 


A03 

70 80 

1010 


A03 

7090 

1011 

RECORD 2 - FILE NSURF * 

A03 

7100 

1012 


AO 3 

7110 

1013 

KR EC = KREC + 1 

A03 

7120 

1014 

KWORD- 3 

A03 

7130 

1015 

ITFT- 1 

AO 3 

7140 

1016 


A03 

7150 

1017 

DG I960 J *J11 J 3 

AO 3 

7160 

1010 


AO 3 

7170 

1019 

W4 - EWtJ,1) 

AO 3 

71 80 

1020 


AO 3 

7190 

1021 

CALL CORDFIWA,YA ,XLE,XTF ,ZLE,EP 5,CW,CF,CTAB,TAND,TANS,RATS,Ml, >42) 

A03 

7200 

1022 


AO 3 

7210 

1023 

I T FT - - ITfT 

AD 3 

7220 

1024 

KFW = UTE T ♦ 11/2 

AQ 3 

7230 

1025 

KFR = U- t TE T)/2 

AO 3 

7240 

1026 


A03 

7250 

1027 

DO I9 60 K X * 1, K 2 

A03 

7260 

102 8 


AO 3 

72 70 

1029 

K * KX*KFW ♦ lK 2 + 1-KX )* KFB 

A03 

72 00 

1030 

XFl * EV<J,K*1) - 0.2 5*EC1J,K) 

AO 3 

7290 

1031 

YF1 = EV< J,K,21 

A03 

7300 

10 32 

Z F1 = ZLE 

AO 3 

7310 

1033 


AO 3 

7320 

1034 

XF2 - XFl + FC ( J ,K) 

AO 3 

7330 

1035 

YF2 = YF1 

AO 3 

7340 

1036 

Z F 2 - ZLF 

AO 3 

7350 

1037 


40 3 

7360 

103 B 

IF < ITET J 1910,1910,1930 

403 

7370 

1039 


9-10 
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1910 CALL CA«BER<NSF f NK,Ml.M2.RATS,6PS,XLe t CW* XF2,ZF2> 

C 

SHE* YF2 

CALL FLAPIIN5F,WA , SHE* XTE »CF,CTAB,TAND, XF2,YF2,ZF2, CCTS3I 
C 

CALL ISOMETI KF2,VF2,ZF2, REFL,XZEft,YZEIUZZCR> 

C 

Wft1TE (KT2>KREC*KR0«0tXF2,YF2*ZF2 
C 

IF IK2-KX) 1920,1920,19*0 

1920 CALL CAMBER1NSF,NK,ML,M2,RATS,E P$*XL€ *C W» XF1,ZF1> 

C 

SHE- YF1 

CALI FLAP fl NSF,MA,SH£,XTE ,CF»CTAB,TAND, XFl.VFl.ZFl, CO$3> 

C 

CALL ISONETI XFl,YFi,ZFl, REFL,XZER,YZER,ZZER) 

C 

WRITE OcT2lKR£C,KHOftD,XF1,YFl,ZF1 
GQ TO 1950 
C 

1930 CALL CAHBERtNSF,NK,Ml,M2,RAT5,EPS,XLE,CW, XFl.ZFll 

C 

SHE* YF1 

CALL FLAP I(NSF,HA,SHE, XTEfCF»CTA8,TAN0, XFl,YPl,Zfl, COS3 I 

C 

CALL ISOMETIXF 1,YF1,ZF1. REFL,X2€R,YZER»ZZ6A i 

C 

MRITE IKT2 JKREC,KMQRD,XF1,YF1,Zfl 
C 

IF (K2-KX) 194 0 »19AO,1950 

1940 CALL CAMBER INSF,NK,M1,M2,RATS,EPS,XLE,CW, XF2.ZF2I 
C 

SHE- YF2 

CALL FLAPIINSF, *A,SHE,XTE,CF,CTAB,TAND, XF2,YF2,ZF2, C0S3 i 

C 

CALL 1S0MET<XF2.YF2,ZF2, REFL*XZ€R»YZEft,ZZERI 

C 

WRITF (KT2IKREC *FMORO,XF2 f YF2,ZF2 
C 

1950 CONTINUE 
I960 CONTINUE 


* RECORD 3 - FILE NSURF * 

KREC= KRFC *1 
KMORO- 3 
ITET * -I 

DO 2010 K»2,K2 

00 2000 J-JI.J3 

IF I ITETI 1970*1910,1980 
1970 JR- J 

GO TO 1990 
19flQ JR« J1+J3 -J 
1990 CONTINUE 

MA - ewijft ,K> 

' CALL COROF(HA * YA ,XLE,XTE,ZLE,EPS,CW*CF,CTAB,TAND,TANS,RATS,Ml,M2 ) 

XFI * EVIJR,K,U - 0.25*ECCJR,K> 

YF1 - EVIJR,K,2) 

ZF1 * ZLE 

CALL CAM5ER(N$F,NK,Ml,M2*RAT$ t EPS f XLE*CM, XF1,ZF11 
SHE - YF1 

CALL FLAP HNSF,WA, SHE, XTE *CF *C TAB i TAND , XFl,YFl,ZFl, C0S3J 
CALL 1S0METIXF1,YFi,ZFl. REEL,XZER*YZER,ZZER1 
2000 WRITE IKT21KREC ,KkORO,XFl*YFI,ZF1 


ITET* -ITET 
2010 CONTINUE 


END FILE KT2 

LIN- LIN *2 

WRITE (KOUT,i130IKFILE 


0 CONTINUE 


**♦ COMPUTE IMAGE VERTICAL SURFACES *** 

IF (NREPET.EO.O) GO TO 2060 
NREPET- 0 

INAGEFINSF1= 2* IFAGEF|NSF J 
J1 = JN1INSFI 
J2 » JN2INSFJ 
J3 * J2 +i 
Jl= J 3 

JSINGPINSF I* J3 

SYNGFINSFI * 2.0 

WING0(N$F,6) - WlNGDlNSf,61*2.0 

WINGOINSF,101- 0.0 

00 2050 J=>Jl, J3 

JI- JI *1 

DO 2040 K= 1,K2 


AO 3 73 BO 
AOS 7390 
A03 7400 
AO3 7410 
A03 7420 
A03 7430 
A03 7440 
A03 7450 
A03 7460 
A03 7470 
A03 7480 
AO3 7490 
A03 7500 
A03 7510 
A03 7520 
A03 7530 
A03 7540 
AOS 7550 
AO3 7560 
A03 7570 
AO3 7580 
A03 7590 
A03 7600 
A03 7610 
A03 7620 
AO3 7630 
AOS 7640 
A03 7650 
A03 7660 
A03 7670 
A03 7680 
AOS 7690 
A03 7700 
AOS 7710 
A03 7720 
AOS 7730 
AOS 7740 
403 7750 
A03 7760 
A03 7770 
A03 77BO 
A 03 7790 
A03 7000 
AO3 7810 
A03 7020 
A03 7830 
AO 3 7040 
AOS 7050 
A03 7960 
A03 7870 
AOS 7090 
AOS 7890 
AOS 7900 
AOS 7910 
A03 7920 
AO 3 7930 
A03 7940 
A03 7950 
A03 7960 
A03 7970 
A03 7980 
A03 7990 
AOS 9000 
AO 3 8010 
AOS 8020 
AO3 8030 
AO3 8040 
403 8050 
A03 0060 
A03 8070 
403 8080 
403 8090 
AO3 8100 
AOS 8110 
AOS 0120 
AO 3 8130 
AO3 8140 
A03 8150 
A03 8160 
403 8170 
403 0100 
403 0190 
403 8200 
AO3 B2I0 
AO3 8220 
AO 3 B230 
AO3 6240 
A03 0250 
A03 0260 
A03 0270 
A03 8280 
AO3 0290 
403 8300 
403 8310 
A03 8320 
A03 8330 
AOS 8340 
A03 8350 
A03 8360 
AOS 0370 
A03 8300 
A03 8390 
AOS 9400 
A03 8410 
AOS 8420 
403 0430 


1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
10B2 
108S 

1064 

1065 
10B6 

1007 

1008 
1009 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 
IUT 
1110 
1114 
1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 
LL42 

1143 

1144 

1145 
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DO 2030 1-1.6 
EN I J I , K , L ) » ENIJ,K ,L> 
2030 EVIJltKtU = EV1J,K,L) 
FY!Jl,KI = FYlJtK) 

ESC JI»K l a E$<J,K! 

EW 1 J I »K I* FW(J,K) 
ECIJI.KI* ECIJ,K) 
EN(JrK r 2) 3 -£NlJ*K,2l 
EVIJ,K,21 - -EV(J,K,2) 
2Q4Q CONTINUE 
2050 CONTINUE 

JN2INSFJ* Jt -l 
GO TO 1680 


Ji* JNZINSF1 *2 

RETURN 
XXKX XX 

END 


A03 

B440 

1146 

AO 3 

B450 

1147 

A03 

0460 

1146 

A03 

0470 

1149 

AO 3 

8480 

1150 

AO 3 

6490 

1151 

A03 

8500 

1152 

A03 

6510 

1153 

AO 3 

6520 

1154 

A03 

8530 

11 55 

AO 3 

6540 

1156 

A03 

6590 

1157 

AO 3 

8560 

1136 

A03 

8570 

11 59 

A03 

65 80 

1160 

A03 

6590 

1161 

A03 

8600 

1162 

AO 3 

6610 

1163 

A03 

6620 

1164 

A03 

0630 

1165 

A03 

0640 

1166 


FOR A04,A04 ft 0* 

404 

A04 

SUBROUTINE lI FTX <ALFA, ZHE I GT,SY MLF, NSURFL,NSUR F2) A04 

A04 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISEO 6 AUG.72 *AQ 4 

* PROGRAM OEVELOPED BY A.V.GOMEZ (TRW SYSTEMS! QN JUNE-JULY 1971 *A04 

A04 

XXXXXKXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXA04 


A04 

DOUBLE PRECISION SCALE,SUP,0FTERM,AMAT<100,100)iVMAT 1 100) A04 

OIHENSION JNOI5 i A04 

DIMENSION SYMLFIfl, SUMSL141 A04 

01 MENS ION PI 3) ,8(31 «(U3) A04 

DIMENSION COS1! 3) »C0S2 131 ,C0S3I3) A04 

DIMENSION PW<3),8h(3l.DW(3) A04 

DIMENSION SUMLI2*5,31,SUMR!2,5,3),SUMP!2,5,3I,FACN!5,31 A04 

DIMENSION SUMCGI31.SUMPGI3!.FACNG131 A04 

DIMENSION ZUML<2,5p3),ZUMR12,5,31,ZUMP!2.5,3) A04 

DIMENSION ZUMLG < 3 ) ♦ ZUMPGI 3) p ZAC NG 13 ) , ZUMSK4 > A04 

C A04 

COMMON/OATAOl/ KTfv* KOUT, KTL, XT2, KT3, KREC« KFILE. LIN. LINX A04 

1 ,RAD, PIE, CUT0F1, CUT0F2, DEL ALF, LFLAP, LDRAG, COLOCP A04 

2 , IFLGl20 I. EXECM15) A04 

C AO 4 

COMMON/DATA02/ NfcING, NFUS, NVTAIL, NSS 15» # NSS0(5>, NCS1S1 A04 

1 . X( 301. Y I 301 . ZOO) • EI30), t (30) , XOCRI30), FL APCI 30), T ABC! 30 i A04 

2 ,MSMOTH. EwEI 301, ELE1301, ETEI301, EHEI301, EHEEUOI A04 

3 ,XOC(ia,5I. ZOC110,30) A04 

COMMON/DATA22/IMAGEF C 5 J t J SINGPI51 A04 

C A04 

C0MMON/OATAO3/FLAPDJI51 ,TAflOJC5),AlLOJI2,5l» DELTF1(51,OELT f21 51 A04 

1 ,WFF11(51, WFF12151» WFF21I5), WFF2215), WFF31I5I A04 

2 ,WFLAPll5lf WFLAP2I5I, WFLAP3C 5) A04 

C AO 4 

COMMON/DATA04/ fc!NG0|5,l6l, JN1I51, JN2I51, KN2151, SYMGf15),NSURFA04 

1 ,EWC 60,1G)» E Y| 60,10) « ECI60.10I, ES!60,10I, EGI60,10> A04 

2 ,FNI60,10,61, EVI60,10,6J, VVINOX<60,10,31 A04 

C A04 

COMMON/DA TA05/XCG,YCGiZCG,REFS,PEFCfREFB A0 4 

C A04 

C A04 

1000 FORMAT1 IX 1 A04 

1010 FORMAT!IX,//,1X1 A04 

C A04 

1020 FDRMATI34X,41HV0RTEX LATTICE MATRIX DETAIL-SURFACE NO.I 2,2H/1» I 2A04 
L,IH,12,1H1,/,34X,51IIH*I•// P 1XI A04 

1030 FORMAT( 1K,12H J K NP NG, A04 

2 60F VFSIMAT1 YIN(MAT) PIX] PIY1 P(Z> BIX) , A04 

3 50H RIYI BIZ! D|XJ DIY1 D1 Z1 ,/,lX) A04 

1040 FORMAT!IX,413,11F 10.4! A04 

C A04 

1050 FORMAT! 36X,37HL IFT DISTRIBUTION DETA1L-SJRFACE NO , 12,2H/! , I 2, A04 

1, 1H,I2, 1H1 ,/, 36X,4 7UH* ) ,//,!*) A04 

1060 FORMAT!3X,4HJ K,5X,40HP(X) PlY) P(Z) AREA , A04 

160HCPN G(X1 GIY1 01Z) VIIX1 VIIY) , A04 

215HV HZ) GAMA , /,1X1 A04 

1070 FORMAT! IX, 213, 3F10.3, 2F10.4, 6F10.5, E10.4 1 A04 

C A04 


1080 FORMAT!34X,41HSEC TI ON AIRLOAD COEFFIC1ENTS-SURFACE N0.»,12,ZH/C , I 2AO 4 
1, 1H, 12, 1H>,/,34X,51UH*J ,// t lX| A04 

1090 FDRMATI3X,52HJ Y* Y l W SCN SCX,A04 

1 6X,58HS:l SCO SMP C/4 SCLCZfi LXL IYL 1ZL ,A04 

2 /,1X \ AO4 

1100 FDRMAT!IX,I 3, F 0.4,3F 9. 3,6F 9. 4,3 F9.41 A04 

C AO 4 

1110 FORMATI///p 34X,45HINTEGRATFD AIRLOAD COEFFtCIENTS-SUR FACE NOS.-.12A04 
1,2fc - p 12,/,34X, 5HIH*1 ,/// , 2 5H E ECN ECX ECY.A04 

2 54H FCL ECD ECMP ECMR ECMY EX A, A04 

3 33H FZA ES FMGC Ffl./, IX) A04 

1120 FORMAT! IX, 12, PF9.4, 5F9,2 ) A04 

C A04 

1130 FORMAT!IX,/,49X,20H**M AIRLOAD SUMS ***,//, A04 

* 3 H AC,8F9.4,5f9.2, /,3H CG ,8F9.4 ,5F9.2 ♦ A04 

*/4H AC P0I FR.4,1M*I,5!F8.2 P IH*|p/4H CG ,81 FB.4 , IH*I , 5 < F8 . 2 , 1H*» , A04 

1 //p 37Xp14H+ OETFRM1NANT» ,E10.4,9H * SCALE*pE10,4,2H *, t /, 1X1 A04 

1)40 FORMAT!IX,12,IX,E(F6.4.1H4J,5!F8.2,IH+) ) A04 

C A04 

C AQ4 

C XXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXA04 

C AD4 

C AO 4 


13 
20 
30 
40 
50 
60 
70 
BO 
90 
100 
no 
120 
130 
140 
150 
160 
1 TO 

1 BO 
190 
200 
210 
220 

2 30 
240 
250 
260 
270 
280 
290 
300 
310 

3 20 
330 
340 
3 50 

3 60 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 

4 BO 
490 
500 
510 
520 
530 
540 
550 
560 
5T0 
580 
590 
6 CO 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
900 
810 
820 


1167 

1166 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 
11B7 

nee 

1189 

1190 

1191 
1L92 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 
1207 
1206 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 
1217 
121 B 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 
1227 
1220 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 
L2 40 

1241 

1242 

1243 

1244 

1245 

1246 

1247 
124B 
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c 

A04 

630 

1249 

C * INITIALIZE * 

AO 4 

640 

1250 

C 

A04 

850 

1251 

ALF4R- ALFA/RAO 

A04 

860 

1252 

TANA * TANlALFARt 

A 04 

670 

1253 

COSA * I.O/SQRTIl.0+TANA*«2) 

A04 

660 

1254 

SINA * TANA*COSA 

A04 

690 

1255 

TANV® ~TAN(O.S*AlFAR> 

A04 

900 

1256 

TANVG« -TANI1.5*ALFARI 

A04 

910 

1257 

UNIT * 0.25/PIE 

A04 

920 

1258 

UNITG* -UNIT 

A04 

930 

1259 

C 

A04 

940 

1260 

C 

A04 

950 

1261 

DQ 1160 NSF*NSURF1,NSURF2 

A04 

960 

1262 

C 

*04 

970 

1263 

NZERCI* JNIINSFI 

*04 

980 

1264 

TEST« SYMLFINSFI 

A04 

99Q 

1265 

IF ITEST) 1150,1 150«1160 

A04 

1000 

1266 

1150 NZERO- IMAGEF1NSF)/2 * NZEPO 

A04 

1010 

1267 

IF<JSINGPINSFl.NE.OI N2ER0- NZERO ♦! 

A04 

1020 

1268 

1160 JNOINSF)* N2ERQ 

A04 

1030 

1269 

C 

A04 

1040 

1270 

C 

A04 

1050 

1271 

c 

A04 

1060 

1272 

C * CALCULATE MATRICES VHATINVl t ABATING,NV1 * 

A04 

1070 

1273 

C 

A04 

1060 

1274 

NV * 0 

A04 

1090 

1275 

c 

A04 

1100 

1276 

c 

A04 

1110 

1277 

00 1520 NSF*NSURF1,NSURF2 

A04 

1120 

1278 

C 

A04 

1130 

1279 

K* NSF ♦ 5 

A04 

1140 

1280 

JL a jniinsfi 

AO 4 

1150 

1281 

J2 * JN2(NSF1 

A04 

1160 

1282 

K2 * KN2INSFI 

A04 

1170 

1281 

NZERO * JN01NSF) 

A04 

1160 

1264 

NSPV- IMAGEFINSFl 

AO 4 

1190 

1265 

NCV » IFLG(K) 

A04 

1200 

1266 

NM * 0 

A04 

1210 

1267 

NOO* NSSOINSF > 

A04 

1220 

1288 

C 

A04 

1230 

1289 

C 

A04 

1240 

1290 

C 

A04 

1250 

1291 

00 1480 KY-I.K2 

AO 4 

1260 

1292 

00 1450 JV*NZER0,J2 

A04 

1270 

1293 

IF 4JSINGPINSF1.EQ.JV) GO TO 1450 

A04 

1260 

1294 

NV» NV*1 

AO 4 

1290 

1295 

C 

AO 4 

1300 

1296 

STMGF2 3 SYMGFlNSFI-l.O 

AO 4 

1310 

1297 

SYMGF3*-SYKGFINSF 1*2.0 

AO 4 

1320 

1298 

C 

A04 

1J30 

1299 

cosim* cosa 

A04 

1340 

1300 

C0S1I2I- 0.0 

AO 4 

1350 

13Q1 

COS 11 51* -SINA 

A04 

1360 

1902 

c 

A04 

1370 

1303 

DO 1170 L- 1'3 

A04 

1380 

1304 

LP3* L *3 

A04 

1390 

1305 

C0S2IL ENUV*K% f LP3l 

A04 

1400 

1306 

1170 PILI* EN<JV,KV,LI 

A04 

1410 

1307 

C 

A04 

1420 

1308 

JP1» JV *1 

A04 

1430 

1309 

UA « EtfElNOOl 

AO 4 

1440 

1310 

TEST* ABSI EW{JV,KV» - EWIJPWKVl 1 - 0.001 

A04 

1450 

1311 

IF ITESTJ H9D, 11*30,1180 

A04 

1460 

1312 

1160 UA * (EU(JV,KV> * EUlJPlfKVl 1/2.0 

A04 

1470 

1313 

1190 CONTINUE 

A04 

1460 

1314 

SHE * ENIJV,KV,2I 

A04 

1490 

1315 

C 

A04 

1500 

1316 

CALL CORDF|WA,YA,XL&,XTE,ZLE.EP5*CWtCF,CTA0,TAND,TANS,RATS,Ml,M2> 

A04 

1510 

1317 

CALL FLAPS(NSF,UA f SHF,XTE,CF,CTAB * TANO, P,C0S2I 

A04 

1520 

1318 

CALI OOTPICOSl,CCS2,VMATOPI 

AO 4 

1530 

1319 

c 

A04 

1540 

1320 

c 

AO 4 

1550 

1321 

VMATINVI* VMATOP 

A04 

1560 

1322 

C 

A04 

1570 

1323 

C 

AQ4 

1580 

1324 

OD 1200 L*1,3 

AO 4 

1590 

1325 

1200 COSHLl* C0S2IL1 

A04 

1600 

1326 

C 

A04 

1610 

1327 

C 

A04 

1620 

1328 

c 

AO 4 

1630 

1329 

NG= 0 

A04 

1640 

1330 

00 1440 NSP«NSURFl,N$URF2 

AO 4 

1650 

1331 

c 

A04 

1660 

1332 

JO * JNOINSR) 

A04 

1670 

1333 

J3 * JNHNSR) 

A04 

1660 

133* 

J4 * JN2INSRI 

AO 4 

1690 

1335 

K4 - KN2CN5R1 

AO 4 

1700 

1336 

C 

AO 4 

1710 

133 7 

SYMGF2 - SYMGFINSR1 - 1.0 

AO 4 

1720 

1338 

SYMGF3 —SYMGFIN5RI * 2.0 

A04 

1730 

1339 

SYMLDG * SYMLFINSRI 

AO 4 

1740 

1340 

C 

A04 

1750 

13*1 

DO 1430 KG=l,K4 

A04 

1760 

1342 

C 

AO 4 

1770 

1343 

NV * 0 

A04 

1700 

1344 

c 

AO 4 

1790 

1345 

c 

A04 

1600 

1346 

00 1520 NSF*NSURF1,NSURF2 

A04 

1810 

134T 

c 

A04 

1820 

1348 

K* NSF * 5 

A04 

1830 

1349 

J1 “ JNIINSFI 

A04 

1840 

1350 

J2 • JN2INSFI 

AO 4 

1850 

1351 

K2 * KN2INSFI 

A04 

I860 

1352 

NZERO * JNOINSF 1 

AO 4 

IBTO 

1353 

N5PV- IMAGEFINSFl 

AO 4 

I860 

1354 
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NCV = 1FL&1K1 

A04 1090 

1355 


NH - 0 

A04 1900 

1356 


N00* NS501NSFI 

AO 4 1910 

1357 

c 


AO 4 L920 

1350 

c 


AO4 1930 

1359 

c 


AO 4 1940 

1360 


DO 1400 <V= l »K2 

A04 1950 

1361 


On 1450 JV=NZE«a,J2 

AO 4 I960 

1362 


IF <JSINGP(NSF)♦EQ.JV) GO TO 1450 

A04 1970 

1363 


NV= NV*l 

A 0 4 1990 

1364 

c 


AO 4 1990 

1365 


5VMGF2* SYM&FlNSF1-1.0 

AQ4 2000 

1366 


5VMGF3--SYMGF1NSF1*2.0 

A04 20 LO 

1367 

c 


A04 2020 

1368 


COSH 11 * COSA 

A04 2030 

1369 


cos 1121 - o.n 

A04 2040 

1370 


C0$1(3I~ -SlNA 

A04 2050 

1371 

c 


A04 2060 

1372 


DO 1170 L*U3 

A04 20T0 

1373 


LP3* L *3 

A04 2080 

1374 


CO S 2 < L 1= EN1JV,KV,LP3I 

A04 2090 

1375 

i 1 TO 

P( l 1 = fNUV, KV,L) 

A04 2100 

1376 

c 


A04 2110 

1377 


JPl= JV *X 

A04 2120 

1378 


WA = FWEIN001 

404 2130 

1379 


TEST- ABS< FW(JV,KV) - Ew(JPl,KVl 1 - 0.001 

A04 2140 

L 3 BO 


TF (TEST) 1190,1190,1180 

A04 2150 

1301 

1180 

WA = <EW<JY,KVI ♦ FMJPl.KVl 1/2.0 

A04 21 SO 

1302 

1190 

CONT TMUE 

404 2170 

1383 


SHE = ENt JV,KV,2 1 

AO 4 2180 

1384 

c 


404 2190 

1305 


CALL CORDFlWA,YA ,XLf,XTE ,ZLE,EP SiCW,CF,CTAB,TAND,TANS,RATS , HI,421 

A04 2200 

1306 


CALL FLAPS1NSF, WA ,SHE,XTE,CF,CTAB,TAND, P.C0SZ1 

404 2210 

1307 


CALL OOTP ( CO SI»CC S2 » VMATDPI 

AO4 2220 

130R 

c 


AO4 2230 

1389 

c 


404 2240 

1390 


VMATINV1 = VMA TOP 

AO4 2250 

1391 

c 


AQ4 2260 

1392 

c 


AO4 2270 

1393 


DO 1200 L c l♦3 

AO4 2280 

1394 

1200 

cosm»« cns2(Li 

A04 2290 

1395 

C 


404 2300 

1396 

c 


A04 2310 

1397 

c 


AO4 2320 

1390 


NG = 0 

.404 2330 

1399 


no 1440 ^SA-NSURFltNSURf2 

A04 2340 

1400 

c 


A04 2350 

1401 


JO = JN0INSR1 

404 2360 

1402 


J 3 = JNUNSR] 

A04 2370 

1403 


J 4 = JN21NSR1 

A04 2380 

1404 


K4 = KN2INSR J 

AO4 2390 

1405 

c 


AQ4 2400 

1406 


SYHGF2 = SYHGFINSRI - 1.0 

AO4 2410 

1407 


SYHGF3 SYMGF ( NSP1 ♦ 2.0 

AO 4 2420 

1408 


SYMLDG = SYMLFCNSRI 

404 2430 

1409 

c 


AO4 2440 

1410 


on 1430 KG * 1 » K 4 

AO4 2450 

L4U 


na l 42o jg=jo,J4 

A04 2460 

1412 


IF 1JS1NGP4NSRI.60.JG) GO TO 1420 

A04 2470 

1413 


NG= NGU 

A04 2480 

1414 

c 


404 2490 

1415 


JP1 - J G ♦ l 

404 2500 

1416 


WA = FWIJG.KG1 

AO4 2510 

1417 

c 


AO4 2520 

1418 


00 1210 1=1,3 

AO4 2530 

1419 


LP 3= L*3 

404 2540 

1420 


B C L 1 ~ E V 4 J G t KG « L 1 

AO4 2550 

1421 

1210 

D<L1 = EVlJPlfKGfLl 

AQ4 2560 

1422 

C 


A04 2570 

1423 


SHF * B1 2 1 

A04 2580 

1424 

c 


A04 2590 

1425 


CALL CC1R0F <WA,Y4 , XLE , XTE , ZLE , EPS , CM , CF , CTAB , TAND*TANS , RATS , Ml , M2 1 

404 2600 

1426 


CALL FLAPSlNSft,WA f SHF,XTE,CF,CTAB,TANO, B,tOS3l 

A04 2610 

1427 

c 


A04 2620 

1428 


WA - EW<JPl,KG> 

A04 2630 

1429 


SHE = 0121 

AQ4 2640 

. 1430 

c 


A04 2650 

1431 


CALL CORriF 1 WA,YA ,XLE ,XTF ,ZLE ,6P$,CW,CF,CTAQ,TAND,T ANS , P AT S , Ml , M2 1 

A04 2660 

1432 


CALL FLAPSCNSR , HA.SHF , XTE t CF ,CTAB,TAND, D,C0S31 

A04 2670 

1433 

c 


404 26B0 

L434 


DO 1220 L = l » 3 

A04 2690 

1435 


PW(L1 » P(L1 

404 2700 

1436 


BWtLl = B1LI 

404 2710 

1437 

1220 

OH(L1 = DILI 

AO4 2720 

1430 

C 


AO4 2730 

1439 


CALL VORTextP T B,D,TANV,ONlT, Vl,C0S2) 

AO4 2740 

1440 


CALL DOTP (CnSi,CCS2, SUM11 

AO4 2750 

1441 

e 


AO4 2760 

1442 


SUM l = SUMl*V! 

A04 2770 

1443 


SUM 2 = 0.0 

AO4 2790 

1444 

c 


A(14 2790 

1445 


IF ( 1FLGI171-LJ 1240,1230,1230 

404 2600 

1446 

1230 

CONT1NUE 

A04 2010 

1447 

C 


AD4 2B20 

1448 


CALI REFLFC (B, ZHE[&T,ALFARtCOSA) 

A04 2630 

1449 


CALL REFLEC <0,ZHFIGT,ALFAR.COSAl 

404 2640 

1450 

C 


404 2850 

1451 


CALL VORTEX<P,H,n t TANVG«UNlTG» VI.C0S2J 

404 2060 

1452 


CALL nnTP(C0Sl,CCS2tSUM31 

AQ4 2870 

1453 

C 


404 2860 

14 54 


SUM l = SUM 1 ♦ SUHI^VI 

A04 2090 

1455 

C 


A04 2900 

1456 

12^0 

CUNT INUE 

AO4 2910 

1457 

C 


AO4 2920 

1450 


ITE5T= J 3 -JO 

604 2930 

1459 


IF (ITFST1 1250,1200,1300 

AO4 2940 

1460 
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1250 JH * J3 ♦ J4 - JG 


A04 

2950 

1461 

IF* JS1NGP(NSR KNF.OI JH* JG-J0+J3 


A04 

2960 

1462 

IF (JH-JG1 1260*1300*1300 


A04 

2970 

1463 

1260 CONTINUE 


A04 

2980 

1464 

c 


AO 4 

2990 

1465 

JP1 a JH tl 


A04 

3000 

1466 

WA * EH ( J H« KG t 


A04 

3010 

1467 

c 


A04 

3020 

1468 

00 12 7 0 L«l,3 


AO 4 

3030 

1469 

LP 3* L ♦3 


A04 

30 40 

1470 

BUI* EV* JH,KG ■ L 1 


A04 

3050 

1471 

1270 D( l 1 * EV* JF l« KG , L ) 


AO 4 

3060 

1472 

c 


AO 4 

3070 

1473 

SHE * BIZI 


A04 

3080 

1474 

c 


AO 4 

3090 

1473 

CALL CORDF tWA,YA,XLE,XTE» ZLE * EP S, CW ,C F , 

CTA8,TAN0,TANS,RATS,ML,*21 

AQ4 

3100 

1476 

CALI FLAPSINSR,NA,SHE,XTE,CF,CTA0,TAND, 

8, COS 3) 

AO 4 

3110 

1477 

c 


A04 

3120 

1470 

HA * EH(JP 1 •KG ) 


A04 

3130 

1479 

SHE * 0121 


A04 

3140 

1400 

C 


AO 4 

3130 

1401 

CALL CORDF tHA t YA.XLE,XTE,Ue*EP$.CH*Cf * 

CTAB,T AND,T ANS,RATS,Ml, M21 

A04 

3160 

1402 

CALL FLAPSINSR,HA,SHE,XTE,CF,CTA0.TAND» 

D,C0S3> 

A04 

3170 

1403 

c 


AO 4 

3100 

1404 

IF CjStNGP*NSftl.LE.JH.Ofi.JO.LE,J3I 


A04 

3190 

1405 

* CALL VO 1 * TEX* P«B,0, TANV ,UNI T, VI,C0S2 

1 

A04 

3200 

1406 

IF*JSINGPIN5R).GT.JH.ANO.J0.GT.J31 


A04 

3210 

1407 

* CALL VORTEX* P,0,B, TANV,UNIT, VI,C0S2 

1 

A04 

3220 

I486 

CALL OOTP* CQSl,CCS2,SUH21 


AD4 

3230 

1409 

c 


AO 4 

3240 

1490 

SUM2= SUM2*V1 


AO 4 

3230 

1491 

c 


A04 

3260 

1492 

IF (IFLG* 171-11 1240,12 90,1260 


A04 

3270 

1493 

1200 CONTINUE 


A04 

3280 

1494 

c 


A04‘ 

3290 

1495 

CALL REFLEC*8,ZHE!GT,ALFAR,C05A1 


A04 

3300 

1496 

CALL REFLECIO,ZHElGT,ALFAR,CGSA| 


A04 

3310 

1497 

c 


A04 

3320 

1498 

IF * J SINGP* NSRI.LE.JH.0R.J0.LE.J3I 


A04 

3330 

1499 

* CALL VORTEX* P,B,D, TANV,UNIT, VI.CGS2 

1 

A04 

3340 

1500 

IF*JSINGP4NSRJ.GT.JH.AND.J0.GT.J31 


AO 4 

3350 

1501 

* CALL VORTEX* P,C,B, TANV,UNIT, VI,C0S2 

1 

AO 4 

3360 

1902 

CALL OOTP * COS1,C 0S2,SUH41 


A04 

3370 

1503 

C 


A04 

3380 

1504 

SUH2* SUM2 ♦ SUM4#VI 


AO 4 

33 90 

1505 

C 


A04 

3400 

1506 

1290 CONTINUE 


404 

3410 

1507 

C 


A04 

3420 

1506 

1300 CONTINUE 


A04 

3430 

1509 

c 


A04 

3440 

1510 

c 


A04 

3450 

1511 

AMATING,NV1 « SUM1 ♦ SUH2 


A04 

3460 

1512 

C 


AO 4 

34 70 

1913 

( 


A04 

3400 

1514 

IF (EXECXI151-1,01 1310,1410,1410 


AO 4 

3490 

1515 

1310 IF * If LGI 201-5 1 1410,1320,1320 


AD4 

3500 

1516 

1320 IF (NM-11 1330,1130,1390 


AO 4 

3510 

1517 

1330 LIN» LIN *4 


A04 

3520 

1518 

NM n 10 


A04 

3530 

1519 

IF ILINX-L1N) 1340,1350,1350 


A04 

3540 

1520 

1340 CALL PAGE 


AO 4 

3550 

1521 

• LIN* LIN «-4 


A04 

3560 

1522 

1350 HRITF |KOUT,1020)N5F,NSURFl,NSURF2 


A04 

3570 

1523 

1360 LIN® LIN *2 


AO 4 

35 BO 

1524 

IF ILINX-LIN1 1370,13B0«1380 


A04 

35 90 

1525 

1370 CALL PAGE 


A04 

3600 

1526 

LIN= LIN ♦2 


A04 

3610 

1527 

1380 HR ITE (KOUT,10301 


A04 

3620 

1528 

1340 LIN* LIN *1 


AO 4 

3630 

1529 

IF * LlNK-LINI 13TC,1400*1400 


A04 

3640 

1530 

1400 WRITE CKOUT,1040IJV,XV,NV,NG,VMATINV1,AMATING,NVI,IPHII1,1*1,31,(BA04 

3650 

1531 

1 W* n»[«l,3>,!DW*n,I~l,3) 


A04 

3660 

1532 

1410 CONTINUE 


AO 4 

3670 

1533 

c 


A04 

3680 

1534 

c 


A04 

3690 

1535 

1420 CONTINUE 


AO 4 

3700 

1536 

1430 CONTINUE 


A04 

3710 

1537 

1440 CONTINUE 


AO 4 

3720 

1538 

c 


AO 4 

3730 

1539 

c 


AO 4 

3740 

1540 

CALL AeORTJI4,$UMI,NG> 


AO 4 

3750 

1541 

c 


A04 

3760 

1542 

c 


A04 

3770 

1543 

1450 CONTINUE 


A04 

3780 

1544 

c 


AO 4 

3790 

1545 

IF * EXECK * 151-1,01 1460,1400,1480 


A04 

3800 

1546 

1460 IF * IFLGI201-5) 1480,1470,1470 


A04 

3810 

1547 

1470 WRITE 1KOUT,10001 


404 

3820 

1548 

LIN* LIN *1 


A04 

3830 

1549 

1480 CONTINUE 


404 

3840 

1550 

c 


404 

3050 

1551 

c 


AO 4 

3860 

1552 

LIN* LIN + 3 


AO 4 

3870 

1553 

IF ILINX-LINI 1490,1500,1500 


A04 

3880 

1554 

1490 CALL PAGE 


A04 

3890 

1555 

GO TO 1510 


A04 

3900 

1556 

1500 WRITE IKOUT,10101 


A04 

3910 

1557 

1510 CONTINUE 


404 

3920 

1558 

c 


A04 

3930 

1559 

1520 CONTINUE 


A04 

3940 

1560 

c 


AO 4 

3950 

1561 

c 


A04 

3960 

1562 

c 


A04 

3970 

1563 

c 


AO 4 

3980 

1564 

C * SOLVE FOR G4HA * 


A04 

39 90 

1565 

C 


404 

4000 

1566 
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rmnonn 


NM* 0 
SUP= 0.Q 
on 1540 J = 1 •NV 
00 1530 K-1,NG 
NH - NM* 1 

1530 SUP= SUP ♦ PA3S4 AMAT(K,J| \ 

1540 CONTINUE 
C 

SCALE * FLOAT!NN > 

SCALE - SUP / SCALE 
C 

no 1560 J=ltNV 
DO 1550 K* l»NG 

1550 AMATCJ,KI* AHA T ( J t M/SC ALE 
1560 CONTINUE 
C 
C 

CALL DMATimAMATtNVfOETERMJ 
C 
C 

NG- 0 

00 164 0 N SR =NSURFI■NSURF2 
C 

JO - JNO!NS«> 

J3 * JNHNSR1 
J4 * JN21NSR) 

K 4 = KN2IMSRI 
C 

on 1630 K=l,K4 
00 1620 J«*J0*J4 

IF i JS INGPINSR KEQ. JI GO TO 1620 
NG^NG+l 
C 

SUP * 0.0 
NV= 0 

00 1590 NSF-NSU«F1,N5URF2 
C 

NZFRO* JNOlNSfl 
J1 = JNl(NSF) 

J2 = JN2INSFI 
K2 * KN21NSF1 
C 

no 1590 KV *= 1 *K2 

DO 1570 JV*N2FR0«> J2 

IF US1NGP INSF > ,EQ. JVl GO TO 1570 

NV-NV+1 

SUP - SUP - VMATCNV)*AMAT(NV,NGI 
1570 CONTINUE 
15BO CONTINUE 
159Q CONTINUE 
C 

SUP = SUP/SCALE 
SUN = -SUP 

c 

EG ( J * K > =r SUM/FXECMII 
C 

ITF5T* J 3 - JO 
IF CITFSTi 1600,1620* 1620 
1600 JH s J3 ♦ J4 - J 

IF(JSINGPINSRI.NE.OI JN= J -JO +J3 
IF (JH-JI 1610,1620,1620 
1610 ECIJH'K)- EGlJtKf 
1620 CONTINUE 
1630 CONTINUE 
1640 CONTINUE 


♦ SOLVE FOR INDUCED VELOCITY NATRIX * 

DO 1600 NSF=NSURF1.NSUPF2 
C 

NZ ERQ= JNOINSFI 
Jl = JNUNSFI 
J 2 = J N 2 C N Sf I 
K2 =» KN2INSFI 
C 

DO 1790 K* l»K 2 
00 1700 J-NZER0,J2 
IF lJSINGPINSFJ.FQ.J) GO TO 1780 
C 

JP1- J *1 
•■A - c W ( J r 6 r 
SYNGF 2 ~ SYMGFINSFI -1.0 
SYHCF3—SYMGFINSF) +2.0 
SYMLnG- SYMLFINSF1 
C 

00 1650 1-1*3 
LP 3= L +3 
SUMSUU= 0.0 
R<1 > = EV4J,K,L> 

1650 OIL EV(JP l» K * L > 

C 

SHF = R<2! 

C 

CALL C.CIRDF | HA, YA * XLE * XTE * ZLE ,E P S,CH*CF, CT AB , T AND* T ANS t R ATS * HI * H2 I 
CALL FL APSINSF , HA*SHF , XTE ,CF ,C TAB,TAND, 8,C0S3» 

C 

WA = FWIJPUKGI 
SHE = D t 2 I 
C 

CALL CORDF(HA*YA,XLE 1 XTF,ZLE*EPStCW*CF f CTAB,TAN0rTANS,RATS,Pn,H2» 
CALL FL4PSINSFtHA t SHE»XTE,CF»CTAR,TAND> D,C0S3) 

C 

00 1660 L =1,3 
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no nnnn 


166Q PlL) = 0.5*1 B ( LI*D(LI I 
C 
C 

00 1740 N$R*NSU*F UNSURF2 
C 

JO = JNOINSRJ 
J3 » JNllNSRJ 
J4 * JN2(NS«» 

K4 " KN2(N SR I 
SYMGF2- SYMGFtNSRI -1.0 
SYMGF3-S- SYHGF (NSR I + 2,0 
C 

on 1730 KG*l» K4 
00 1720 JG-J3.J4 

IF I JS1NGP fNSRI,EQ.JGI GO TO 1720 
C 

JP1- JG *1 
HU = EHIJGfKGl 
C 

00 1670 L* 113 
LP 3* L +3 
B ( L ) — EVIJGfKGfL) 

1670 DID 3 EVlJPl,KG,l> 

C 

SHF = B < 2 I 
C 

CALL COftDF(WA,YA,XLE,XTE,ZLE,EPS,CH,CF,CTA&,TAND,TANS,RAfS , Ml*M2> 
CALL FLfiPSINSf,HA,SHF,XTE,CF,CTAB,TAND, fl f C0S3> 

C 

*A * eWIJPlfKG* 

SHE = 0(21 

c 

CALL CORDF(HA f YA ,XLE,XTE «ZLE,EPS,CH,CF,CTAB,TAND,T ANS,RATS» HI,H2I 
CALL FlAPStNSF,WA,SHE.XTE,CF,CTAB,TAND, D,C0S3> 

C 

C 

CALL V0RTEX<P,B,D,TANV,UNIT,VI t C0S2l 

C 

DO 1680 1*1,3 

16 8 0 SUMSULI* SUNSLlLl - EG(JGtKG)*VI*C0S2I LI 
C 

IF ( IFLGlIT I- 11 1710,1690,1690 
1690 CONTINUE 
C 

CALL REFL6Ct8,2HEIGT.ALFAR,C0SA) 

CALL REFLEClOfZHEIGT,AlFAR,caSA> 

C 

CALL VORTEXtPfBfC.TANVGfUNTTGfVi,C0S2I 
C 

DO 1700 L * 113 

1700 SUMSULI* SUMSLIll - EG I JG ,KG I *Vl *C0S2 IL1 
1710 CONTINUE 

C 

1720 CONTINUE 
1730 CONTINUE 
1740 CONTINUE 
C 

00 1750 L 3 1 f 3 

1750 VVINDXI J.K t L > = SLiMSU LI *E XECK 4i 1 
C 

ITEST- Ji - NZERC 
IF IITESTI 1760,1780,1700 
1760 JH* Jl *JZ -J 

IF!JSINGPlNSF J,NE.0) JH* J -NZ6R0 *Jl 
IF { J H- JI 17 70,IT80,1780 
1770 CONTINUE 
C 

VV INOXi JH, K, 1) * VVINDXI J,K,n 
VVlNOXlJH,K,2> =-VVINDXIJ »K,2) 

VVINDX(JH,K, 31 * VVINOXIJ,K,3) 

C 

17B0 CONTINUE 
1790 CONTINUE 
1800 CONTINUE 


** LIFTING SURFACES AIRLOAD COEFFICIENTS ** 

DO 1830 L*l,3 
ZUMLGILI * 0,0 
ZUMPGIH “ 0,0 
ZACNGILI * 0,0 
SUMLGtU * 0,0 
SUNPG(L) = 0,0 
FACNGd » * 0,0 
DO 1820 M*l,2 
00 1810 N = i,5 
211 MLIN,N,LI » 0.0 
ZUNR|M,N,Ll * O.C 
ZUMPIM «N ,L I “ O.C 
SUMLIN,N»LI * O.C 
SUNK IN,N,L I * 0,0 
1810 SUMP< M , N *L I * O.C 
1820 CONTINUE 
1030 CONTINUE 
C 

DO 1840 N*l,NSURF 

FACN(N,II - 2,0/HNGDIN,6) 

FACN(N,2) = FACNIN,II/WlNGDIN,91 
1840 FACNIN,31 = FACN IN,1J/HINGD(N,11 
FACNGill 3 2,0/REF S 
FACNGt 21 = fACNGIll/REFC 
FACNGI31 = FACNG III/PEFB 
C 


A04 SOTO 
A04 5080 
A04 5090 
A04 5100 
A04 5110 
A04 5120 
A04 5130 
A04 5140 
AO4 5150 
A04 5160 
A04 5170 
A04 5100 
AO4 3190 
AO4 5200 
A04 3210 
AO 4 5220 
AO4 5230 
AO 4 3240 
A04 5250 
AO4 5260 
A04 3270 
A04 5280 
A04 5290 
A04 5300 
A04 5310 
A04 5320 
A04 5330 
AO4 5340 
A04 5350 
A04 5360 
A04 5370 
A04 S3SO 
A04 5390 
A04 5400 
A04 5410 
A04 5420 
A04 5430 
A04 5440 
AO4 5450 
A04 5460 
A04 5470 
A04 5480 
A04 5490 
A04 5500 
A04 5510 
A04 5520 
A04 5530 
AO 4 5540 
A04 5550 
A04 5560 
A04 3570 
A04 5580 
A04 5590 
A04 5600 
AQ4 9610 
A04 5620 
A04 5630 
AO4 5640 
AO4 5650 
A04 5660 
A04 5670 
A04 5680 
A04 5690 
A04 5700 
A04 5710 
A04 5720 
AO4 5730 
AO4 5740 
AO4 57 50 
A04 5760 
A04 5770 
A04 5780 
A04 5790 
A04 5600 
A04 5810 
A04 5820 
A04 5830 
AO4 5840 
A04 5850 
A04 5660 
A04 5870 
A04 5880 
A04 5090 
A04 5900 
A04 5910 
A04 5920 
AO4 5930 
AO 4 5940 
AO4 5950 
A04 5960 
A04 5970 
AO4 5980 
A04 5990 
A04 6000 
A04 6010 
A04 6020 
A04 6030 
A04 6040 
AO4 6050 
A04 6060 
A04 6070 
A04 6080 
AO4 6090 
A04 6100 
AO4 6110 
A04 6120 


16T3 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 
1683 
1664 
1663 
1666 
1697 
1668 
1669 

1690 

1691 

1692 

1693 

1694 

1695 

1696 
169T 
1696 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 
1706 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 
17 51 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 
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y U O <J> u 


C 

C 


OD 2110 NSF=NSURF1,NSURF2 


A04 6130 
404 6140 


AO 4 6 L 5 0 


c 


AO 4 

6160 


NM * 0 

A04 

6170 


J1 * JN1C N SF1 

A04 

6180 


J2 = JN?<NSF) 

404 

6190 


K2 • KN2INSF1 

A04 

6200 


NOO = N55Q ( NSF 1 

A04 

6210 

c 


A04 

6220 


SYMGF2 - SYMGFINSFJ -1.0 

AO 4 

6230 


SYMGF3 = -SYMGf(NSf) *2.0 

AO 4 

6240 

c 


A04 

6250 


00 2100 J=J1,J2 

40 4 

6260 


IF CJSlNGPlNSf1.EQ,J| GO TO 2100 

A04 

6270 

c 


A04 

6290 


JP 1= J *1 

A04 

6290 


mi « ewc j, n 

A04 

6300 


M2 = EUlJPltl) 

A04 

6310 


IF 4 JS ! NGP4 NSF J.GT.J.AND.JNOINSF).GT.Jl) Kl* M2 

A04 

6320 


IF| JSINGPINSF » .GT. J.AND. JNOINSF UGT. Jl> R2 = EM{J,tl 

A04 

6330 


HA - FMFINODJ 

AO 4 

6340 


MB * 2.0*1 Ml-WA ) 

404 

6350 


TEST = ABSIH1-W21 -0.1 

A04 

6360 


IF (TF5H 1960,1660,1850 

AQ4 

6370 

1950 

WA 3 {U1+W21/2.0 

A04 

6380 


MB = ABSC H1-M2 1 

A04 

6390 

I860 

CONTINUE 

A04 

64 00 

C 


A04 

6410 


CALL CORO F(Ml,YlfXL1,XT1 , ZLI , EPl.CHl«CF1,CBI,T ADI t TAS 1, RATS 

1, M23 A04 

6420 


CALL CORDF<H2,Y2,XL2,XT2,ZL2«£P2,CW2.CF2 f CB2,T AD2»T452 , RATS 

iN1i M23A04 

6430 


CALL COROF{WA*YA,XLE,XTE,ZLEfEPS,CW,CFiCTAR,TANO,TASOt RATS 

,M1, M2 3A04 

6440 

C 


A04 

6450 


TANL E= ( XL 2-XL 1 ) /C,000l 

404 

6460 


TANDE= ( 2L2-2L11/0.000L 

A04 

6470 


FO SL f = ABSIY2-Yl WO.OOOl 

A04 

6460 


IF(FOSLE.GT.O.OOCl) TANLE = TANLE/FOSLE 

A04 

6440 


IF(FOSLE.GT.O.OOCl) TANO = TAND/FOSLE 

AO 4 

6500 


IF!TCST.LT.O.O] 1ANLF= 0.0 

A04 

6510 


1F(TEST.LT.0.01 TAND - 0.0 

AO 4 

6520 


FOSLE - SQRTd.O ♦ TANLE**2> 

AO 4 

6530 


XHE * 0.5*< XTUXT2 -CFI-CF2 1 

AO 4 

6540 


XHEE * 0.5*1 XTHXT2 -C01-C82 1 

A04 

6550 


COSH * l.O/SQRTl 1.0 ♦ TAN0**2 1 

404 

6560 


S1N 0 = 1.0 

404 

6570 


[FI TAND.L T.O) SIPvD= -1.0 

AO 4 

6580 


IF( C-OSD.GT.0.000C1J SIND= TANO*COSD 

AO 4 

6590 


CM = 0.5* ( C fa 1 +C M2 ] 

A04 

6600 


DO L870 L-l,4 

A04 

6610 

1870 

ZUMSLTL) = 0.0 

AO 4 

6620 

C 


AO 4 

6630 

C 


AO 4 

6640 


DO 2040 K=1,K2 

AO 4 

6650 

c 


A04 

6660 


NM = NM + 1 

A04 

6670 

c 


A04 

6600 


cosim = vvrNOxi JtXfi ) *■ cosa 

A04 

66 90 


CO S H 21= VVINOXlJ,K,2] 

404 

6700 


C0SK3J- V VI NO X [ J ,K,3 J - ST NA 

A04 

6710 

c 


A04 

6720 


on 18R0L=1,3 

AO 4 

6730 


0(L 1= EV< J,K,L) 

AO 4 

6740 

1880 

DC L ) = EVC JP1 » KtL1 

AO 4 

6750 

C 


AO 4 

6760 


SHI - BC2) 

A04 

6770 


SH2 = 0(23 

AO 4 

6780 

C 


AO 4 

6790 


CALL FLAPS<NSF,Ml,SHl,XTi,CFl,CB1,TA01, B»C0S3> 

CALL FLAPSCNSf*M2,SH2,XT2,CF2,CB2,TA02, 0*C0S3) 

C 

SUM8 * 0.0 
00 1890 L-1,3 

pu> = o.5*( am + du) t 

C0 52IL J = DUJ-BCIP 

IF<JSINGPINSF i .&T.J.ANO. JNO(N5F 1 .GT.Jl) C0S2tl)= -C0S2U) 
1B90 SUMO = SUM8 ♦ C0S2<L>**2 
SUMS = S3RT(SUM8| 
on 190Q 1 = 1,3 

1900 CO S2(L) = C0S2(U/$UMR 


A04 6800 
A04 6810 
A04 6B20 
404 6830 
404 6840 
AO 4 6850 
A04 6060 
A04 6870 
A04 6880 
A04 6990 
A04 6900 
AO 4 6910 
A04 6920 


CALL CROSP<COSl,CC52,COS3» 
SIIFT= F5(J,R1*SLM8 


no 1910 1*1,3 
SUMSLCLl- SLIFT*C0S3<1> 
ZUMSL(L) = ZUMSKO + SUHSLlLl 
SU«LG<LI = SUMLGCLJ ♦ SUMSLfLI 
$UML< l,NSF ,D = SLML(l t NSF,U + 
1910 SUML<2,N5F tLM SLUCl ,NSf ,LT 
C 

XI * P< 1 \ - Wt NGD(NSF,U J 

X2 " P < 2 t 

X3 * P(31 - WlNGOfNSF,12 ) 

C 

SUMPC 1,NSF ,11 = $t>P(UNSF*ll + 
SUMP11,NSF ,21* SLPPCI,N$F ,21 - 
SUMPU.NSf ,3» = SLMPd ,NSF ,3) - 
C 

XI - PCI) - WINCCd.lU 
X2 - P ( 2 > 

X3 * *>{ 31 - WlNGO (l,l?l 
C 

SUMPl2 »N5F f 11 * SLMP12,NSF «l) + 


A04 6930 
404 6940 
AO4 6990 
404 6960 
AO4 6970 
404 6990 
AO4 6990 
A04 7000 
A04 7010 
A04 7020 

SUMSLCl) 404 7030 

404 7040 
A04 70*50 
AD4 7060 
A04 7D70 
A04 7030 
A04 7090 

C Xl*SUMSim -X3*SUMSL<1) 1 A04 7100 

C X2*$UMSl(3 1 -X3+Sl>MSL(2) 1 404 7110 

< XZ*5UMSHil -X l +SUMS Lf 21 1 404 7120 

AO 4 7130 

A04 7140 
404 7190 
404 7160 
A04 7170 

( Xl*SUMSUi> - X3 + SUMSLU) 1 404 7180 


1779 

1760 

17 B l 
1782 
1763 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 
1600 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 
1609 
1810 
1611 
1812 
1813 
1914 
1815 
1616 
1317 
1918 

1819 

1820 
1821 
1822 

1823 

1824 
IB25 
1826 
1827 

182 B 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

183 8 

1839 

1840 

1841 

18 42 

1843 

1844 
L845 
1646 
lflfcT 
1846 

1849 

1850 

1851 
1952 
1853 
1054 
1955 

1856 

1857 

1858 

1859 
1660 
1861 
1862 

1863 

1864 

1865 

1866 
1867 
1068 

1860 
1870 

1671 

1672 

1673 
1874 
1975 
1676 

1877 

1878 
1579 

1860 

1861 
1082 
1983 
1964 
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nrto 


SUMP I 2, NSF *21 
SUMP < 2, NSFi31 


SLMPI2.NSF*21 - < 
5I.MPI2,NSF ,3) - t 


XZ*SUW3L13) 
X2*SUMSLI1 ) 


- X3*SUM$L12I 

- X1 *S U MS L t 2) 


XI - PIn 
X2 = P I 2 I 
X3 = PI 3I 

SUMPGI11= 
SUMPGI 21“ 
SUMPGI3I* 


- XCG 

- YCG 

- ZCG 

SUMPGIII ♦ 
SUMPGI2 I - 
SUHPGt 31 - 


Xl*SUMSU3) 
X2*SUMSL <31 
X2*$UMSL111 


- X3*SUM$LUI I 

- X3 *SUMSL< 2 I I 

- Xl *S UMS LI 2 I I 


SUMS* 0.0 
00 1920 L*l,3 

1920 SUMS- SUMS ♦ SUPSULI**2 
SUMSU4I- 5QRKSUM0) 
oa 1930 L-1,3 

1930 SUMSL{ L 1 « SUMSL 111 /SUMSL 141 


19*0 

19*50 

I960 


19? 0 


1980 


L990 

2000 

2010 

2020 


2030 


IF I EXECM 15 I- l.CI 1940*2030.2030 
IF MFLGI20I-2I 2030,1950*1950 
IF CNM-l) I960,1960.2010 
LIN ~ LIN +4 
NM - 10 

IF ILlNX-LlNl 1970*1980*1980 
CALL PAGF 
L IN* UN 4 

WRITE IKOUT,L050INSF,NSURF1,NSURF2 
L IN = LIN *2 

JF U1NX-L1NI 195C,2000,2000 
CALL PAGE 
LIN* LIN ♦2 
WRITE IKOUT.10601 
L IN= LIN ♦l 

IF ILINX-LINI 1990*2020,2020 * 

CPLIFT - - 2 • 0* SL ! F T/F SIJ , KI 

WRITE IK0UT f i07Q)J.K,!Plll*i»l*31#E$lJ*Kl,CPLIFT,(C0S3lIJ»l : 
IVV INOXlJ,K*I I * I = 1* 3 I*EGIJ *K) 

CON? INUE 


2040 CONTINUE 


pi n 

PI 3) 


- XLE 

- ZLE 


SC TS * ZUMSL 111 
IF(SCTS.GT.0,01 SCT$= 0.0 
SNFC = ABSlFOSLE*SCTS> 
IFIZUMSLO I.LT.O.OI SNFC* -SNfC 
ZUMSLIil* -SCTS 
ZUMSLI2I- SCT$*TANLE 
ZUMSL(3J= SNFC 


XI * Pill 
X2 = PI 2 I 
X3 - PI 31 


- WlNGDINSF.m 

- WINGO(NSF,12) 


ZUMPU ,NSF , 11 = 2LMP tl «NSF *11 ♦ 1 
ZUMPIl,NSF,21- ZLMP(1,NSF,2J - I 
ZUMPI 1*NSF ,31- ZLMPU ,NSF ,31 - I 

XI « PHI - WINGD11 *111 
X2 = PC2I 

X3 ^ PI 31 - HINGE II*121 


XI * ZUMSLI 3 I 
X2*ZUMSL(3I 
X2*ZUMSL(II 


X3*ZUMSLI11 I 
X 3 *Z UMS LI 2) ) 
Xl*ZUMSL(21 I 


ZUMPI 2* NSF ,11= ZUMPI2.NSF ,1) * I Xl*ZUNSL(3> 

ZUMPI2,NSF,21= ZLMPI2,NSF,21 - I X2 + ZUMSLUI 
ZUMPI 2,NSF , 31= ZLMP (2 ,NSF ,31 - < X2*ZUM$LIH 

xi - pm - xcg 

X2 * PI 21 - YCG 
X3 = PI 31 ~ ZCG 

ZUMPGm= ZUMPGIll ♦ I X1*ZUMSL(3I - X3*ZUM5im I 

ZUMPGl 21 = ZUMPG12J - I X2*ZUM$U3| - X3*ZUM5ll2> ) 

ZUMPGI 31= ZUMPGl 31 - l X2PZUMSU1) - XI*ZUMSL(2I > 


X 3 * Z U MS LI11 I 
X3 *ZUMS LI 21 I 
Xi*ZUM$L(21 I 


no 2050 L*1,3 

ZUMLGILI = ZUMLGILI ♦ ZUM5UU 
ZUMLi1.N5F,LI - ZUMLIlfNSF f LI ♦ 
2050 ZUMLI2tN5F,LI 3 ZLMLII.NSF,1I 


ZUMSULI 


2060 

2070 

2090 

2090 

2 LOO 


IF IEXECKI151-1.Cl 2060,2100,2100 
IF I IFLGI201-2) 2100,2070.2070 
LIN= LIN ♦2 

IF ILINX-LIN1 2080*2090.2090 

CALL PAGE 

GO TD 2100 

WRITE IKOUT,10001 

WRITE IKOUT,1000! 

CONT INUE 


SUMRll,NSF,11 
SUMRI 1.NSF,21 
SUMRl1,NSF,31 

SUMRl2,NSF,l) 
SUMRl2,NSF,2) 
SUMRl2.NSF,31 

SUMLll*NSF*3r 
SUMLI2,NSF,3) 


I SUMLI1,N$f*l!*COSA 
SUMLU *NSF,2I 
I-SUML(i,NSF,31 *COSA 

<LMR(1,NSF,11 
SUMR(l,NSF ,21 
SUMRU.NSF,3! 

■ SUMLI1,NSF,3) 

•SUMLU ,NSF ,3) 


SUMLI l,NSF ,3)*SINA ) 
5UML I 1, NSF , 1 IPS tNA 1 


AO4 7190 
A04 T200 
A04 7210 
A04 7220 
A04 7230 
AO4 7240 
A04 7250 
A04 7260 
A04 7270 
A04 7280 
A04 7290 
A04 7300 
A04 7310 
AO4 7320 
A04 7330 
A04 7340 
A04 7330 
A04 7350 
A04 7370 
A04 7380 
A04 7390 
A04- 7400 
AD4 7410 
AO4 7420 
AQ4 7430 
AO4 7440 
AO4 7430 
A04 7460 
A04 7470 
A04 7480 
AQ4 7490 
A04 7500 
A04 7510 
A04 7520 
A04 7530 
AO 4 7340 
AQ4 7550 
* 3 I,(A04 7540 
A04 7570 
A04 7580 
A04 7590 
A04 7600 
A04 7610 
A04 7620 
A04 7630 
AO4 7640 
A04 7650 
AO4 7660 
A04 7670 
AO4 7680 
A04 7690 
A04 7700 
AO* 7710 
AO4 7720 
A04 7730 
AD4 7740 
A04 7750 
A04 7760 
A04 7770 
AO4 7780 
AO4 7790 
AO4 7800 
AO4 7810 
A04 7820 
AO4 7830 
A04 7840 
A04 7B50 
A04 7860 
A04 7B70 
A04 7880 
A04 7890 
A04 7900 
A04 7910 
A04 7920 
A04 7930 
AO4 7940 
A04 7950 
A04 7960 
A04 7970 
AQ4 7980 
AO 4 79 90 
A04 8000 
A04 6010 
A04 8020 
A04 8030 
AO 4 8040 
A04 8050 
AO4 8060 
A04 8070 
A04 8080 
A04 8090 
AD4 8100 
A04 8110 
A04 8120 
AO4 8130 
A04 8140 
A04 8150 
A04 8160 
A04 6170 
A04 6180 
AQ4 B190 
A04 8200 
A04 8210 
AQ4 8220 
AO4 8230 
AO4 8240 


1665 

1666 
1867 
1668 
1669 
1390 

1891 

1892 

1893 

1694 

1695 

1696 
1097 

1698 

1699 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 
1906 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 
192 7 

1928 

1929 

1930 
1911 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 
19 50 

1951 

1952 

1953 

1954 

1955 

1956 

1957 
1956 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 
19 68 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 
19 BO 

1981 

1982 

1983 
1904 
1985 
1966 
1987 
198R 

1989 

1990 
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rvoooonooono no or> o n n non 



JUMP < 1 ,NSF T l> 

* ( ZUML11,NSF,11*COSA - 

ZUML11,NSF 

»31*$INA 

1 

A04 

8250 

1991 


ZUMR I 1,NSF 1 21 

* ZUML11,NSF,21 




AO 4 

92 60 

1992 


ZUMPI i,NSF ,31 

= I-ZUMLI1,NSF,3)*CGSA - 

ZUML!1,N5F 

,ll*SINA 

1 

A04 

8270 

1993 







AQ4 

8280 

1094 


ZUMRl2,NSF,11 

* ZUMR<1,NSF,L1 




A04 

82 90 

1995 


ZUMP(2,NSF,21 

* 2UMR(1,NSF,21 




A04 

8300 

1996 


ZUMP12, NSF,31 

* ZUMR(1,NSF,31 




A04 

83 10 

1997 







A04 

8320 

1990 


ZUML i 1,NSF,31* 

- ZtlML (1 fNSF ,31 




A04 

8330 

1999 


ZUML 1 2,NSF,3l 3 

-ZUMLI1,NSF,31 




AO 4 

8340 

2000 







A04 

8350 

2001 

2110 

CflNT tNUE 





A04 

8360 

2002 







A04 

8370 

2003 







AQ4 

83 BO 

2004 







AO 4 

83 90 

2005 


no 2130 N=NSURF1 ,NSURF2 




A04 

8400 

2006 







AQ4 

8410 

2007 


DO 2120 1*1,3 





AQ4 

8420 

200R 


ZUMLI2.N.L1 * 

ZUHL I 1«N,L!*F ACNI1,11 




A04 

8430 

2009 


ZUMR I 2, N , L ) = 

ZUMR1l,N,Ll*FACN(l,l) 




AO 4 

6440 

2010 


ZUML! l,N,ll = 

ZUMLI1,N,L)*F ACNI N, 1) 




A04 

8450 

2011 


ZUMRI1»N,L) * 

ZUMR|1 t N,LI4FACN(N,11 




A04 

8460 

2012 


SUMLI 2,N,L1 = 

SUMLl1,N,L1*F AC NI1,11 




AO 4 

8470 

2013 


SUMR I 2,N ,L 1 *> 

SUMR|l,N,L)*F ACNI1,1) 




A04 

8480 

2014 


SUML1 1 ,N , L 1 = 

SUMLI1iNfL)*F ACNIN,11 




A04 

8490 

2015 

2120 

SliHMUN.Ll - 

SUMRI1,N,L14FACNIN,i1 




A04 

8500 

2016 







AO 4 

8510 

2017 


ZUMPI1tNi11 = 

ZUMPI1,N,1)*FACNI6,21 




A04 

8520 

2018 


ZUMPI 1,N ,Z ) * 

ZUMPI1,N,21*FACNIN,3) 




A04 

8530 

2019 


ZUMP(1♦N * 3) s 

ZUMPI1,N,3I*FACN(K,31 




A04 

8540 

2020 


ZUMPI2,N, 11 = 

ZUMP(2 t N,l)MfACN11,2) 




A04 

8550 

202 L 


ZUMP12,N,21 ~ 

ZUMPt2,N,21*FACN<1,31 




A04 

8560 

2022 


ZUMPI2,N, 3 1 * 

2UMP(2,N,3)*F ACNI1,31 




A04 

0570 

2023 







A04 

8580 

202 4 


SUMP! t,N, 1) = 

SUMPIl,N,11*FACN|N,2J 




A04 

8590 

2025 


SUMP! 1,N,21 * 

SLMPI1,N,2J *FACN{N,3) 




AO 4 

86 00 

2026 


SU«P(1,N,31 * 

SUMPIl,N,3)4FACNIN,3) 




A04 

8610 

2027 


SUMPI 2,N»11 * 

SUMPI2,N,11*FACN( 1 ,21 




A04 

8620 

202 B 


SUMPI2,N,2) * 

SUMPI2,N,21*FACNI1,31 




A04 

0630 

* 2029 

2130 

SUMPI2 «N,31 = 

SLMPI2,N,3)MfACNI1,31 




AO 4 

8640 

2030 







AO 4 

0650 

2031 







A04 

8660 

2032 


DO 2150 N*2,NSURF2 




A04 

8670 

20 3 3 


DO 2140 1*1,3 





AO-4 

8680 

2034 


/UHL<2,1,LI = 

2UMLC2,1 I L) «• Z UM L(2,N * L1 




A04 

8690 

203 5 


ZUMR12,1,L1 * 

ZUMR 1 2,1 ,L1 *■ ZUMR 12 , N, Ll 




AO 4 

8700 

2036 


ZUMP12,1,L) * 

ZUMPI 2,1,L1 ♦ ZUMPl2,N,L1 




A04 

8710 

2037 


SUML I 2,1,L ) - 

SUML12,1,L1 4 SUMLI2, N, L 1 




AO 4 

8720 

203B 


SUMRI2,L,L1 = 

SUMRI2,1,L1 4 SUMR(2,N,Ll 




AO 4 

8730 

2039 

2140 

SUMP 12,1,1 | = 

SUMPI2,1,L1 4 SUM PI2,N,L) 




AO 4 

0740 

204D 

ziso 

CONTINUE 





AO 4 

87 5 0 

2041 







A04 

8760 

204 2 


ZUML1 L,NSF ,L 1* 

ZLMLC1,NSF,U 4 ZUMSLILI 




A04 

87T0 

2043 

2050 

ZUML 12,NSF, L 1* 

zlmlu.nsf ,u 




A04 

8780 

2044 







A04 

8790 

2045 


IF IEXECM151- 

1.C1 2060,210C,2100 




A04 

8800 

2046 

2060 

IF I 1FLGI 201-21 2100,2070,2070 




A04 

8810 

2047 

2070 

LIN* LTN »2 





A04 

8820 

2048 


IF UINX-LJNI 

2060,2090*2090 




AQ 4 

0830 

2049 

2080 

CALL PAGE 





AO 4 

0040 

2050 


GO TO 2 LOO 





A04 

8850 

2051 

2090 

MRITE IKDUT,10001 




A 04 

BB60 

2052 


WR ! TE IKDUT,10001 




AD4 

8870 

2053 

2100 

CDNT 1NUE 





A04 

8880 

2054 







A04 

08 90 

2055 







AO 4 

8900 

2056 


SUMP. 1 1 ,NSF 111 

* 1 SUMLI 1 ,NSF ,11 *CG5A - 

SUML1l,NSF 

,31*SINA 

1 

A04 

8910 

20 57 


SUMR( 1,NSF,2) 

* SUMLIUNSF ,2) 




AO 4 

8920 

2058 


SUMRI1,NSF* 31 

= (-SUMLIl,NSF,31*CGSA - 

SUMLI1,NSF 

,11*SINA 

1 

A04 

893 0 

2059 







A04 

8940 

2060 


SUMR 42,NSF,11 

= SUMR(1,NSF,11 




AO 4 

B9 50 

20 61 


SUMR(2,NSF,21 

= SUMRII,NSF,2) 




A04 

8960 

20 62 


SUMR12,NSF,31 

= SLMRU ,N5F,3) 




A04 

B970 

2063 







A04 

B980 

2064 


SUMLIl»NSF t 31- 

-SUMLI1,NSF ,31 




A04 

8990 

2065 


SUMU2,NSF ,31- 

-SUML11,N5F ,31 




A04 

9000 

2066 







A04 

9010 

20 6 7 


ZUMM L «NSF ,1) 

= I ZLWLI 1 ,NSF ,1) 4C0SA - 

ZUML{l,NSF 

,3 >*SINA 

1 

A04 

9020 

2068 


ZUMR 11 ,NSF *21 

* ZUML11,NSF,21 




AO 4 

9030 

2 069 


ZUMPI1 f NSF,31 

= l-ZUMLIl,NSF,31*C05A - 

ZUMLII,NSF 

,i1*SINA 

1 

A04 

9040 

2070 







A04 

9050 

2071 


ZUMPI2,NSF, U 

= ZUMP11,NSf,1) 




A04 

9060 

20 72 


ZUMR <2,NSF , 21 

= ZUMR 11 ,NSF ,2 1 




A 04 

9070 

2073 


ZUMR(2,NSF,31 

=> ZUMR 11 ,NSF,3) 




A 04 

9080 

2074 







A04 

9090 

2075 


ZUMLI 1,NSF,31* 

-ZUML11tNSF ,31 




A04 

9100 

2076 


ZUML(2,NSF,31* 

-ZLMLIl,NSF,31 




A04 

91 LO 

2077 







A04 

9120 

2078 

2110 

CUNT INUE 





AO 4 

9130 

2079 







AO 4 

9140 

2080 







AO 4 

9150 

2081 







A04 

9160 

20P2 


DO 2130 N*NSURf1 ,NSUPF2 




AO 4 

9170 

20P3 







A 0 4 

9180 

2004 


00 2120 L = 1,3 





AO 4 

9190 

2085 


ZUMLI?,N,L 1 = 

ZUML(1,N,L1*FACNI1,11 




AO 4 

9200 

2086 


ZUMR(2 »N,l ) = 

/UKRIl'N'U *FACNI1,11 




A 04 

9210 

2087 


ZUML( 1, N, L 1 ^ 

ZUML! 1 ,N,U4FACNI N,11 




A04 

9220 

20 Bft 


ZUMR(1»N,l } = 

2UMR|i f N,U *F ACNI M, 11 




ADA 

9230 

2009 


SUML12 ,N,L 1 = 

SLMLIl.N.L)*FACNI1,11 




AG 4 

9240 

20«0 


SUMR(2•N,L 1 = 

SUMRIl,N,LIMFACNI1,11 




AO 4 

9250 

2091 


SUMLI l ,N«L 1 = 

SUMLI1,N,U*FACNIN,1) 




404 

9260 

2092 

2120 

SUMPU,N,L) * 

SLMRIl,N,LJ *F4CNC K.i1 




A04 

9270 

2093 







A04 

9280 

2094 


ZUMPIl.N,LI = 

ZUMPI1,N,11*FACNIK,21 




AO 4 

9290 

2095 


ZUMPI 1,N,2 1 * 

ZlJHPI 1 * N ,2) *FACN( N, 3 1 




A 04 

9300 

2096 
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o o o o o 


ZUHPl1,N.3 1 
ZUHPl2 ,N * 1 ) 
ZUM P ( 2, N , 2 1 
ZUKP (2»N * 3 1 
C 

SUMPIl,N t1 1 
SUMP 1 1.N.2 I 
SUMP I WN t 3) 
SUM P( 2,N, lJ 
SUMP 12*N,2 J 
2130 SUMP12 f N,31 
C 
C 


ZUMPU»N»3> *FACN<N t 3» 
ZUNP«2fN,ll*FACNil*21 
ZUMP(2,N,2I*FACNU*31 
2UMP<2,N»31*FACN(1*3) 

SUMP<l,N,11*FACN{Ni2l 
SLMP( L,N»2) *F ACN< N* 31 
SUHP11,N,31 *FACN(N,3) 
SUMP1 2,N, U*FACNl l,2> 
SUMPi2,N,21*FACNil.3) 
SlJKPI 2.N.3l*fACN*1*31 


na 2160 N-2,NSURF2 
00 2140 l-I t 3 


ZUML(2,l,L 1 
ZUMRC 2*1tl 1 
l UMPt 2, 1*L I 
SUHLI2, 11L I 
SUMP(2, 1 ,L ) 
2140 SUMP(2,1,L> 
2150 CONT tNUE 


ZUML{2,1*LJ ♦ 
ZUMR ( 2*1 tL) * 
ZUMPI2t1 tL) * 
SUML (2 11♦L) ♦ 
SUMRl2tl«LI * 
SL MPl2 »1 »l) ♦ 


DO 2160 1-1.3 

ZUMLG(L)- ZUHLGILl*FACNG(11 
2160 5UML G(L 1 - SUMLG(Ll*FACNG<l> 
ZUML Gt 3 1 = -ZUMLGI3I 
SUMLGdl- -SUMLG (3) 


2UML<2,NtU 
ZUMR12 •NtLI 
ZUHP(2 tN.'U 
SUML(2 » N»lJ 
SUMR(2 »N f LI 
SUMPU»N,LJ 


c 


ZUMPG111 
ZUMPG{2} 
ZUMPG(3 1 


ZUHPGI11*FACNG(2> 
ZUMPG(2J*FACNG(31 
ZUMPG(31*FACNG(31 


C 


SUHPGl11 
SUMPGt 2 1 

sumpgi j> 


SUMPGIt)*FACN&(2) 
SUMPG(21*FACNG(3 I 
$UMPG(3l*FACNG <31 


C 


ZACNG1 2) 
ZACNGi31 
ZACNGC 11 


ZUMLG<11*COSA + 
ZUMLG(2> 

ZUMLG(31*COSA - 


2UMLG<3I*SINA 
ZUMLG<11*S1NA 


C 


FACNG<21 
FACNGI 31 
FACNG( H 


SUMLG ( 11 *C 0 SA 4- 

SUMLG(21 

SUMLG(31*COSA - 


SUMLG(31*SINA 
SUMLGi11 *SINA 


*4 lifting surfaces airload section coefficients ** 


A04 9310 
A04 9320 
AO4 9330 
AO4 9340 
A04 9350 
A04 9360 
A04 93T0 
A04 9380 
A04 9390 
A04 9400 
A04 9410 
A04 9420 
A04 9430 
A04 9440 
AO4 9450 
A04 9460 
AO4 94T0 
A04 9400 
A04 9490 
A04 9500 
A04 9510 
A04 9520 
A04 9530 
AO4 9540 
A04 9550 
A04 9560 
A04 9570 
A04 9580 
A04 9590 
A04 9600 
A04 9610 
ao4 9620 
A04 9630 
AO4 9640 
AO4 9650 
A04 9660 
A04 9670 
A04 9680 
A04 9690 
A04 9700 
AO4 9710 
A04 9720 
AQ4 9730 
AO4 9740 
A04 9750 
A04 9760 
A04 9770 
A04 9780 
AD4 9T90 


2170 

2180 


00 2360 NSF-NSURF UNSURF2 
NM - 0 

J1 * JNllNSFI 
J2 * JN2(NSFI 
K2 - KN2INSFI 
NZERO - JN01NSF \ 

NOO = N S SO < N SF I 

SYMGF2 - SYMGF1NSFI -1,0 
SYMGF3 - -SYMGF(NSF) *2.0 
SPAN = WINGDINSFtll 

DO 2330 J-NZFRQ » J2 

[F (JSINGPINSF1.EC.Jl GO TO 2330 

JP 1- J +1 

NM - NM 4-1 

Ml - EW< J*11 

M2 - FJP 1« 11 

UA * EWEtNOOl 

MB ■ 2,0* < Hl-MA 1 

TEST - 4BS( Ml - W2 1 - 0.001 

IF 1TESTI 2180,2180.21 TO 

MA = [W1+W21/2.0 

MB * AflSl WL-W2 1 

CONTINUE 

RM * W A 

CALL C0RDF{M1.YItXLItXT1tZLIiEPI.CWI*CF l t CBl.TADl.T ASl.RATSfMl, 
CALL COROF(M2,Y2 .XL2.XT2•ZL2 »EP2 t CW2*CF2.CB2 »T A02 »TAS2* RAT StMl» 
CALL COROFIWA,YA.XLEfXTE tZLE.EPS,CW,CF t CTAe»TAND.TASO, RATS,Ml, 


TANLE - IFLE(M2)-ELE(M1H/Wfl 
FOSLE - SQRTU.O ♦ TANLE**21 
XHE * 0.5*1 XTI+KT2 -CF1-CF2 I 

XHEE = 0.5* ( XT1+XT2 -C91-C82 1 

COSO * 1-O/SORT( 1.0 ♦ 7ANO**2 1 

$ TND= 1.0 

IF(TANO.LT.01 sind^ -i-0 
IFlCOSO.GT.O.OOOCll SIND- TANO*COSO 
CM = 0.5*1 C l ♦€ M 2 » 

AREA- MB* CM* ( CO SO* SYMGF2 ♦ SIN0*$YMGF3 1 
IF( AREA.LT.UOE-41 AREA=MB*CM*( C0SD*SYMGF3 
XC04 = 0.5*(XL l**L2 J ♦ 0.25*CW 


♦ SIND*SYMGFZ 1 


SCN 

sex 

SPM 

set 

SCO 


0.0 

0.0 

0,0 

0.0 

0.0 


00 2250 X-l t K2 

COSH 11= VVINDXI J«Ktl 1 
C0SK21- WIND X( Jf K ,2} 


♦ C 0 S A 


A04 9000 
A04 9810 
A04 9B20 
AO4 9830 
A04 9840 
A04 9050 
AO4 9860 
AD4 9870 
AD* 9080 
AD4 9890 
A04 9900 
A04 9910 
A04 9920 
AQ4 9930 
A04 9940 
A04 9950 
A04 9950 
A04 9970 
A04 99BO 
AO4 9990 
A0410000 
A041D010 
A0410020 
A0410030 
A0410040 
A0410050 
A0410060 
A0410070 
A0410080 
M2 IA0410090 
M21A0410IOO 
M21A0410110 
A0410L20 
AO*10130 
A0410140 
AD 4101 SO 
A0410160 
A0410170 
AO *101 SO 
AO410190 
A 0 A 1020 0 
AO 410210 
A0410220 
A0410230 
A0410240 
AO 4102 50 
A0410260 
A 0 4102 70 
A0410280 
AO 4102 90 
A0410300 
A041031D 
AO 410320 
A0410330 
A0410340 
A0410350 
A 0410 3 60 


2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 
215 2 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 
21 86 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 
22 00 
2201 
2202 
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cnsio> = vvindxij,k,bi - si na 

AD4 10370 

2203 

f 


A0410380 

2204 

L 

00 2190 L = 1* 3 

A0410390 

2205 


i p 1 j» t t-1 

A 0410400 

2206 


BtL I 3 £ VIJ »K ,1 1 

A0410410 

2207 

219 0 

OIL > = EV(JPl,K»L» 

AO 410420 

2208 

c 


A0410430 

22 09 


SHI - R ( 2 1 

AO 410440 

2210 

r 


A0410450 

2211 

V 

CALL FLAPSINSf.bl*SHltXTl*CFI,CB1,TA01» B,C0S3t 

AO 410460 

2212 


CAU FLAPStNSF . H2»SM2f XT2 fCF2 .CB2*TA02 • D,C0S3» 

A0410470 

2213 

f 


AO 4104 80 

2214 


SUMS = 0.0 

A04L0490 

2215 


DO 2200 1*1,3 

A04L0500 

2216 


PIL1• 0.5*I 0(L > ♦ DILI 1 

40410510 

2217 


CDS2Il)“ DUI-BILI 

A0410520 

2216 

2200 

SUMS* SUMS *■ COS? IL1**2 

A0410530 

2219 


SUMS = sort* sums) 

A0410540 

2220 


00 2210 1 = It 3 

A0410550 

2221 

2210 

C0S2ILI 3 C 0 S21 L1/SUM8 

A0410560 

2222 

c 


40410570 

2223 

C 


A04105S0 

2224 


CALL C«OSP(COSltCCS2iC0S3) 

AQ4L0590 

2225 

c 


A04L0600 

2226 


SL IFT* EG!J,K)*SLK8 

AO 410610 

2227 

c 


AQ41062O 

2228 

c 


A0410630 

2229 


DO 2220 L 3 1,3 

A0410640 

2230 

2220 

SUM SL 1 L 1 3 SLlFT*C0S3(U 

A0410650 

2231 

c 


A0410660 

2232 

c 


A0410670 

2233 


OCN * -SUHSLi 3i*SVMGF2 «■ SUMSLI1)*SYMGFJ 

40410680 

2234 

c 


A0410690 

2235 


SCN 3 SCN * OCN 

A0410700 

22 36 


SCX = 5CX ♦ SUMSLIl) 

AO410710 

2237 


$PM = SPM - DCNM{P(1I-XC04J/CWI 

A04I0720 

2238 

c 


A0410730 

2239 

c 


AD410740 

2240 


SUM 8= 0.0 

A0410750 

2241 


DO 2230 L 3 t» 3 

A0410760 

2242 

2210 

SUM8= SUM3 ♦ SUMSLI LJ **2 

A0410770 

2243 


SUHSl 141= SQPTISUMBt 

A04107 a 0 

2244 


no 2240 L = 1,3 

A0410790 

2245 

2240 

SUMSLI L 1 = SUMSLILI/SUMSU4) 

40410800 

2246 

c 


A0410810 

2247 

c 


A0410820 

2246 

2250 

CO NT INUE 

AO 41033 0 

2249 

C 


AQ410340 

2250 

c 


A0410850 

2251 


SCN* SCNM 2.0/AREA] 

40410660 

22 52 


SCX* SCX*(2.0/AREA) 

A0410870 

2253 


SPM- $PM*<2.0/ARFA) 

A0410880 

2254 

c 


A0410890 

2255 


SCI 3 SYMGF2*1SCN*C0SA-SCX*S1NA1 ♦SYKCF3*ISCNl 

A0410400 

2256 


SCO- SYMGF2*1 SC <*SINA+SC N*SINA)♦SYMGF3*ISCX*CQSA| 

ADA 10910 

2257 

c 


A0410920 

2258 


SCLCOB 3 SCL*CW/SPAN 

AO 41093 0 

22 59 

c 


AO 410940 

2260 


RY - ENIJ v 1,2) 

AO 41OR5 0 

2261 


»Z - ENIJ,1,31 

A0410940 

2262 

c 


A0410970 

2263 

c 


AO 4109 9 0 

2264 


IF (NM-ll 2260,2260,2310 

A041099D 

2265 

2260 

LIN- LIN *4 

AO 411000 

2266 


IF ILINX-LIN) 2270,2280,2230 

A0411010 

2267 

2270 

CALL PAGE 

AQ411020 

2268 


L IN- L IN 4 

A04H030 

2269 

22P0 

W®ITE (KOUT,1080IASF,NSUPF1,NSUPF2 

A04U040 

2270 


LIN- LIN ♦2 

A04H050 

2271 


IF (LINX-LINI 2290,2300,2300 

A04H060 

2272 

2290 

CALL PAGE 

A0411070 

2273 


LIN 3 LIN +2 

A0411060 

2274 

2300 

MR ITE (KOUT,10901 

A0411090 

22 7 5 

2310 

LIN- LIN+1 

A041L100 

22 7 6 


IF IlINX-LIN) 22SC,2320,2320 

A041H10 

2277 

2320 

Y1B= I EN{J, 1,2 1 ♦SYMGF2 ♦ IEN1J2,1,31-EN( J ,l,311*S YMGF 3 I/SPAN 

A041H20 

2278 

C 


A0411130 

2279 

C 


A0411140 

22 BO 


WR ITf IKQUT,11001J,YOB,RY,RZ,RW ,SCN,SCX,5CL,SCO,SPM,5 CL COB,I SUMSLI AQ41U SO 

2281 


in, 1*1,3) 

A04H160 

2282 


L IN- LIN ♦ l 

A04H170 

2283 

c 


A041U 80 

22B4 

c 


A041H90 

2285 

2310 

CONT INUE 

A04U200 

22 66 


L IN* L IN *2 

A0411210 

2287 


IF 1L1NX-L IN 1 2340,2350,2 350 

40411220 

228 8 

2340 

CALL PAGE 

A04H210 

2289 


GO TO 2360 

AO 411240 

2290 

2 3 50 

ITE IKOUT,10001 

A0411250 

2291 


WR ITE 1KOUT,10001 

A04H260 

229 2 

2360 

CONTINUE 

A04U270 

2293 

C 


AO 4112 80 

2294 

C 


A04H290 

229*: 

C 


A0411300 

2296 

C +* 

LIFTING SURFACES AIRLOAD SUMMARY ** 

A0411310 

2297 

c 


A04H320 

2290 


LIN = LIN ♦ 12 

A0411330 

2299 

c 


A0411340 

2300 


IF ILINX-LIN1 2370,23 9C,2 3 RO 

AO 411150 

2301 

2 37 0 

CALL PAGE 

A0411360 

2302 


LIN - LlN + 12 

A04I1370 

2303 

23P0 

MR ITE IKJUT,1110INSURF1,NSURF2 

A0411360 

2304 

C 


A041L390 

2305 

C 


A0411400 

2306 


DD 2410 N=1,NSURF2 

AO 411410 

2307 

C 


A0411420 

2308 
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23 Q 0 


2400 


L IN 3 L IN + 2 

IF (LlNX-LlN) 239C,2400,2400 

CALL PAGE 

LIN * LIN ♦ 12 

WRITE <KOUT,limisSORFl*N5URF2 
CONT INUE 


A0411430 
AO 411440 
A041145Q 
A0411460 
A0411470 
A04I14B0 
A0411490 

WR l T£ (KauT,ll20)N.SUMLU ,N,3) , SUML<1 ,N,l) *5<JML (l , N, 2 I ,SUMR( l, N. 3 IA04U500 
1, SUMP ( 1 ,N » 1)»I S U MP ( 1 • N • I } ,1*1,31 fWINGDINflLl ,W I NGD! N, 12 } ,W \ NGD! N, 6A04U5 10 
2 I , W1NGDIN,91,WlNGD!N,L} A041152Q 

AO 411730 

WR HE ( KDUT, 114(1 )K , ZUML <1 »N,3l ,ZUHLtl,N,1>,ZUML111N,2 ) ,ZUH«11•N,3)A0411540 
IpZUMR! 1 ,N , 1)pIZUWPIliNpI) ,1-1,3),WINGDIN,lll,WINGDIN,12>,XINGO( N,6A0411530 
2 > r W 1NG0I N, 9 i ,WI NGD! N, L > A04U560 

A0411570 

2410 CONTINUE A04I15B0 

A0411790 

LIN » LIN *• 11 * A0411600 


IF ILINX-LINI 2420,2430*2430 
2420 CALL PAGE 

LIN - LIN ♦ 11 
2430 CONTINUE 


A0411610 
A0411620 
A04U630 
AO 411640 
A04116S0 

WR ITF (KOUT, 1130) 5UML(2,l ,3) ,SUNL(2,1 ,11 ,SUML(2,1 ,2) ,$UMP.i 2, 1,3 ) , SA0411660 
1UYRI 2,1,1),(SUMP 12,1•t)«I -1,31,W! NGD!1,11)*WINGO<1,121,WINGD( 1, 6 I,AQ411470 
2WINGD! 1,9) ,N1NGD (1, L ), SUMLGI3) , (SUMLGU ) ,1*1 ,2 ) , I FACNGI 11, l* it 2) , ( A04U680 
3SUMPG! M* I* Ip 3) , *CG,ZCG,REF$ t REfC.REFB,ZUML<2,1.3 >,ZU*U 2, 1,11,ZUMA04U690 
4LI 2p 1,2 )« ZUHR 12,1,3), 2UHR (2,1 ,11 ,!ZUMP!2,1,I 1 , 1*1 ,31 ,U INGDI1, U),MA04ll700 
5 INGClI,121,WlNGD!1,6),WlNGDII,91,Wl NGDI1 ,11 , ZUKLG (31, ! ZUMLGII), I-1A0411710 
6,2)*(ZACNG(I),I* 1,2),IZUMPG(I),1-1,3),XCG,ZCG,REFS,REFC,REFB,DETERA0411720 


2309 

2310 
23 1 L 

2312 

2313 

2314 
231$ 

2316 

2317 

2318 

2319 

2320 

2321 
23 22 

2323 

2324 
232$ 

2326 

2327 
2320 

2329 

2330 

2331 

2332 

2333 

2334 
233$ 

2336 

2337 

2338 


7M,SCALE 

A041173O 

2339 

C 

AD411740 

2340 

C 

AO 41l7 50 

2341 

RETURN 

*0*11760 

2342 

C 

A04117T0 

2343 

END 

A0411780 

2344 

7 FOR AO5,A05 

A0$ 

10 

2345 

C 

AOS 

20 

2346 

C 

AOS 

30 

2347 

SUBROUT INF ABORTJINOGO,TEST,I TEST) 

AO 5 

40 

2348 

C 

AO 5 

SO 

2349 

C * TRW MULT1PLE-SURFACE VHRTEX-LATTICE PROGRAM - REVISED 6 AUG,72 

• AOS 

60 

2350 

C * PROGRAM DEVELOPED BY A.V.GOMEZ (TRW SYSTEMS) ON JUNE-JULY 19T1 

* A05 

70 

2351 

C 

AOS 

80 

2352 

C XXXXXXXXXXXKXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX AO5 

90 

2353 

c 

A05 

100 

2354 

c 

AO 5 

no 

2355 

CDMMON/OATAOl/ KIN, KOUT, KT1, KT2, KT3, KREC, KFILE* LIN, LIN< 

405 

120 

2356 

1 ,RAD, PIE, CUT0F1, CUT0F2, DELALF, LfLAP, LDRAG, COLOCP 

AOS 

130 

2357 

2 , IFLGI20I, EXECKU5I 

AO 5 

140 

2356 

c 

AOS 

150 

2359 

EQUIVALENCE (0,N) 

AOS 

160 

2360 

C 

AOS 

170 

2361 

DATA CMAK/0.90/ 

AOS 

180 

2362 

DATA 15/5/,110/1C/,I10D/100/,I60/60/,125/30/ 

AOS 

190 

2363 

C 

AOS 

200 

2364 

C 

AO 5 

210 

2365 

1000 FORMAT! IX,//,3X,25H *** JOS ABORTED BECAUSE , 

AOS 

220 

2366 

'l 2JHNG.0F LIFTING SURFACE S 3 ,!2,17H EXCEEDS FIVE ***,/ T 3X,6TUH*1 

) AOS 

230 

2367 

C 

AOS 

240 

2368 

1010 FORMAT! IX,// f 3X,25M JOB ABORTEO BECAUSE , 

AOS 

2 SO 

2369 

2 20HN0.QF SPAN ELEMENTS 3 , I2 1 16H EXCEEDS 60 *** , /,3X,63UH*) 

) AO 5 

260 

2370 

C 

AOS 

270 

2371 

1020 FORMAT!IX,//,3X,25H *** JOB ABORTED BECAUSE , 

AOS 

280 

23 72 

3 21HNO.OF CHORD ELEMENTS* ,12,16H EXCEEDS TEN ♦ **, /,3X,65(1H*| 

) AO S 

290 

2373 

C 

AOS 

3 00 

2374 

1030 FORMAT! IX,//,3X,25H *** JOB ABORTED BECAUSE , 

AO 5 

310 

2375 

4 24HN0.0F VORTEX MATRIX ELEMENTS 3 ,I2 t 16M EXCEEDS 100 ***,/,3X,72(IA05 

320 

2376 

*H* 1 1 

AOS 

330 

2377 

C 

AOS 

340 

237 B 

1040 FORMAT! IX,//,3X,25H ♦** JOB ABORTED BECAUSE , 

AOS 

350 

2379 

5 9HMACH NO • 3 , F6.3, L7H EXCEEDS 0.90 ***./, 3X, 57(IH*| ) 

AOS 

360 

2300 

C 

AOS 

370 

2361 

1050 FORMAT! IX,//,3X,25H *** JOB ABORTED BECAUSE , 

A05 

3B0 

2382 

6 L 7HN0.SPAN STATIONS 3 ,12,15H EXCEEDS 25 **•,/,3X,59{IH*) J 

A05 

390 

2383 

C 

A05 

4 00 

2384 

1060 FORMAT! IX,//,3X,25H *4* JOB A80RTE0 BECAUSE , 

AOS 

410 

2385 

7 18HND.CHORD STATIONS 3 , T2,l5H EXCEEDS 10 ***,/,3X,601IH*) 1 

AOS 

420 

2386 

C 

AOS 

430 

2387 

1070 FORMAT! IX,//,3X,25H *** JOB ABORTED BECAUSE , 

AO 5 

440 

2386 

8 20HN0.0F SPAN ELEMENT5-, 12 ♦ 18H NOT PERMITTED *♦*,/,3X,65! IH*1 ) 

AOS 

4 50 

2389 

C 

AOS 

460 

2390 

10RQ FORMAT!IX,/7,3X,25H *** JOB ABORTED BECAUSE , 

AOS 

470 

2391 

9 26HN0.DF WING CHORD ELEMENTS 3 ,12,18H NOT PFRMITT ED ***,/,3X,71( 1HA05 

48 0 

2392 

**> ) 

AOS 

490 

2393 

C 

AOS 

•500 

2394 

1090 FORMAT!IX,//,3X,25H *** JOB ABORTEO BECAUSE , 

A05 

sio 

2395 

* 32HINPUT ERROR IN NSS FLAG, NS51N)*I2,11H.LT.NSS(M1=I2,4H **«, 

AOS 

.520 

2396 

* /,4X,75(lH*ll 

AOS 

530 

2397 

C 

405 

540 

2398 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXA05 

550 

2399 

c 

AOS 

560 

2400 

c 

A05 

570 

2401 

c 

AOS 

590 

240? 

GO TO (1100,1110,1120,1130,1140,1150,1160,1170,1180,ll901pN0G0 

AOS 

590 

2403 

1100 IF ! I5.LT .HE5T ) WRITE ( KOUT,lOOD)I TE ST 

AOS 

600 

2404 

IF! I5.LT.ITFSTI CALL EXIT 

AOS 

610 

2405 

RETURN 

AOS 

620 

2406 

1110 IF ( I60.LT. ITESTI WRITE ( KOUT ,1 010H TEST 

AOS 

63 0 

240 7 

IF 1 l60.Lt.ITE ST) CALL EXIT 

AOS 

640 

2408 

R F TURN 

AOS 

650 

2409 

1120 Jf ( 110.LT.ITESTI WRITE IKOUT,10201 I TEST 

405 

660 

2410 

IF!tlO.LT.ITF5T 1 CALL EXIT 

AOS 

670 

2411 
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RETURN 



AO 5 

660 

2912 

1 L30 

IF 1 IIOO.LT.TTESI) 

NR [ TF 

1KDUT,10301 I TEST 

AO 5 

690 

2913 


IF t ! 100.LT.ITE S T 

CALI 

F XI T 

AOS 

7 00 

2419 


R F TURN 



AOS 

T 10 

241 S 

11*0 

IF (CMAK.LT.TESTJ 

WRITE 

IKOUT,10*01 TEST 

AO 5 

720 

2416 


IF(CMAK.lT.TEST! 

CALL 

EXIT 

AO 5 

730 

2917 


RFTURN 



AOS 

790 

2918 

1 fso 

IF ! I25.LT-ITEST) 

WRITE 

(KOUT ,1 050) I TEST 

AOS 

750 

2919 


IF{ 125 .LT.(TESTI 

CALL 

EXIT 

AOS 

760 

2920 


RETURN 



AOS 

770 

2921 

1160 

If < I10.LT.ITE ST) 

WRITE 

IKOUT.1060) I TEST 

AOS 

760 

2922 


1 FI 110.LT.1TESTJ 

CALL 

EXIT 

AOS 

790 

2923 


RETURN 



AOS 

6 00 

2929 

1170 

IF I ITEST.LT.0) WRITE fKOUT,1070)I TEST 

AO 5 

810 

292 5 


If( ITEST.LT.01 

CALL 

EXIT 

AOS 

820 

2926 


RFTURN 



AOS 

830 

2427 

1180 

IF < ITEST.LT.01 WRITE IKOUT,1 060) tTEST 

AOS 

890 

2420 


If( 1TFST.LT.01 

CALL 

EXIT 

AO 5 

8 SO 

2429 


RFTURN 



AO S 

060 

2930 

1190 

0= TEST 



AOS 

070 

2431 


IF (N.LE.1TFST) WRITE (KOUT ,109Q)N»I TEST 

A05 

860 

2432 


IfIN.LE .1 TEST) CALL fXIT 


AOS 

890 

2433 


RFTURN 



AOS 

900 

2934 

C 




AOS 

910 

243 S 


END 



AOS 

920 

2436 


9 FOR 

AO6.A06 

AQ6 

10 

2437 

C 


A06 

20 

2436 

C 


AD6 

30 

2439 


SU0ROUT INF CDROFIWA,YA,XLE,XTE,ZL£,EPS,CW,CF,CTB,TAND.TAN5 » R.M1,M)A06 

40 

2440 

C 


A06 

so 

2441 

C 

* TRW MULTIPLE—SURFACE VORTEX-LATTICf PROGRAM 

- REVISED 8 AUG.T2 *A06 

60 

2442 

C 

* PROGRAM DEVELOPED 9Y A.V.GPME l (TRW SYSTEMS) 

ON JUNF-JULY L971 *A06 

70 

2443 

C 


A06 

80 

2444 

C 

XX XXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXX AOS 

90 

2445 

c 


A06 

100 

2446 


COMMON /OA T A02 / NUNG, NFJS, NVTA| L» NSSI51, NSS0I5), NCS(S) A06 

110 

2447 


1 , X(30 ) , YI30 ) , 2(301. FI30), C13D), KflCR!30>, 

FLAPC!30),T ABC(30) A06 

120 

244 6 


2 .WSMOTH. EWE130), ELF ( 30) » ETEI30), EHEC30 > » 

EHE E130) AOS 

130 

2449 


3 . XOC(10,5 ) , 2QC f10.301 

A06 

140 

2450 

c 


A06 

150 

2451 

c 


AO 6 

1 SO 

2452 

c 

XXKXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXAOS 

WO 

245 3 

c 


AD6 

ISO 

2454 

c 


406 

190 

2455 

c 


A0& 

200 

245 S 


»= -l 

AD6 

210 

2457 


NX= 30 

AOS 

220 

2458 


DO 1020 L-2.NX 

A06 

2 30 

2459 


IF f M| 1000,1000,1020 

A06 

240 

2460 

1000 

TEST* WA - EWE1LI -0.001 

A06 

2 50 

2461 


IF (TEST) 1010,1010,1020 

A06 

2 SO 

2462 

1010 

M*L 

AO 6 

270 

2463 

1020 

r.nNT inuf 

A06 

250 

2464 

c 


A06 

290 

2465 


IF (M-2) 1030,1040.1040 

AOS 

300 

2466 

1030 

4*2 

AO 6 

310 

2467 

1040 

Ml= M-L 

A06 

320 

2468 

C 


A06 

330 

2469 


RATS-!WA-FWF (Mil ) / 1EWE ( M1-EWE ( M1)l 

AOS 

340 

2470 

c 


AOS 

350 

2471 


XL F = ELF(Ml) ♦ RATS*1 ElE(M> - ELE1M1I ) 

AOS 

3 SO 

2472 


XT E = ETE(Ml) 4- RAT $* ( E TE (M) - ETE(Ml) ) 

AOS 

370 

2473 


XHE = E HE < M l) + RATS*! EHE(M) - EHEI Ml ) | 

AOS 

380 

2474 


XHEE= EHFEIMU+ RAT S* ( EHEE (M J -EHEE(Ml) ) 

AOS 

390 

2475 


EPS = F141 ) +■ RATS*! EIM1-EIM1J J 

AOS 

4 00 

2476 


2L E " 2IM1I + RATS*! ) 

AOS 

410 

2477 


CW = XTE - XLE 

AOS 

420 

2478 


CF * XTE - XHE 

AOS 

430 

2479 


CTB- XTE - XHEE 

AOS 

440 

24SCI 


tt = RATS 

AOS 

4 50 

2461 

c 


AOS 

4 60 

2482 


OY = Y(N)-Y!Nl ) 

AO 6 

4 to 

2483 


OW = EWEIM)-Ewf ( *11 

AOS 

460 

248* 


Y4 = Y( Ml > ♦ R A T S*D Y 

AOS 

490 

246 5 


TANC - 100000.0 

A06 

500 

2486 


TEST- A&SIOY) -0.001 

AOS 

510 

2487 

c 


AOS 

520 

2488 


IF (TEST) 1060,1060,1050 

AOS 

5 30 

2489 

1050 

TANO= 1ZIM ll-Z (M)) /OY 

AOS 

540 

24R0 

1060 

TANS= IXIM ) *C(M )*!0.25*XOCRIM) ) -XI Mll-C(Ml) *(0 

.25-XOCRIMl)1 U DW AOS 

550 

2491 

C 


AOS 

560 

2492 


RFTURN 

AOS 

570 

2493 

C 

XXXXXX 

ADS 

500 

2494 

c 

END 

AOS 

590 

2495 


AOS 

600 

2496 


V 

FOR A07.AC7 

A07 

10 

2497 

C 


A07 

20 

2498 

C 


AO? 

30 

2499 


SUBROUTINE CAMBFRINSF,NK,Ml,M2,RATS.fPS,XLE,CW, XF,ZF) 

A07 

40 

2500 

C 


6 07 

50 

2501 

c 

* TRW MULTIPLE-SURFACE VDRTEX-LATT!CF PROGRAM - REVTSED 8 AUG.72 

• AO? 

SO 

2502 

c 

* PROGRAM DEVELOPED BY A.V.GOMEZ (TRW SYSTEMS) ON JUNE-JULY 1971 

* AOT 

?0 

2 50 3 

c 


AO 7 

AO 

2504 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX AOT 

90 

2505 

c 


A QT 

100 

2506 


n 1 MENS ION 20C Y< id 

AOT 

110 

2507 

c 

COMMON/0ATA01/ KIN, KOUT, KT1, KT2, KT3, KREC, KF1LE, LIN, LINX 

A07 

120 

2508 


AOT 

130 

2509 


1 .RAO, PIE, CUT0F1, :UT0F2, DELALF, LFL AP, LOftAG, COLOCP 

AO? 

140 

2510 


2 , I fLG(20), E XEC K (151 

AOT 

150 

2511 
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COMMON/OATA02/ NhtNG, NFUS, NvTAl L, NSSI5I, NS$0(5>» NC$<5 
l ,X< 301« Y(30J. Z { 3 0) * F<301, C<30», XOCROO), FLAPC<30»,T 
l pNSMOTM, FWF(30), ELEI30), E TE(301, EHF130)■ EHEE130) 

1 .X0C(10,51, ZOC (10,301 

XXXXXXXXXXXXXXX)CXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXKXXX; 


If <CM,LE. I .OE-4) RETURN 
DO 1000 L=1,NK 

ZOCV(L>* Z OC (L , H1) + RATS*( Z0C(L* M2)-ZOCI L,H11 I 

XOCREF * XOTRIMII + RATS*1XOCR<M2l-XOCR(Ml») 

TANF « TAN IFP5/RAO) 

XOCT = (XF-XLEI/CW 

N2 = - I 

DO 1030 1=2,NK 

IF ( N 2 1 1010,1010,1030 

TEST = XOCT - XOCIL.NSF) - 0*001 

IF (TFSTI 1020,1020,1030 

N2*L 

CHNTINUE 

IF (N2-11 10^0,1040,1050 
N2= 2 
N l » N2"1 

RAT * ( xnc T - XOC(Nl,NSfM/(XOC(N2,NSF)-XOCINi,NSFn 
OELZ* CW*( Z0CYIN1! + R AT* ( ZOCYI N2)“ZOCY(NU I 1 

If - ZF ♦ OELZ + TANE* ( XF - XLE - CH*X0CREF ) 

RETURN 


AO 7 

160 

2512 

A07 

170 

2513 

AO 7 

180 

2514 

A07 

190 

2515 

A07 

200 

2516 

A07 

210 

2517 

A07 

220 

2518 

AO 7 

230 

2519 

A07 

240 

2520 

A07 

250 

2521 

A07 

260 

2522 

AO? 

270 

2523 

A07 

280 

2524 

A07 

290 

2525 

A07 

300 

2526 

AO 7 

310 

2527 

AO 7 

320 

2528 

AO 7 

330 

2529 

AO 7 

340 

2530 

A07 

350 

2531 

AO 7 

360 

2532 

AO 7 

370 

2533 

AO 7 

380 

2534 

A07 

390 

2535 

A07 

400 

2536 

A07 

410 

2537 

A07 

420 

2538 

A07 

4 30 

2539 

A07 

440 

2540 

A07 

450 

2541 

AO 7 

4 60 

2542 

AQ7 

470 

2543 

A07 

400 

2544 

A07 

490 

2545 

A07 

500 

2546 

A07 

510 

2547 

A07 

520 

2548 

AO 7 

530 

2549 


FOR AG 8,AOS 


SUBROUTINE fLAPSINSF,WA,SrtEK,XTF,CF,CTAB,TAND, P,COSN) 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 6 AUG.72 


REAL NOAIL,NOGO 
DIMENSION P< 31, C0SN(31 


CCIMMON/DATAOl/ KIN, KOUT, KT1, KT2, 

1 ,RAD, PIE, CUTOFl, CUTOF2, DElALF, 

2 , IFL GI 20 I , EXECKU5I 


KT3, KREC, KFILEi LIN, 
LFLAP, LORAG, COLOCP 


COMMON / DA T A 02/ NUNG, NFUS, NVTAIL, NSSC5I, NSS0C5I, NCSC51 

1 iX(30), Y(301, l (301, EI301, C(30), XOCRI30I, FLAPC(30),TABC<301 

2 ,WSMOTH, EWE(301, ELFI30), ETEI30I, EHFI301, EHEE(301 
'3 ,XOC( 10,5 I, ZOCi 10,301 

COMMON/DA TA03/F LAPDJI 51 ,TA8DJ(5 I , AIL D J12,5 1 , OE LTF1( 5l,f>ElT F2( Si 

1 .UFFIK5I, WFF 12 ( 51 , WFF2U5), WFF22I3I, WFF31I51 

2 t WFLAP1(51, wFLAP2I 5), WFLAP3I 51 


Nx NSF 

NIO* NSF +10 
NOFLAP x IFLG(NIO) 
IFINOFLAP.LT.il NOFLAP< 
NO TAB x NOFLAP - 1 


IF (NOFLAP) 1310,1310,1000 
1000 XfLAP x P( n - ( XTE - CF 1 

XTA8 - P(1) - < XTE - CTAB 1 
IF (XFLAP ] 13 10,1310,1010 

1010 CONTINUE 


l.O/SQR T(l.Q+TAN0**2) 
TAND*COSO 


COSM l) 

COSNI2)*CCSD - C0SNI31*SIN0 
COSN(3)*CCSO + C0SNI21*S!N0 


FL4PD = FLAPDJIN| 

TABD = TABDJ(N) 

AILD 3 A ILDJ(l,N1 
SIGN = 1,0 

tF (SHFK1 1020,1030,1030 
1020 SIGN = -1,0 

AILD = AtLDj(2,N) 

1030 CONTINUE 

NOAIL = ABS(AILO) - 0. I 


DFLAPx 


A08 

10 

2550 

A08 

20 

2551 

AO 9 

30 

2552 

AOS 

40 

2553 

AOS 

50 

2554 

* AO B 

60 

2555 

*A08 

70 

2556 

AOS 

80 

2557 

X A08 

90 

2558 

AO 8 

100 

2559 

AOS 

no 

2560 

AOS 

120 

2561 

AOS 

130 

2562 

AOS 

140 

2563 

AOS 

150 

2564 

AOS 

160 

2565 

AOS 

1 TO 

2566 

AOS 

180 

2567 

AOS 

190 

2568 

AOB 

200 

2569 

AOS 

210 

2570 

AOB 

220 

2571 

AOS 

230 

2572 

AOS 

240 

2573 

AOS 

250 

2574 

AOS 

260 

2575 

AOS 

270 

2576 

XA08 

2B0 

25 77 

AOS 

240 

2578 

AOB 

3 00 

2579 

A08 

310 

2500 

AOS 

320 

2501 

AOS 

330 

2582 

AOS 

340 

2583 

AOS 

3 50 

2564 

AOS 

3 60 

2585 

AOS 

370 

2596 

AOS 

380 

2587 

AOS 

390 

2588 

AOS 

400 

2589 

AOS 

410 

2590 

AOB 

420 

2591 

AOS 

430 

2592 

AOB 

440 

2593 

AOS 

450 

2594 

A08 

460 

2595 

A08 

470 

2596 

AOS 

480 

25 97 

AO 8 

490 

2598 

AOS 

500 

2599 

A08 

510 

26 00 

AOS 

520 

260 L 

A08 

530 

2602 

AOS 

540 

2603 

AOB 

550 

2604 

AOS 

560 

2605 

AOB 

570 

2606 

AOS 

590 

2607 

AOa 

590 

2606 

AO 8 

600 

2609 

A08 

610 

2610 

A08 

6 20 

2611 

AOS 

630 

2612 

AOS 

640 

2613 

AOS 

650 

26L4 
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on non non no o n o non on no 


C 


0A IL D = 0.0 
DTAB = 0.0 


C 


NO = N$SQ< N I 
YA = WA - F WE (NO > 

WFF32 - Wf F 3 11 N I + WFF22IN) -Wff 2ilN| 


TST11 * YA 
TST12 = YA 
TST21 = YA 
TST22 - YA 
TST31 * YA 
TST32 = YA 


WFF HIM 
WFf 12INJ 
WFF2HN) 
WFF22INJ 
WFF31I NJ 
WFF 32 


IF INOFLAPI l 120*1120*104 0 
1 0 AO IF ( WFLAP HN)I iceotioeo, 1050 
1050 IF (T5TUJ 1 120,1120,1060 
1060 IF (TST12) 1070,1080*1080 

1070 SHF = 0.5* ( 1.0 ♦ SINC P I E * < TS T11 / DELT Fi (N1 -0.5 1 I ) 

OFLAP = SHF*FLAPG 
DTAB = SMF* TABt) 

GO TO 1120 

lOfiO IF ITST2IJ 1090 ,IC90*1100 
10^0 SHF = 1.0 

OFLAP = SMF*FLAPC 
OTAB = SHF+TABO 
r,Q TO 1120 

1100 IF ITST22I 1110*1120,1120 

1110 SHF - 0.5*1 L« 0 ♦ S[N{ P[E*(TST21/DFLTF2INI ♦0.51 1 I 

OFLAP = SHF*FLAP0 
OTAB = SMF*TAB0 


1120 IF (NOAIL1 1210,1210,1130 

1130 SMF* 1.0 

DA fLO = SMF*A ILD 

1140 IF ITST21I 1150,1150,1160 

1160 SHF - 0.0 

DA ILO - SNF*AIL0 
GO TO 1210 

1160 IF (TST22I 11 70,1180,1180 

1170 SMF = 0.5*( 1.0 ♦ SIN! PI E * ITST21/DELTF2 ( N1 -0.51 I I 

OAILO = 5MFYA1L0 
HO TO 1210 

1160 IF CTST31J 1210,1190,1190 

11°0 IF ITST32) 1200,1150,1150 

1200 SHF - 0.5*( 1.0 ♦ SIN1 PIE *(TST31/PELTF2IN I +0.5 I I I 

OAILD = SHF*AILO 

1210 CONTINUE 


1220 

1230 


IF tXTABl 1260,1220,1220 
NO CO = ABSI OTAB I -0.L 
IF INOGOI 1260, 1230,1230 
TANF * TAN I DTAtt/ftAD I 
CQSF = 1.0/SQft T| l.0+TANF**2l 
SINF = T6NF*C05F 
ON OR = XTAB* SINF 


XCHS = COSX*COSF - C □ S Z* SI Nf 
l COS = CO SZ*C Q S F ♦ COSX*SINF 


cosx = xcos 

CDSZ = /COS 


IF ILFLAPI 1240,1240,1250 
1240 Pill * P(ll - XTAB+li. 0-C05F) 
<M 2 I “ P ( 2 I ♦ DNOR*SI NO 
P( 3 I = P(3 I * DNCP*COSO 
1250 CHNT1NU C 


1260 

1270 


NOGO = ABS( OFLAP *■ OAILOI - 0. I 

IF INOGOI 1300,1300,1270 

TANF * TANI IOFLAP *■ DAILD >/RAC I 

rose = t.o/sq^Tii.o t anf * *2 > 

S1NF = TANf*COSF 
ONOR “ XFL AP*SINF 


XCOS * C 0 SX*CO SF - Cns/*S1NF 
ZCtlS - CQ5Z*C0SF ♦ C0SX*S1NF 

cnsx = XCOS 
cnsz = zc os 


IF ILFLAPI 1280,128C,12PQ 
1230 Pill - Pll) - XFLAP+I1.0-C05FJ 
p|2I = PI 21 + ONOR* ST ND 
P(3 1 - PI 3 1 ♦ 0N0R*cnS0 
1290 CONTINUE 


1300 CONTINUE 

CQSNIlI = cnsx 

C0SNI2I = C0SY*CC5D + C0SZ*SIND 
COSNI3) = COSZ*CCSO - COSY*SINO 


1310 RETURN 
C 

END 


AO 6 

660 

2615 

AO 8 

670 

2616 

AO 8 

6 BO 

2617 

Aoa 

690 

2618 

AO 8 

700 

2619 

AO 8 

710 

2620 

A08 

720 

2621 

AG8 

730 

2622 

AO 8 

740 

2623 

408 

7 50 

26 24 

AO 8 

760 

2625 

A08 

770 

2626 

AO 8 

780 

2627 

A08 

790 

262 B 

AOS 

800 

2629 

A08 

SLO 

2630 

A08 

820 

2631 

Aoa 

830 

2632 

Aoa 

340 

2633 

A08 

850 

2634 

A08 

860 

2635 

AO 8 

870 

2636 

AOS 

880 

2637 

AOS 

890 

2638 

A08 

900 

2639 

403 

910 

2640 

AOS 

920 

2641 

A08 

930 

2642 

409 

940 

2643 

Aoe 

950 

2644 

AO 8 

960 

2645 

AOS 

970 

2646 

AO 8 

9 BO 

2647 

AO 8 

990 

2648 

Aoa 

1000 

2649 

AOB 

1010 

2650 

AO 3 

1020 

2651 

AOB 

1030 

2652 

AOB 

1040 

2653 

AOB 

1050 

26 54 

AO 8 

1060 

2655 

AOB 

1070 

2656 

AOS 

1080 

2657 

AOS 

1090 

2658 

AOS 

1100 

2659 

AOS 

1110 

2660 

AOB 

1120 

2661 

AOB 

1130 

2662 

AOS 

1140 

2663 

AOS 

1150 

2664 

AOS 

1160 

2665 

AOB 

1170 

2666 

AOS 

11 BO 

2667 

AOB 

1190 

2668 

aos 

1200 

2669 

AOS 

1210 

2670 

AOB 

1220 

26 71 

AOB 

1230 

2672 

AOS 

1240 

2673 

AOS 

1250 

2674 

AOS 

1260 

2675 

AOS 

1270 

2676 

AOB 

12 80 

2677 

AOB 

1290 

2678 

A08 

1300 

2679 

A03 

1310 

2600 

AOB 

1320 

2681 

AOB 

1330 

2682 

AOB 

1340 

2663 

AOS 

1350 

2684 

AOB 

L 3 60 

2685 

AOB 

137Q 

2686 

AOB 

1380 

2687 

AOS 

1390 

2668 

AOS 

1400 

2689 

AOS 

1410 

2690 

AOB 

1420 

2691 

AOS 

1430 

2692 

AOB 

1440 

2693 

AOS 

1450 

2694 

AOS 

1460 

26*5 

A09 

1470 

2696 

AOB 

14 80 

2697 

AOS 

1490 

269 B 

A08 

1500 

2699 

AOS 

1510 

2700 

aos 

1520 

2701 

AOB 

1530 

2702 

AOS 

1540 

2703 

AOS 

1550 

2704 

A08 

1560 

2705 

aos 

1570 

2706 

40 9 

15 BO 

2707 

AOS 

1590 

2706 

AOS 

1600 

2709 

AOS 

1610 

2710 

AOS 

1620 

2711 

AOS 

1630 

2712 

AOS 

1640 

2713 

AOS 

1650 

2714 

AOB 

1660 

2715 

AOB 

1670 

27 L 6 

AOS 

1690 

2717 

AOS 

16 90 

2718 
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V FOR 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


A09.A09 A0< * 

A09 

A09 

SUBROUTINE FLAPICNSF.WA.SME .XTE ,CF f CTA&,TAND.XLE .YLE.ZLE, COS 3 > A09 

A09 

* TRW MULT1PLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.T2 *AQ9 

♦ PROGRAM DEVELOPED BY A. V.GOMEZ ITRW SYSTEMS! ON JUNE-JULY 1971 *A09 

A09 

XXXXXKXXXX*XXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXA09 

AQ9 

0[MENS ION PI3I.CCS3I3) *Q* 

A09 

A09 

A09 

PI 1>* XLE A0< * 

PI 21 * YLf A09 

PI 31- ZLE A09 

A09 

CALL FLAPSINSF.HA.SHE,XTE,CF,CTA0.TANO, P.COS3I A09 

AO 9 


XLE * PUi 
YLE - PI 2! 
ZLE = PC 3! 


RETURN 

END 


AO 9 
A09 
A09 
A09 
A09 
A09 
A09 
A09 


v FOR A 1 0»A10 
C 


SUBROUTINE RFFLECIP.ZL.ALFAR.COSRI 


A10 
AiO 
A10 
AIO 
AIO 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.72 PAID 
+ PROGRAM DEVELOPED BY A.V.GOMEZ (TRW SYSTEMS! ON JUNE-JULY 1971 *A1D 

AIO 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXAIO 

AIO 

DIMENSION P 13) 


COMMON/OATAOl/ K TN. KOUT, KT1, KT2» KT3, KREC. XFILE. LIN. LINX 

1 .RAO. P1E. CUTOF1, CUTOF2, DELALF. LFLAP, LORAG, COLOCP 

2 , IFLGI20). EXECKI15! 

NAMEl I5T/REFLEX/PX.PY,XI ,Yi .PHt.ALFAR.ftX.RY . ZL .CC35R 
DATA X2/0.0/. Y2/0.0/ 


AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 


PX= PC3! 

PY- PI!) 

XI = ZL /COSR 

ri=» o.o 

PHI- -ALFAR 

NOTE- IFLGI20) - 15 


XXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXKXXKXXXXXXXXA10 

AIO 
ALO 
AIO 
AID 
AIO 
AID 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 
AIO 


‘ CALL RQTATEIPX.PY,X1.Y1.PHI.X2.Y2.RX.RY! 

IF (NDTEI 1010.1C10,1000 
1000 WRITE (KOUT.REFLEX) 

1010 CONT INUE 

R X --ft X 

CALL P0TATElRX,«> t X2.Y2fALFAR.Xl.Yl.PX.PYI 

IF INOTE) 1030.IC30.1020 
1020 WRITE I ROUT.REFLEX) 

LINES- LINES»24 
1030 CONTINUE 

P< 31- PX 

pi n» py 

RETURN 
: XXXXXX 

END 


V FOR 

c 


Alum ;jj 

All 

SUBROUTINE tSOMETCXLE.YLE .ZLE.REFL.XZER.YZER.ZZER ) All 

All 

♦ TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 9 AUG.72 *A11 

* PROGRAM DEVELOPED BY A.V.G0ME2 <TRW SYSTEMS) ON JUNE-JULY 19TI *A1L 

All 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXKXXXXXXXXXXXXXXKXX A11 

AIL 


RAO- 57.29579 
PHIR= 45 *0 /P AO 
PHIP = -PH1R 
PHIO a 0.5*PHIP 
ZERO - 0.0 

XL E= IXLE-XZERI/REEL 
YLE- IYLE-YZER)/REEL 
ZL E* IZZER-ZLEJXREFl 


All 

All 

All 

All 

All 

All 

All 

All 

All 


10 

2719 

20 

2720 

30 

2721 

40 

2722 

50 

2723 

60 

2724 

70 

2725 

80 

2726 

90 

2727 

100 

2728 

110 

2729 

120 

2730 

130 

2731 

140 

2732 

150 

2733 

160 

2734 

170 

2735 

180 

2736 

190 

2737 

200 

2738 

210 

2739 

220 

2740 

230 

2741 

240 

2742 

250 

2743 

260 

2744 

270 

2745 

280 

2746 


10 

2747 

20 

2748 

30 

2749 

40 

2750 

50 

2751 

60 

27 52 

70 

2753 

BO 

2754 

90 

2755 

100 

2756 

110 

2757 

120 

2758 

130 

27 59 

140 

2760 

150 

2761 

160 

2762 

170 

2763 

ISO 

2764 

190 

2765 

200 

2766 

210 

2767 

220 

2768 

230 

2769 

2 40 

2770 

2 50 

2771 

260 

2772 

270 

2773 

280 

2774 

290 

2775 

300 

27 76 

310 

2777 

320 

2778 

330 

2779 

340 

2780 

350 

2781 

360 

2782 

370 

2783 

380 

27 B4 

390 

2785 

400 

2786 

410 

2787 

420 

2788 

430 

2789 

440 

2790 

450 

2791 

460 

2792 

470 

2793 

480 

2794 

490 

2795 

500 

2796 

510 

2797 

520 

2796 

530 

2799 


10 

28 00 

20 

2801 

30 

2802 

40 

2603 

50 

2604 

60 

2805 

70 

2806 

eo 

2807 

90 

2808 

100 

2809 

no 

2810 

120 

2811 

130 

2812 

140 

2813 

1 50 

2814 

160 

2815 

170 

2816 

[60 

2617 

190 

2818 
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CALL ROTATE! 

XLE*ZLE, 

ZERC.ZERO, 

PHI P, 

ZERO, ZERO, 

XIE,216 * 

All 

200 

2619 


CALL ftOTATCI 

YLEfXLF, 

ZFRO,ZERO, 

PHI P, 

ZERO,ZERO, 

YLf,XLE * 

A1 1 

210 

2B20 


CALL ROTATE* 

YLE ♦ zle ♦ 

ZFRC.ZERO, 

PH IQ, 

ZERO,ZERO, 

YLE »ZLE 1 

All 

220 

2821 

c 







All 

230 

2622 


RETURN 






All 

240 

2823 

c 

XXXXXX 






All 

2^0 

2624 

c 







All 

260 

282 5 


FNO 






All 

2 TO 

2826 


V FOR 

A1 2, A 12 



A 1 2 

10 

2827 

C 




A12 

20 

2828 

C 




A12 

30 

2829 


SUBROUTINE ROTATE* X,Y, XC,YO. PHI, 

XF,YF, XT ,YT 

1 

A 12 

40 

28 30 

c 




A12 

50 

2831 

c 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE 

PROGRAM - REVISED 6 AUG.72 

*612 

60 

28 32 

c 

* PROGRAM 0EV6L0PED BY A.V.GOMEZ (TRW 

SYSTEMS* ON 

JUNE-JULY 1971 

*A12 

70 

2833 

c 




A L 2 

60 

2834 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXA12 

90 

2835 

c 




A12 

lOO 

2836 


XS r X-KO 



A12 

110 

2837 


VS - Y-VO 



612 

120 

283B 


RHO ~ SQRTl XS **2 * YS**2) 



A12 

130 

2839 


ERROR“ 0*0001 



612 

140 

2840 


TFSTX= AR S(XSl-ERROR 



A12 

150 

2041 


TESTY* ASSIYSI-ERROR 



612 

160 

2042 


IF (TESTX1 1000,LC00,1030 



A12 

170 

2843 

1000 

IF f TESTY J 1010,1010,1020 



A12 

ISO 

2844 

1010 

zf t = o*o 



A1 2 

190 

2845 


GO TO 1110 



A12 

200 

2846 

1020 

ZET* 1.570795*1YS/ABSIYSH - XS/YS 



A12 

210 

2847 


GO TO i 110 



A12 

220 

2848 

1030 

ZET- ABS(YS/XS> 



612 

230 

2849 


IF (TESTY! 1050,1C50,1040 



A12 

240 

28 50 

1040 

ZET-ATANIZ£1> 



612 

2 50 

2351 

1050 

CONTINUE 



612 

260 

2852 


IF (XS* 1070,1060,1060 



612 

270 

28 53 

1060 

IF IYSI 1100,1110,1110 



A12 

260 

28 54 

1070 

IF ( YS * 1090,1O0C,1O8O 



612 

290 

2855 

10 00 

ZE T= 3.14159 - ZET 



A 12 

3 00 

2856 


GO TO 1110 



A12 

310 

2857 

1050 

ZE T = 3.14159 ZET 



A1Z 

320 

2658 


GO TO 1110 



AL2 

330 

2059 

1 LOO 

ZET* 6.28310 - ZET 



A12 

340 

2660 

1110 

CONT INUF 



M2 

350 

2861 


ZPP* PHI ZET 



A12 

3 60 

28 62 


XR = R HO * C 0 S ( ZPP 1 



A12 

370 

2063 


YR = »H0*SIN( ZPP 1 



A12 

3B0 

28 64 


XT* XF + XR 



A l 2 

390 

2865 


VT- YF ♦ YR 



A12 

400 

2066 

C 




A12 

410 

2867 


return 



A12 

420 

2666 

C 

xxxxxx 



AI2 

430 

2069 

C 




A12 

44 0 

2070 


END 



A12 

450 

2871 


V FOP 613,A13 

A L 3 

10 

2072 

C 

A13 

20 

2073 

C 

A13 

30 

2874 

SUBROUTINE VDRTE >t P ,0,D.TANA,GAMA, VI,VC0S* 

A | 3 

40 

2875 

C 

A13 

50 

2876 

C * TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 0 AUG.72 

* A I 3 

60 

2677 

C * PROGRAM DEVELOPED BY A.V.GOMEZ (TRW SYSTEMS* ON JUNE-JULY 1971 

*A I 3 

70 

2870 

C 

Al 3 

BO 

2879 

C KXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXA13 

90 

2 seo 

c 

A l 3 

100 

2881 

DIMENSION P131,3{3*,0(3* 

A1 3 

110 

2862 

OIMENSION COSH 31 ,C052(3J ,C0S313* , X( 3 * , A (3 1 , VC OS 13 * 

A13 

120 

2883 

01MFNS ION G(3* 

Al 3 

l 30 

2604 

C 

A L 3 

140 

2 BP 5 

CnMMON/OATAGl/ KIN, KOUT, KTt , KT2, KT3, KREC,’ KF I LE, LlN, L l NX 

Al 3 

150 

2886 

1 ,RAO, PIE, CUT0F1, CUT0F2. OELALF, LFLAP, L DR AG, CDLOCP 

A l 3 

160 

2887 

2 , IFLG(201, EXECK (IS * 

Al 3 

170 

2888 

C 

A l 3 

1 80 

2889 

NAM ELIST/D0UGV1/P,0,D,TANA,GAMA,PSIf,VC CS 

A13 

19D 

2B90 

NA MELIST/D8UGV2/PSIF,VCDS 

A l 3 

200 

2891 

NA *FLIST/0BUGV3/PS1F,VCOS 

A 13 

210 

2892 

C 

613 

220 

2893 

1000 FORMAT! IX,//,IX » 

A l 3 

230 

2 8*4 

C 

A L 3 

240 

2895 

C XXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXX A13 

250 

2896 

c 

A13 

260 

2097 

c. 

A I 3 

270 

2898 

c 

Al 3 

280 

2899 

NOTE* IFLG<20* - 8 

613 

290 

2900 

T AN A S = TAN A** 2 

613 

300 

2901 

C0S6= 1,0 - TANA 5/2.0 

Al 3 

310 

2902 

IF ( TANAS-0.000 l 1 1020,1010,1010 

6 L 3 

320 

2903 

1010 TOSA* 1.0/SQR Tf TANAS*-! .0* 

613 

330 

2904 

1020 SINA* CO SA * TANA 

613 

340 

2905 

C 

A1 3 

350 

2906 

SCALF= SQR T( (D (1 »-B 11 * »**2*-(0 (2*-B(2* * * *2 *• ( 0 (3 * -B ( 3 *) *42 * 

613 

360 

2907 

OD 1030 K - 1, 3 

A1 3 

370 

2908 

X(K * - (P(K *-0. 5*(BIK*+D(KJ > */SCALE 

A13 

3 80 

2909 

AIK** (0,5*(D(K*-6<K|1 */SCALF 

613 

390 

2910 

1030 VCOStK1= 0*0 

A13 

4 00 

29 U 

C 

A 13 

410 

2912 

C 

613 

42 0 

2913 

c 

A1 3 

430 

2914 

c * SEGMENT inf-a-b * 

A1 3 

440 

2915 

c 

A13 

450 

2916 

H5 = TANA* 1 X < 11 ♦ Mil) 

613 

460 

2917 

C 

A l 3 

470 

29] e 
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n o o o r> 


HS1 = U(l^A(m**2 + H5**2 

HS2 = IX(2)*A|2|)**2 + IXI3I+ACJI-H5J+*2 

HS3 = ( XI 1 H-A ( l ll**2 ♦ I X(21♦A (2 M **2 ♦ lXC3)*A|3|l**2 

HI * $Q»T<H$11 

H2 = S0RTIH521 

COSG= o.n 
SING- 1.0 

TEST = CUTC1FI - Hi 


IF 1 TEST 1 1040,1C5Q,1050 
1040 COSG* < HS3-HSI-HS21/< 2-0*H1*M21 
SING- SQRT(AB5( 1.0-COSG**2M 
1050 CONTINUE 


C 


C 

C 


R - H2* SING 

H4 * H2+CDSG 
SH14* H1♦H4 

PS IF = ( 1 * Q «-SHL4/SQRT(SH14**2*R**2> 


cosh 11 

COSH 2 I 
COSH 3 1 
C0S21l> 
C3S2(2I 
CO S2(31 


COSA 

0*0 


SINA 

( XI I »*Am-SH14*C0SA l/R 
I X12I+AI2) >/R 
| XIH+AI 3)-SHl4*SINA I /R 


)/R 


CALL CftOSPI COS 1 »COS2tCOS3) 
C 

00 1040 K - It 3 

1060 VCO$(KI* PS|F*CCS3IK) 

c 

IF (NOTE! lOBQt1070,1070 
1070 WRITE (KQUT,1000) 

WRITE IKOOT,DBUGS«n 
1080 CONTINUE 


♦ SEGMENT O-E-INF * 

M5 » TANA*! XI I I-AI 1H 
C 

HSl = <xm-Aim**2 * H5**2 

HS2 * (K|2>-A|2M**2 ♦ <X13>-A{3)-HS»**2 

HS3 = (Xm-A<ll )«*2 * <X12I-A(2M**2 * I X(31-AI3H **2 

HI = 5QRTIHS1) 

H2 = $QR T(HS2) 

C 

COSG* 0*0 
SlNG = 1.0 

TEST * CUT OFl - HI 
C 

IF < TEST 1 1090, 1100*1100 

1090 COSG* (HS3-HSI-HS21/(2.0*Hl*H2l 
SING* SQPTIABSU .0-COSG**2 11 
UOO CONTINUE 
C 

R = H2* SING 
H* - H2*C0SG 

• SH14- H1+H4 
C 

PSIF= (-1*0 -SH14/SQR T ( SH14**2* R**21 1/R 
C 

COSH 1>* COSA 
COSH 21 * 0*0 
C0S1(3>- SINA 

C0S2I11- < XI1)-All)-SH14*C0SA 1/R 

CO S2(2) = ( X(2I-A<2) l/R 

C0S2C 31- 1 XI2>-A(3l-SHl4*SlNA 1/R 

C 

CALL CROSPIC0S1,C0S2*COS3) 

c 

DO 1110 K * 1, 3 

1110 VC0SIK1* vcnsixi + PSIF*C0S3|K1 

c 

IF (NOTE 1 1130,1120,1120 

1 120 WRITE IK0(JT,DBUGV2I 
1130 CONT JNUE 
C 

c 

c 

C * SEGMENT B-C-0 * 

C 

HSl - 4.0*1 A( 11**2 + A(21**2 ♦ A|3I**2 I 

HS2 = (X( 11-A I II 1**2 *■ ( XI2I-AI2) I **2 ♦ I X(3 l-At 3 11**2 

HS3 ^ <xI 1HAI1II**2 ♦ ( X<2I *AI2M**2 * I XI3)*A(3 I>**2 

HI * SORTIHSII 

H2 * SOR T(HS21 

C 

COSG- (HS3-HS1-HS21/12.0*M1*H2 I 
SING* SQR TUB SI l ,0-C0SG**ZJl 
PSIF- 0.0 

TEST * A9SIS1NG) - CUT0F2 
C 

IF I TEST 1 1170, 1 170,1140 
1140 CONTINUE 
C 

R = H2* SING 

C 

TEST a R/Hl - 10. C* CUT OF 1 
IF (TEST) 1170,1170,1150 
1150 CONTINUE 
C 

RS = R**2 


A13 

490 

2919 

A13 

490 

2920 

A13 

500 

2921 

A13 

510 

2922 

A13 

520 

2923 

A13 

530 

2924 

A13 

540 

2925 

A J 3 

550 

2926 

A13 

560 

2927 

A13 

570 

2928 

A13 

580 

2929 

A13 

590 

2930 

A13 

600 

2931 

A13 

610 

2932 

A13 

620 

2933 

A13 

630 

2934 

Al 3 

640 

293 5 

A13 

650 

2936 

A1 3 

660 

2937 

Al 3 

670 

2938 

AI3 

660 

2939 

A13 

690 

2940 

A13 

700 

2941 

A13 

710 

2942 

A13 

720 

2943 

A13 

730 

2944 

A 1 3 

740 

2945 

A 1 3 

750 

2946 

A13 

760 

2447 

Al 3 

770 

2948 

A13 

780 

2949 

Al 3 

790 

2950 

A13 

BOO 

2951 

A13 

BIO 

2952 

Al 3 

8 20 

2953 

A13 

930 

2954 

A13 

840 

2955 

A13 

B50 

2456 

A13 

860 

2957 

A13 

870 

295 B 

A13 

800 

2959 

Al 3 

690 

2960 

A13 

900 

2961 

A13 

910 

2962 

Al 3 

920 

2963 

A13 

930 

2964 

Al 3 

940 

2965 

A13 

9 50 

2966 

A13 

9 60 

29 67 

Al 3 

9 70 

2968 

Al 3 

9 80 

2969 

A13 

990 

2970 

A13 

1000 

2971 

A13 

1010 

2972 

A13 

1020 

2973 


A13 
A13 
A13 
A13 
A1 3 
A13 
A 13 
A13 
A1 3 
A13 
A13 
A13 
A13 
A13 
A13 
A13 
A13 
A 1 3 
A13 
A13 
A 13 
A13 
A13 
A13 
A13 
A13 
A13 
A13 
A L 3 
A13 
A13 
A13 
A13 
A13 
A 13 
A 13 
M3 
A13 
A 13 
A13 
A 13 
A13 
A13 
A 13 
A 13 
A 13 
A13 
A13 
A13 
A13 
A 13 


1030 

1040 

1050 

1060 

1070 

toeo 

1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
H70 
1190 
1190 
1200 
1210 
1220 
1230 
1240 
12 90 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1390 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
t470 
1460 
1490 
1500 
1510 
1520 
1530 


2974 

2975 

2976 
2477 
297 B 

2979 

2980 
29 01 
29 92 
2483 
24 B4 

2495 
2406 

2987 

2988 

2989 

2990 

2991 
2492 

2993 
2Q94 
2995 

2496 
2997 
2990 

2994 
3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 
302 3 
3024 


9-29 




H4 = H2*CD$G 

A i 3 

1540 

302 5 


SH14 = H1+H4 

A 1 3 

1550 

3026 


71= 1.0 ♦ 2,0*H4/Hl 

A l 3 

15 60 

302 7 

c 


A 13 

1570 

302 8 


PS IF" ! SH 14/SQRT(SH14**2+RS) -H4/SORT(H4**2 + PS11/R 

Al 3 

15 50 

3029 

c 


A1 3 

1590 

3030 


nn 1160 K* 1,3 

A13 

1600 

3031 


G(K) = MK|*U 

A 13 

1610 

3032 


coshki= (gik)-x<mi/r 

Al 3 

1620 

3033 

1160 

CD S 2 ( K ) = -2.0*Am/Hl 

A 1 3 

1630 

3034 

C 


A l 3 

1640 

3035 


CALL CROSP(CRSl»CCS2tC0S31 

A13 

1650 

3036 

C 


A13 

1660 

3037 

1170 

CONTINUE 

A13 

1670 

30 3 B 

r. 


413 

1660 

3039 


V2 •* 0.0 

A13 

1690 

304 0 

c 


A13 

1700 

3041 


no lino k=i ,3 

A13 

1710 

3042 


VC0S1M- VCOSCKl + PSIF*C0S3(K1 

A13 

1720 

3043 

1130 

V2= V2 ♦ VC0S<K>**2 

Al 3 

1730 

3044 

c 


A1 3 

1740 

3045 


IF ( NOTE 1 1200, HSC, 1190 

A13 

1750 

3046 

1190 

WRITE ( KCHJT ,D0 UGS3L 

A13 

1760 

3047 


L IN= LINX - 10 

Al 3 

17T0 

3046 

1200 

CONT1NUE 

A13 

1780 

3049 

c 


Al 3 

1790 

3050 


Via SQRTIV21 

A13 

1800 

3051 


no 1210 K * 1,3 

Al 3 

1810 

3052 

1210 

VCOS IK. 1 = VC0S1K1/W1 

A 13 

1820 

3053 

c 


A 13 

1830 

3054 


VI = VI*!GAMA/SCALE ) 

A l 3 

1840 

3055 

c 


A13 

1050 

3056 


RETURN 

A 13 

1060 

3057 

c 

XXXXXX 

A13 

1870 

3058 

c 


A13 

1880 

3059 


END 

A13 

1090 

3060 


v FOR 

A 14,A 14 


A14 

10 

3061 

C 



A 14 

20 

3062 

C 



A14 

30 

3063 


SUBROUTINE f>MAT IMA , N,DETERM1 


A 1 4 

40 

3064 

C 



A l 4 

50 

3066 

c 

MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF UNEAR EQUATIONS 

A14 

60 

3066 

c * 

VERSION 2 ROUTINE (DOUBLE PRECJSSION- 

LANGLEY MAT 1NV SUBROUTINE) 

* Al 4 

70 

3067 

c 



A 1 4 

80 

3068 

c 

n TRW MULT 1PLE-SLRFACE VORTFX-LATTICE 

PROGRAM - REVISED 8 AUG.72 

* A 14 

90 

3069 

c 

* PROGRAM DEVELOPED BY A.V.GOMEZ (TRW 

SYSTEMS! ON JUNE-JDLY 1971 

* A 14 

LOO 

30 70 

c 



A 14 

110 

3071 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXA14 

L20 

3072 

c 



A14 

l 3D 

30 73 


ODUBLE PRECISION R1,P2,0ETERM,AMAX,T, 

SWAP,PIVOT,PIVOTI 

A l 4 

140 

30 74 


DOUBLE PRECISION 4(100,1001* 8(1*11 


Al 4 

150 

3075 


DIMENSION [PIVOT!1001,INDEXUQ0,2> 


A14 

160 

3076 


EQUIVALENCE IIROXiJROWI, IICDLUM,JCOLUMI* I A MAX, T, SWAP* 

A14 

170 

3077 


Ms 0 


Al 4 

ISO 

3078 

c 



A 14 

190 

3079 

c 

XXXXXXXXXXKXXXXX>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 414 

200 

30 8D 

c 



A14 

210 

30 B1 

c 



A 14 

220 

3082 

c 



A14 

230 

30 8 3 

c 

IN IT I AL 1ZAT1I1N 


Al 4 

240 

3084 

c 



A14 

250 

3085 

1000 

rSCALE=0 


A14 

260 

30 8 6 

1010 

PI = 1.E36 


A14 

270 

3007 

1020 

R 2 a l.0/R1 


A14 

280 

30 0 R 

1030 

QETERM=1.0 


A1 4 

2 90 

3089 

1040 

On 1050 J=l,N 


A14 

300 

3090 

1050 

IPIVHTIj)»o 


A 1 4 

310 

3091 

1060 

DO 1630 I -1,N 


A 1 4 

320 

30 92 

c 



A14 

330 

3093 

c 

SEARCH F?R PIVOT ELEMENT 


A | 4 

340 

3094 

c 



A 1 4 

350 

3095 

10 70 

AMAK=0.0 


Al 4 

360 

30 96 

10RO 

DO 1170 J*1,N 


A L 4 

370 

3097 

10°0 

IF ( IP 1VDT(J1-ll 1100,1170,1100 


A14 

380 

309 B 

1 100 

DO 1160 K*WN 


A | 4 

390 

3099 

1 110 

IE K IP TVOTCK1-18 1120,1160,1750 


Al 4 

400 

3100 

1120 

IF I DABS!AMAXI-OABSI A 1J,KJII 1130,1160*1160 

A14 

410 

3101 

1130 

i r n w =j 


A 14 

420 

3102 

1140 

1C0LUM =K 


A14 

430 

31 03 

1150 

Ah ox=a t j,x i 


Al4 

440 

3104 

1160 

CONT in he 


A14 

450 

3105 

1170 

CONT TNUE 


AL 4 

460 

3106 


IF (AMAX> 1100,1180,1100 


A14 

470 

3107 

1100 

DE TERM = 0.0 


A14 

480 

3108 


ISCAL e = o 


A14 

490 

3 L 09 


GO TO 1750 


A 14 

500 

3110 

C 

XXXXXX 


A l 4 

510 

3111 

c 



A1 4 

520 

3112 

c 



AL4 

530 

31 13 

11^0 

TP IVOT I 1C0LUM> = 1 PlVOTUCOLUMl + l 


A14 

540 

31 14 

c 



A l 4 

550 

3115 

c 

INTEPChANGE rows to put pivct element 

ON 01 AGONAL 

AI 4 

560 

31 16 

c 



A 14 

5 70 

3117 

1200 

IF <1R0W-ICniUMl 1210,1310,1210 


A14 

580 

3116 

1210 

OETEPM=-PETEPM 


A14 

590 

3119 

1220 

□Q 1250 L = 1,N 


A14 

600 

3L20 

1230 

5w AP = A1 1R0 W,L I 


At 4 

610 

3121 

1240 

A ( IPOW,L J = A 1 IC OLL K , L I 


A 1 4 

620 

31 22 

12 50 

A( ICOLUM,LINSWAP 


A14 

630 

3123 

C 



A14 

640 

3124 

c 



AL 4 

650 

3125 

1260 

IF l») 1310,1310,1270 


A 14 

660 

3126 

12 70 

OH 1300 L =1» M 


Al 4 

670 

3127 


9-30 



1280 

SWAP«B( IROW.U 

Al* 

680 

1290 

81 IROW,L l*BC IC0LLM,L1 

Al* 

690 

1300 

B! ICOLUM,L 1 = SMAP 

Al* 

700 

1310 

INDEX! 1,11 MRON 

Al* 

710 

1320 

INDEX I [.2IMC0LUM 

Al* 

720 

1330 

PIVOT-AIICOLUM,ICCUUMI 

Al* 

730 


IF CPIV0T1 13*0.1100,13*0 

Al* 

7*0 

c 


Al 4 

750 

c 

SCALE THE DETERMINANT 

Al* 

760 

c 


Al* 

770 

13*0 

P IVOTI=tPI VOT 

Al* 

780 

1350 

(F ( OABS< DETERM 1-ftl) 13 60,136 0,1360 

Al* 

790 

1360 

DETERM*CIE TERM/R1 

Al* 

900 


ISCAL E = ISCALE* l 

Al* 

910 


IF I0A8S! DETERM1-RU 1*10,1370,1370 

Al* 

820 

1370 

OETERM*DETERM/ftl 

Al* 

830 


I SCALE® I SC ALE + 1 

Al* 

8*0 


GO TO 1*10 

Al* 

850 

1360 

IF (DABSI0ETERM1—R2! 1390,1390,1*10 - 

Al* 

860 

1390 

OETERM-OETERM*Ri 

A14 

870 


1SCALE-ISCALE-1 

Al* 

880 


IF (DABS(OETERM 1—R21 1*00,1*00,1*10 

Al* 

890 

1*00 

OE TERM*DETERM*ftl 

Al* 

900 


ISCAL E= ISC ALE-1 

Al* 

910 

1*10 

IF IDABSIPIV0TU-R1I 1**0,1*2 0,1*20 

Al* 

920 

1*20 

PIVOTI^PIVOTI/R1 

Al* 

930 


[SCALE-ISCALE^l 

Al* 

9*0 


IF !DABS!PlVOTIl-Rl1 1*70,1430,1*30 

Al* 

950 

1*30 

PIVOT!=PIV0T1/R1 

Al* 

960 


ISC ALE - 1 SC A LE<-1 

Al* 

970 


GO TO i*70 

A1 * 

980 

14*0 

IF I DABS! P IV0TU-R21 1*50,1*50,1*70 

Al* 

990 

1450 

PlVDTl*PlVOTt*Rl 

Al* 

1000 


1SCAL E=I SCALE-1 

Al* 

1010 


IF (OABStP IVOTI I-R2) 1*60,1460,1*70 

Al* 

1020 

1460 

PIVOT I -P1 VO Tt MR 1 

Al* 

1030 


1 SCALE*I SCALE-l 

Al* 

10*0 

1470 

0ETERM-0ETERM4P!VOTt 

Al* 

1050 

c 


Al* 

1060 

c 

DIVIDE PIVOT ROM BY PIVOT ELEMENT 

Al* 

1070 

r 


Al* 

1080 

1*80 

A1 ICOLUM, ICOLUM hl.O 

Al* 

1090 

1*90 

00 1500 1=1,N 

Al* 

1100 

1500 

AI ICOLUM,L1-A(ICCLUM,L)/PIVOT 

Al* 

1110 

c 


Al* 

1120 

c 


Al* 

1130 

1510 

IF (Ml 15*0,1540,1520 

Al* 

11*0 

1520 

DO 1530 L 3 l, M 

Al* 

1150 

1 530 

B< ICOLUM,L)”B<ICCLUM.Ll / PIVOT 

Al 4 

1160 

c 


Al* 

1170 

C 

REDUCE NON— PIVOT ROMS 

Al* 

1180 

c 


Al* 

1190 

15*0 

OD 1630 Ll“l,N 

Al* 

1200 

1550 

tF CLI-1C0LUMI 1!«0,1630,1560 

Al* 

1210 

I860 

T*A<LI,ICOLUM1 

Al* 

1220 

LSTO 

AC L 1, IC0LUMI = 0*0 

Al* 

1230 

1580 

DO 1590 L = 1,N 

Al* 

12*0 

15°0 

ACLl.L1-AILl.LI-A(ICOLUM,L»*T 

Al* 

1250 

c 


A14 

1260 

c 


A14 

1270 

1600 

IF (M) 1630,1630,1610 

AL* 

1280 

1610 

DO 162 0 1*1, N 

A14 

1290 

1620 

BiLlfL)=B1L1,L1-BCICOLUM,LI*T 

Al* 

1300 

1630 

CONT INUE 

Al* 

1310 

c 


Al* 

1320 

c 

INTERCHANGE COLUMNS 

Al* 

1330 

c 


Al* 

13*0 

16*0 

DO 1740 1*1,N 

Al 4 

1350 

1550 

L = N ♦ 1- I 

A 1 4 

1360 

1660 

If CINDEX!L,1J-INOEXCL,211 1670,17*0,1670 

A 14 

1370 

1670 

JRQW=IN0EX(L,1I 

A1 4 

1380 

1680 

JCOLUM^INOEXCL,21 

A14 

1390 

1690 

OD 1730 K»L,N 

A 14 

1400 

1700 

SWAP =A{K,JRO Wl 

A14 

1*10 

1 7 L 0 

A!K,JR0W)=A(K,JCQLUMI 

Al* 

1*20 

1720 

A IK,JCOLUM1-SWAP 

Al* 

1*30 

1730 

CONT INUE 

Al* 

1**0 

1740 

CONT INUE 

Al* 

1*50 

1750 

RETURN 

Al* 

1*60 

C 

XXXXXX 

Al* 

1*70 

c 


Al* 

1*80 


END 

Al* 

1*90 


V 

FOR 

A1 5,A 15 


A15 

10 

c 




Al 5 

20 

c 




Al 5 

30 



SUBROUTINE OOTPCA,B,C) 


Al 5 

*0 

c 




M5 

50 

c 


* TRW MULTIPLE-SURFACE VORTEX-LATTICE 

PROGRAM - REVISED B AUG-72 

♦ A 1 5 

60 

c 


* PROGRAM DEVELOPED BY A.V.GOMEZ 1TRW 

SYSTEMS) ON JUNE-JULY 1971 

• A 1 5 

70 

c 




Al 5 

80 

c 


XXKXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXA15 

90 

c 




A15 

100 



DIMENSION A{3),3(3J 


A 15 

110 



C* AI11*8! 11♦ Ac2)*B|21* A(31*BC3> 


A15 

120 

c 




A l 5 

130 



RETURN 


A15 

1*0 

c 


XXXXXX 


A1 5 

150 

c 




A1 5 

160 



ENO 


Al 5 

170 

V 

FOR 

A l 6 , A16 


A16 

10 


3i2a 

3129 

3130 

3131 

3132 

3133 
3139 
3133 
3136 
313? 

3138 

3139 

31*0 
31*1 
31*2 
31*3 
31** 
31*3 
31*6 
31*7 
31*6 
31*9 
3130 
3151 
3132 
31 53 
315* 
3135 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 
316* 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 
317* 

3175 

3176 

3177 

31 7B 

3179 

3180 

3181 

3182 

3183 
318* 

3185 
3166 
3187 

3186 

3189 

3190 

3191 

3192 

3193 
319* 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 
320* 

32 0 5 

3206 

3207 
32 OB 

32 09 


3210 

3211 

3212 

3213 
321* 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 
322 3 
322* 

3225 

3226 


3227 


9-31 



c 




A i 6 

2D 

322 6 

c 




Ai 6 

30 

3229 

SUBROUTINE CPOSPl A.B.C) 



A16 

40 

3230 

c 




A L 6 

50 

3231 

c 

* TRW MULT IPLE-SIRFACE VORTEX-lATT|CE 

PROGRAM 

- REVISED 8 AUG.72 

* Al 6 

50 

3232 

c 

* PRCIGRAM DEVELOPED BY A.V.GOMEZ (TRW 

SYSTEMS* 

ON JUNE-JULY 1971 

*Al 6 

70 

3233 

c 




Mb 

80 

3234 

c 

XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAl6 

90 

3235 

c 




Mb 

100 

3236 


01 MENS ION A(3),8(3),C(31 



A 16 

no 

3237 

c 




A 1 6 

120 

32 3 B 


Cl1)* A<2I*B(3) - A < 31*0(2) 



A16 

130 

32 39 


C(2) = MJI*Btll - AC LI *8 l 3) 



A16 

140 

3240 


C(11= At 11*0(2) - Al2)*Bt t) 



Mb 

1 50 

3241 

c 




Mb 

160 

32 42 

RETURN 



A1 6 

L 70 

3243 

c 

xxxxxx 



A16 

190 

3244 

c 




A 1 6 

190 

3245 


END 



A16 

200 

3246 


e FLIP A t 7t A 1,7 




A1 7 

10 

3247 

c 




A 17 

20 

32 48 

c 




A1 7 

30 

3249 

SUBROUTINE PAGE 




Al 7 

40 

3250 

C 




AIT 

50 

3251 

c • TRW MULTJPLE-SLRfACE VO R TE X-L AT TI CE 

PROGRAM 

- REVISED 9 

AUG*7 2 

*A 17 

60 

32 52 

C * PROGRAM DEVELOPED BY A.V.GOMEZ (TRW 

SYSTEMS) 

ON JUNE-JULY 1971 

* A17 

70 

3253 

C 




Al 7 

30 

3254 

C XXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAl7 

90 

32 5 5 

c 




A17 

100 

3256 

01 MENS ION AIL«0X(2> 




A17 

no 

3257 

c 




A l 7 

120 

3258 

COMMON/QAT AOQ/ TITLE!LAI, ALF 40, ZHO, 

CMAK 



A 17 

130 

3259 

C 




AIT 

140 

3260 

COMMON /0ATA01/ K [ N, KOUT, KTl, KT2, *T3 , K REC, 

KF1LE, LIN, 

LINX 

A17 

150 

3261 

l »R AD, PIE, CUTDF1, CUT0F2, 0 E L A L F , LFLAP, LORAG, COLOCP 


A17 

160 

3262 

2 ,1FLG(201, EXECKC L51 




A1 7 

1 TO 

32 63 

C 




A 1 7 

180 

32 64 

C 




ALT 

190 

3265 

1000 FO PM AT ( 70H 1 JOB FL AG 12 3 4 8 6 

7 8 9 

10 11 12 13 

14 15 

16A17 

200 

32 66 

l 17 IB 19 20 ,9 6 6,6H PAGE,/, 




A 17 

210 

3267 

2 2X,5HVALUE,LX,2013, 7X♦5HALF4= ,f6.2♦ 

9H MAC HN0=,F6*4,11H 

ALT1TUDA17 

2 20 

3268 

3fs,F6.2, 7X,14,//,1X! 




A17 

230 

3269 

C 




A17 

240 

3270 

C 




Al? 

250 

3271 

C XXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXKXXXXXXXXXXXXXX A 17 

2 60 

3272 

c 




A17 

270 

3273 

c 




A17 

2B0 

32 74 

t E (NSTU-1971) 1C10,1020,1010 




A 17 

290 

3275 

1010 NSTU= 1971 




A17 

300 

3276 

FLAPDX = 0.0 




Al 7 

310 

3277 

AlLPOXdl- 0.0 




A17 

320 

32 7 8 

A[L«OX421= 0.0 




A17 

330 

32 79 

NP = 0 




A 17 

340 

32 BO 

102 0 NP= NP♦ 1 




A17 

3 50 

3281 

W" 1 TE (KOUT, 10001 (TITLE (!) ,1=1 ,91 ,( I FLO 11 1 ,1=1 

,20 I,ALFAQ,CMAK,ZHO,A 17 

360 

3282 

*NP 




A17 

3 70 

3283 

L IN- 5 




AIT 

380 

3284 

C 




A17 

390 

3205 

RETURN 




A17 

400 

32 8 6 

C XXXXXX 




A17 

410 

3287 

C 




A17 

420 

3288 

END 




A 17 

430 

3289 


V FOR 

A18,A 1 0 

A18 

10 

3290 

C 


Aid 

20 

3291 

C 


Aia 

30 

3292 

C 

MA [N ROUTINE 

AI8 

40 

3293 

C 

TEST MATRIX INVERSION 

Al B 

50 

3294 

C 


AI 8 

60 

3295 

C 

* TPW MULT IDLE-SURFACE 

VORTEX-LATTICE PROGRAM - REVISED 8 AUG.72 *A18 

70 

3296 

C 

* PROGRAM DEVELOPED BY 

A.V.GOMEZ t TRW SYSTEMS) ON JUNE-JULY 1971 *A18 

80 

32 9 7 

C 


AL 6 

90 

3298 

C 

TKXXXXXXXXXXXXXX> X X XX XXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX A 18 

100 

3299 

r 


ALB 

no 

3300 


DOUBLE PRECISION DELTA 

,AMAT(60,60) ,CMAT(60,60) A 18 

120 

3301 


DOUBLE PRECISION BMAT{l00,l001 A10 

130 

3302 

C 


A 1 8 

140 

3303 

1000 

FORMAT!(10X,(5,2F14.4 

1 ) A1B 

150 

3304 

1010 

FORMAT! 1X,/,1X I 

Al 8 

160 

3305 

1020 

C QRMA T(t 10 X,5( IPF14.6) 

>1 A18 

170 

3306 

C 


A 18 

L 80 

3307 

C 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAl9 

190 

3308 

c 


A 18 

2 00 

3309 

C 


A IS 

210 

3310 

C 


A 18 

2 20 

3311 


NOR = 5 

A19 

230 

3312 

C 


A19 

240 

3313 


AMATt1,l) * 1.032 

A 19 

2 50 

3314 


AMATt 1,2) ^ 7.865 

Aia 

260 

3315 


AMATU,31 = 3.216 

A 16 

2 70 

3316 


AMATC 1,41 = 3.03l 

ALB 

280 

3317 


AMATt11 5) = 10.32 

A 1 8 

290 

331 fi 


AMAT(2, 1) = 7.68 

A L 8 

300 

3319 


AM AT(2,21 = -6.IS 

A L 8 

310 

3320 


AMAT(2 , 3) = 8.90C 

A l B 

320 

3321 


AM AT (2,41 = -UO" 1 

A18 

330 

3322 


AMAT(2,5) = S.69C 

A16 

340 

3323 


AH A T t 3 ,1) = 3.03C 

A18 

350 

3324 


AMATO,2) = -3.je 

A10 

3 60 

3325 


AMATt 3,31 - -11.67 

A18 

370 

3326 


AMAT(3,4) = 4.10C 

A 19 

3 80 

3327 
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orv o o <-» o o o cs o oor»r>ooor>r»r>nr>no< 



6MAT<3,5) = -3,60 

Aia 

J90 

3320 


AM AT < 4,U * -2,92 

A18 

400 

3329 


AMAT<4,2> = 5.67C 

A18 

410 

3330 


AMATI4* 31 * 8,323 

A18 

420 

3331 


AMAT< 4* 4) * 9,072 

A1B 

430 

3332 


AMA7 1 4,5) = 0,0378 . 

A1B 

440 

3333 


AMAH5, i) = -,CS?8 

A 18 

4 50 

3334 


AMAT < 5,21 = 7,103 

Aid 

460 

3335 


AMATt 5,31 o 9,992 

AIB 

4 70 

3336 


6MAT< 5,4) * 0, 57 fi 

Aie 

4B0 

3337 


AMAT! 5, 51 * 15,14 

Alfl 

490 

3338 

c 


AIB 

300 

3339 


DO 1040 J-» 1 ,NOR 

Aid 

310 

3340 


DO 1030 K«1,N3R 

A18 

520 

3341 

1U30 

BM A T ( J , K 1 * AMATU.XJ 

A l 8 

530 

3342 

10*0 

CONTINUE 

A18 

540 

3343 

c 


ALB 

550 

3344 


CALL DMATIN!6MAT,NOR,DELTA) 

AIB 

560 

3345 

c 


ALB 

570 

3346 


00 l OTO K* l,N0K 

Aia 

580 

3347 


DO 106 0 J = 1,NOP 

Aia 

590 

3348 


CMA T { J , K. ) - 0.0 

AIB 

600 

3349 


00 1050 L = l,NOR 

A16 

610 

3350 

1050 

CM AT(J , K ) - CMA T < J, K) ♦ AMAT1JtL) *BMAT < L,K| 

AIB 

620 

3351 

1060 

CONT INUE 

AIB 

630 

3352 

1070 

CONT INUE 

ALB 

640 

3353 

c 


A18 

630 

3354 


CALL PAGE 

A18 

660 

3355 


WRITE (6, 10201 HAMATU,K| ] ,K«1 ,NOR> 

AIB 

670 

3356 


WRITE (6,L0101 

A18 

680 

3357 


WRITE (6,1020)(16MATI J,K> ,J-l,NCRI ,«•! ,NOR) 

Aia 

690 

3358 


WRITE (6,1010) 

AIB 

700 

3359 


WR ITE (6,1020) < {CHAU J,K| , J*1 ,NOft ) , K=> 1 , NOR ) 

AIB 

710 

3360 


WRITE (6,10101 

A16 

720 

3361 


WRITE (6,1010) 

AIB 

730 

3362 


WRITE (6,1020IDELTA 

A18 

740 

3363 


STOP 

Aia 

750 

3364 


END 

A18 

760 

3365 


BOI,BOI 

BOI 

10 

3366 


001 

20 

3367 


BOI 

30 

336B 


BOI 

40 

3369 

MAIN ROUTINE WING /WING LIFT PROGRAM HAO 10B/REV 1SED 15 MARCH 71 

♦ BOI 

50 

3370 


BOL 

60 

3371 

THEORY AND PROGRAM DEVELOPED BY ANTULIO V. GOMEZ,STAFF ENGINEER 

* BOI 

70 

3372 

TRW SYSTEMS GROUP, DIVISION OF TRW INC., HOUSTON, TEXAS - 77058 

* 001 

60 

3373 

VERSION 2 ROUTINE (DOUBLE PRECISSION-LANGLEY MAT INV SUBROUTINE) 

* BOL 

90 

3374 


BOI 

100 

3375 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVlSEO 8 AUG.72 

♦ BOI 

110 

3376 

* PROGRAM DEVELOPED BY A.V.GOMEZ (TRW SYSTEMS) ON NARCH-MAy 1971 

♦ BOI 

120 

3377 


601 

130 

3378 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXKXXXXXXXXXBOl 

140 

3379 


801 

150 

3360 

REAL MACHN( 101 

BOI 

160 

33 B1 

DIMENSION COMMT S(421 

BOL 

170 

33P2 

DIMENSION Y SPAN(4 2) 

BOL 

190 

33B3 

DIMENSION WCLI21),ALFA(20).HEIGHT!101 

BOI 

190 

33 B4 

DIMENSION FIAPOCIOI, A!LRN012,10I 

ROL 

200 

3385 

0IMENS10N FLAPDJdOl, AILDJ(2,10) 

BD1 

210 

3386 


BOI 

220 

3387 

COMMON/DATAOO/NSTL ,ALFAO ,CMAK ,ZHO ,FLAPDX,AILRDX12) 

BOI 

230 

3380 

* f TlTLE<l4l ,S TOR F(14) 

BOI 

240 

3389 


BOI 

250 

3390 

C0MH0N/DATA01/KIN ,KOUT ,KTl ,KT2 ,LlNEX ,LINES 

BOI 

260 

3391 


BOI 

270 

3392 

C0MMDN/0ATA02/1FLG( 15) .EXECKUSl , RAD ,PIE 

BOI 

280 

3393 


BOI 

290 

3394 

COMMON/DAT AO 3/NY S , NC S ,XQCPEF,XUO| ,Y(1D) , Z < 10 1 » El 101 

001 

300 

3395 

* ,Cl 101 t Z0C(10 .10) ,X0C(10I 

BOI 

310 

3396 


BOi 

320 

33 97 

COMMON/DATA04/YFLAPI,YFLAP2,FLAPC 

SOI 

330 

3396 

* , YATLRN, Al LRNC f WSMOTH 

BOI 

340 

3399 


BOI 

3 50 

3400 

C0MM0N/DATA06/YFFll,YFFl2,YFF21,YFF22,YFF3t,YFF3 2 tDELTFltDELTFZ 

SOI 

3 60 

3401 

* ,NOFLAP,NOAILR 

BOI 

370 

3402 


BOI 

380 

3403 

CDMMON/DATA07/LFLAP,LDRAG,CUT0F1,CJT0F2 

BOI 

3 90 

3404 


001 

4 00 

340 5 

EQUIVALENCE (LIN*,LINFXJ,(NSS.NYS),IXCCR,X0CREF) 

BOI 

410 

3406 

EQUIVALENCE IWFLAPI,YFLAP 1),(WF LAP2,YFLAP2)■ IWFlAP3,YA1LRN1 

BOI 

4Z0 

3407 

EQUIVALENCE IFLAPDJ,FLAPD),(AILOJ*AILRND) 

BOI 

430 

3408 


BOI 

440 

3409 


NAMEL I ST/INPUT/ KDUT, KTL, KT2, KT3 * l!NX, COLOCP, 

1 COTriFl, CUT0F2, LFLAP, LDP AG * PMECF, DELALF* 

2 N S S, NCS * X < Y , Z , Ft C» X OC ■ Z OC« X CC B , 

3 WFLAPl,WFLAP2,WFLAP3,FLAPC , WSHOTH, YSPAN, 

4 NJ03. NJOBL r ALFA, MACHN, HEIGHT, FLAPOJ, AJtDJ, WCl. C L F A NF , 

5 1FLG 
C 

DATA TFST/6H fENDJ/ 

DATA NJO0/1/, NJ0BL/20/ • ALFA/2C*0.O/ 

DATA WCL/1.0, -0*4,-0,3 ,-0*2 ,-0, 1 ,0.0,0, I ,0.2,0.3,0»4,0,5,0,6, 

4 0,3,0.9,1,0, 1.1,1.2,1.3.1.4,l,5*1.6/ 

OATA MACHN/ 10*0.0/, HE 1GHT/10410000,0/ 

DATA AlLRND/20*0*a/, fLAPD/10*0.0/ 

OATA PMEGF/1,0/. COLOC P/0, 75/ , CIE4NF/0.0035/, 0ELALF/1.O/ 

C 

C 

LOOO FORMAT!13A6,*2) 

C 

1010 FORMAT!//, 15X,14H**** JOB T1KE*,14,16H / ELAPSED TIME*,14, 

1 LTH / NO,PLOT F TLE S=«14 »35H / 1 SURF EXEC. VERSION 6-10-72 ♦*♦*« 


BO 1 450 

BOl 460 
BO 1 470 

BOL 480 
aOt 490 
BO 1 500 

BO 1 510 

901 520 

B01 530 

BOL 540 
B01 550 

BOi 560 
901 570 

BO 1 580 

601 590 

BOi 600 
901 6L0 

BOI 620 
ROl 630 
BOL 640 
001 650 


3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 
3416 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 
3426 
3429 
34 30 
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2 

//,15X,47I2H**»,/,15X,47(2H**| 1 

801 

6 60 

3431 

c 


601 

670 

3432 

1020 

FORMAT*IHl,10X»35H**** JOBS INPUT LIST-CONTINUED ****«/,1< J 

30 1 

6 90 

3433 

1030 

FORMAT * 1X r 13A6,A 21 

BO 1 

690 

3434 

1040 

FORMAT* U, 11K7 «CT ! SURF 1 

801 

TOO 

3435 

c 


BO 1 

710 

34 36 

10*0 

FORMAT*1HI,///,///»29X. 

0D 1 

720 

3437 

I 

53HSUBS0NIC-FLG* LIFTING SURFACE ANALYSIS PROGRAM HAD LOB, t /»37X, 

60 l 

730 

J438 

2 

36HTRW SYSTEMS I NC ♦ » HOUSTON OPER AT I DNS, ft , 44X f 

BO 1 

740 

3439 

3 

22HHOUSTON, TEXAS * 7705B1,///,16X, 

BO 1 

750 

3440 

4 

2 SH** ** JD6S INPUT LIST ***♦,/, IX 1 

BO i 

760 

3441 

c 


801 

770 

3442 

c 


901 

780 

3443 

c 

XXXXXXXXKXXXXXXXKXXXKXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXKXXXKXXXXXXXXXXBO 1 

790 

3444 

c 


80L 

600 

3445 

c 


BO 1 

810 

3446 


CALL &LXOAT 

BO 1 

820 

344 7 


RFHINO K.T 1 

HO 1 

830 

344 8 


WRITE 1KO UT,105 0) 

601 

840 

3449 


WR ITE 1KOUT,10501 

BO l 

850 

3450 


HR ITE 1X3UT,10401 

80 t 

860 

3451 


L INES= 15 

BO t 

870 

3452 

1060 

READ I KIN' 10001 I STORE II).I=1,141 

80 L 

8 80 

3453 


WRITE <KTI,1000MSTORE(1 \ ,i=L,14» 

BO! 

890 

3454 


IF *L1N6X-LINFS1 LO70,l080,1060 

BO L 

9 00 

3455 

1070 

WRITE IK3UT,10201 

BO 1 

910 

3456 


L INES= 3 

BQ 1 

9 20 

3457 

1080 

LINFS = L1NFS+1 

001 

930 

3456 


WRITE (KDUT,1030MSTORE(I1,1=1,141 

001 

940 

3459 

c 


801 

950 

3460 


IF (STORE * 11.NE.TEST! CO TO 1060 

801 

960 

3461 


END FILE KT1 

BO 1 

970 

3462 


REW IN0 XT 1 

801 

980 

3463 


WRITE IKfJUT, 104 01 

001 

990 

3464 

c 


901 

1000 

346 5 


NCOMT s—1 

801 

1010 

346 6 


NCALCP —1 

801 

1020 

346 7 


I SUM = 0.0 

RO 1 

1030 

346 B 


CALL PESFT 

BOt 

1040 

3469 

c 


801 

1050 

347 0 

c 


BO 1 

1060 

3471 

109 0 

°EAC < KT1 , 1000 1 ( TITLE Ml ,1=1 , 141 

BO 1 

1070 

3472 


IF*T ITtEIl I.EQ.TEST! CALL EXIT 

B01 

1080 

3473 


IF (NCOHT) HOC , 1100,1110 

BOL 

1090 

3474 

1100 

READ IKTH 1000MC.0MMTSI M ,I =1 ,4 21 

BO l 

HOD 

3475 

1 110 

NCOH T = 1 

301 

mo 

3476 


READ tKTl, INPUT! 

301 

1120 

3477 


XL FAO = 1« 0 F♦10 

91)1 

1130 

347 B 


ZHO = L.OEUO 

BD1 

1140 

34 79 


EX FCK( 101= CLEANF 

80 1 

1150 

34R0 


EX ECK* 111= COLOCP 

301 

1160 

3461 


FX ECK( 121* DELALF 

aoi 

1170 

3482 


EXECKI 131= PMECF 

RO l 

1190 

3483 


IPLOTX* (FLC1L2I ♦ IFLGU3I ♦ IF LG 1141 - i 

301 

1190 

3464 

c 


BO 1 

1200 

3465 


IF C N C A L C P ) 1120,1120,114C 

RO 1 

1210 

3466 

1120 

NCALCP= l 

90 1 

1220 

3487 


!F *1PL0Tk) 1140,1130,1130 

RO L 

1230 

3488 

1130 

REWIND KT2 

BO 1 

1240 

3469 


IFLGIisi* 0 

RO 1 

1250 

3490 

1140 

CONTINUE 

90 1 

1260 

3491 

C 


BQ l 

12 70 

3492 

C 


BO l 

1280 

3493 


CALL PAGF 

001 

1290 

3494 


WRITE (K.7UT, INPUT \ 

001 

1300 

3495 

C 


BO I 

1310 

3496 


ITEST = 70-I 1FLG* 6I*[FLGC3M/I2-IFLG* III 

RO 1 

1320 

3497 


IF HTE5T1 1150,1160,1160 

901 

1330 

349 8 

1160 

IFLGI31= 70*12-IFLGIII1/IFLGI6> 

BOl 

1340 

3499 

1160 

IFLGX3= 21*12/(1 FIG H1♦111 

B01 

1350 

3500 


IF IIFLGX3-TFLG*311 1170,1180,1180 

601 

1360 

3501 

1170 

I FL Gt 3 J = 1FLC.X3 

BOl 

1370 

35 02 

l l RO 

CDNT 1NUF 

BOl 

13 00 

3503 

C 


BOl 

1390 

3504 


AILRDX11J = A I LRND* 1 , l 1 * AUPN0I1,2I 

BOl 

1400 

3505 


AILR DX * 2 1 * AILRND12,11 ♦ A1LRND(2,2> 

901 

L4 i 0 

3506 


FIAPOX= FLAP0I1I ♦ FLAPPI21 

301 

1420 

3507 

c 


RO l 

1430 

350B 


tO a ILR = 0 

RO l 

1440 

3509 


NOFLAP* 1 o 

901 

1450 

3510 


IFLGC11= 0 

60 1 

1460 

3511 


UTEST= A6SI AILRCXHI - AILRDX *21 1 -0.5 

BOl 

1470 

3512 

c 


301 

1490 

3513 


IF (UTE5TI 1200,1200,1190 

BOl 

1490 

3514 

UOO 

rFLG*ll= l 

BOL 

1500 

3515 


NO A ILP = 2 

001 

1510 

3516 

1200 

IF *FlAPDX) 1210,1220,1210 

601 

1520 

3517 

1210 

Nil FLAP = 2 

BOl 

1530 

351 0 

1220 

NTFLPX= NJFLAP ♦ NO A!L P 

301 

1540 

3519 


IF * NCIFL P X 1 1290,1250,1230 

601 

1550 

3520 

1230 

IF ( TFLG* 5)1 124C,1240,1250 

90 1 

15 60 

35 21 

12 40 

IFLGI5 1 = 1 

BOL 

1570 

3522 

1260 

IF * IFLGI 6 1-1) 12 60,1 26 C ,12 70 

noi 

15 90 

3523 

1260 

IFLGI 61= 2 

BOl 

1590 

3524 

1270 

IF <lFLG|2)-5) 1290,1280,1260 

BOL 

1600 

3525 

1260 

IFLGI 21 = 4 

60 l 

1610 

3526 

12*0 

C0NT1NUF 

601 

1620 

3527 

t 


001 

1630 

352P 


AIL R DX * 1) - 0.0 

RO l 

1640 

352Q 


41LRDXI21 - 0.0 

90 t 

1650 

3530 


flapox= 0.0 

60 I 

166 0 

3531 


NjnPX= NJOBL+1 

601 

1670 

3532 

C 


601 

1690 

3533 

C 


001 

1690 

3534 


CALL LDFTIYSPANI 

BOl 

1700 

3535 

C 


BOl 

1710 

3536 
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c 


BOl 

1720 

3537 

no 1360 N 1 1,NJOB 

BO 1 

1730 

3538 

c 


801 

1740 

3539 


AL f AO* ALFA ( N) 

801 

1750 

3540 


HE I GT* HFLGHTIN) 

B01 

1760 

3541 


AL fA0= AL fAO 

801 

1770 

3542 


2HO - HFIGT 

801 

17 SO 

3543 


CMAK - 0*0 

801 

1780 

3544 


EXECKCU= 1*0 

801 

1 BOO 

3545 


IF <MACHNINI-O.S*) 1300, 1 300,1310 

BO 1 

1810 

3546 

1300 

CM AK = NACHNIN) 

801 

1820 

3547 


EX RCK(11= SORT!l.0-CHAK**2l 

BO 1 

1830 

3548 

1310 

FLAPDX- FLAPOIN) 

B01 

1840 

3544 


A tLPDXI11= AILANO ( L »N) 

BOl 

1850 

3550 


AILR0XI2)= AlLRN0(2 r N) 

601 

I860 

3551 

C 


601 

1870 

3552 


CALL OLIFT(ALFAD.HEIGT) 

801 

I860 

3553 

c 


801 

1890 

3554 

c 


BOl 

1900 

3555 


IF 4 TFLGI 6 )- l ) 1330,1320,1320 

BOl 

1910 

3556 

1320 

CALL Dl INERIALFAC.HEIGT , ALFA,UCL , NJOB X1 

BOl 

1920 

3557 

1330 

CONT INUE 

BOl 

1930 

3558 

C 


801 

1940 

3559 


CALL TIMF1 I MS1 

BOl 

1950 

3560 


IS= IMS/1000 

801 

1960 

35*1 


ISJB= 1S-ISUM 

BOl 

1970 

3562 


I SUM = IS 

BOl 

1980 

3563 

C 


BOl 

1990 

3564 


L 1N E S = LINES +6 

BOl 

2000 

3565 


IF (LINEX-L1NES) 1340,1350,1350 

801 

2010 

3566 

1340 

CALL PAGF 

BOl 

2020 

3567 

1350 

WR ITE (KOUT*10LO)ISJB*IS,IFLG(151 

801 

2030 

3560 


LINES* LINES ♦ LINEX 

801 

2040 

3569 

C 


801 

2050 

3570 

1360 

CONT INUE 

801 

2060 

3571 

C 


601 

2070 

3572 


GO TO 1090 

801 

20 80 

3573 

c 


BOl 

2090 

3574 

c 


BOl 

2100 

3575 


END 

801 

2110 

3576 


V 

FOR R02,902 

BO 2 

10 

3577 

c 


80 2 

20 

3578 

c 


B02 

30 

3579 

c 


B02 

40 

3580 


SUBROUTINE blkoat 

BO 2 

50 

3581 

c 


802 

60 

3582 

c 

* TRW MUL TIPLE-SLRFACE VORTEX-LATTICE PROGRAM - REVTSED 8 AUG.72 

*B0Z 

70 

3583 

c 

* PROGRAM DEVELOPED RY A.V.GOME l (TPM SYSTEMS) ON MARCH-MAY 1971 

*BQZ 

80 

3584 

c 


B02 

90 

3505 

c 

XXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKKXXXXXXXXXXXXKXKKKXXXXKXXX0O2 

100 

3596 

c 


BO 2 

110 

35 07 


COMMON/DAT AOO/NSTL ,ALFAQ ,CMAK ,2H0 ,FLAPDX,ATLRDX121 

802 

120 

3568 


♦ ,TITLF114| ,STORE 414) 

R02 

130 

3589 

c 

802 

140 

3590 


COMMON/DATAOI/KIN ,KDUT iKT l ,ktz ,linex .LINES 

B02 

150 

3591 

c 

80 2 

160 

3592 


COMMDN /DA TA 02/1F LG( 15) »f XECM 15 ) .RAO ,PIE 

B02 

170 

359 3 

c 

602 

180 

3594 


COMMON/0ATA03/NYS ,NCS ,XOCREF,XI10 ) ,Y(10) ,2(10) .El 101 

BD2 

190 

359 5 


* ,C(10I JOCIIQ .10) .XOC(IO) 

802 

200 

3596 

c 

B02 

210 

3597 


COMMON/0ATA04/YFLAP 1,YFLAP2,FLAPC 

B02 

2 20 

3598 


* t ,YAILRN.AILRNC.WSMCTH 

BO 2 

230 

359 9 

c 

B02 

240 

3600 


COMMON/DATAQ5/WINGO(15) ,FY(4Z»101 ,FCf42,10) ,FS(42,L0l 

BO 2 

250 

3*01 


♦ ,EYEUO) ,F LEI 10) ,ETEI10) ,EHEI10) ,EC442,lO) 

B02 

2 60 

3602 


*,EN(42, 10,6) , F V 442,10,6) ,WINDX(42,10 ,3 I 

902 

270 

3603 

c 

902 

280 

3604 


COMMON/DATA06/YFFU,YFF12,YFF21,YFF22»YFF31,YFF32,DELTFI,DELTF2 

BO 2 

2*0 

3605 


4 ,NQFLAP,N0AIlr 

902 

300 

3606 

c 


BO 2 

310 

3607 


COMMON/DATAG7/LFLAP,LOPAG,CUTOF1,CUT0F2 

BO 2 

320 

3600 

c 

B02 

330 

3609 

c 


902 

340 

3610 


DATA NSTU/l/t ALFACI/0,0/, CMAK/O.O/, ZHO/10000.0/,FLAPDX/O .0/, 

002 

350 

36 11 


» A ILRDX/2* 0.0/ 

BO 2 

3 60 

3612 

c 


B02 

3 70 

3613 


DATA KIN/5/, K0L1/6/. KT1/1/, KT2/B/, LINEX/56/, LINES/O/ 

BO 2 

380 

3614 

c 

B02 

390 

361 5 


OATA IFLG/0,0,10,0,0,1,0,0,0.1,5*0/, E XEC K/15 *0.0 /, RAD/5T.29578/ 

,902 

400 

3616 


* PIE/3.14159/ 

B02 

410 

3617 

c 

BO 2 

42 0 

3610 


DATA NYS/2/,NCS/2/,XOCRFF/0.25/,X/10*0.0/»Y/0.0,100.0,8*1000.0/, 

602 

430 

3619 


* Z/10*0.0/,F/l040.0/ f C/lO*100.0/,ZaC/L0040.0/,XDC/0.0,1.0,8*0.0/ 

802 

440 

3620 

c 


802 

450 

3621 


OATA YFLAP 1/0.0/, YFLAP2/0.6/, FLAPC/0.3/, YAILRN/1.3/, AtLRNC/♦3/002 

460 

36 22 


*, WSMHTH/0.20/ 

BO 2 

4 70 

3623 

c 


802 

4BQ 

3624 


OATA LFLAP/O/, LORAG/O/* CUTQFl/O.0001/, CUT0F2/0.0029/ 

B02 

490 

3625 

c 


BOZ 

5 00 

3626 

c 

XXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXB02 

510 

3*27 

c 


602 

520 

362 8 


RETURN 

802 

530 

3629 

c 

B02 

540 

3630 


END 

802 

550 

3631 


7 FOR 

003,BOB 

BO 3 

10 

3632 

C 


B03 

20 

3633 

C 


BOB 

30 

3634 

c 


803 

40 

3*35 


SUBROUTINE LOFTIYSPAN) 

303 

50 

3636 
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R0 3 

60 

3637 

* T*?W MULTIPLE-SURFACE VDRTE X-LATT! CF PROGRAM 

- REVISED 

6 AUG.72 

*80 3 

70 

34 3 R 

* PROGRAM DEVELOPED B Y A.V.GHMHZ ITPW SYSTEMS J 

ON MARCH- 

MAY 1971 

*803 

80 

3639 




80 3 

90 

3640 

XXXXXXKXXXXXXXXXXXXXXKXXXXXXXXXXXXXXTXXXXXXXXXXXXXXXXXXXXXXXXXXXXX803 

100 

3641 




BO 3 

110 

3642 

DtMFNSION XV( 101 ,XNl10) ,XCI1QI 



00 3 

120 

3643 

DIMFNSION YSPANC42) 



803 

130 

3644 

DIMENSION COS1m,COS2<31,COS3!3] 



803 

140 

3645 

DIMENSION ZDCYUC) 



BQ3 

150 

3646 




803 

160 

3647 

COMMON/OATAOl/K IN ,K0UT ,KT1 »KT2 ,LINEX ,LINES 


80 3 

170 

3648 




BO 3 

l eo 

3649 

COMMON/DAT A02/1FLGI 151 ,FXECK(15) « RAO 

,PIE 


BO 3 

190 

3650 




803 

200 

3651 

CO M MON / 0 A T A 0 3 / N Y S , NC S ,X0CPEF,XU0I T Y l LO1 ,ZtlOI , 

El LO) 

003 

210 

36 52 

* ,C(ioi ,zoc<ia ,ioi ♦xotuoi 



BO 3 

220 

3653 




BO 3 

230 

36 54 

COMMON/OA TA04/YFLAP1,YFL4P2,fLAPC 



903 

240 

3655 

* ,YAILRN.AILRNC»WSM0TH 



B03 

25 0 

3656 




BO 3 

260 

3657 

CO MMON/DA T AOS/WINGD<15 1 ,FY(42,10) ,EC(42,10) , 

ESI 42,10 I 

8D3 

270 

365 8 

♦.EYFU01 ,ELEUO) ,ETE(10I *EHE{ L01 , 

FGI 42,101 

BO 3 

2 a o 

3659 

*, EN< 42, 10,6 > ,EVU2,10,6) , VVl NDX f42,10 ,3 ) 



80 3 

290 

3660 




B03 

300 

3661 

CnMMON/DATAOfe/YFFi1,YFF12,YFF21 f YFF22, YFF31,YFF32 t DELTF1 

,DELT F2 

80 3 

310 

3662 

+ ,NOFLAP,NOAILR 



903 

320 

3663 




B03 

330 

3664 




90 3 

340 

3665 

1000 FORMAT*IX,//,LXI 



B03 

350 

366 6 




003 

360 

3667 

1010 FORMAT!53X,13HWIAG GEOMETRY,/,53X,13<lH*>,///, 

IX, 


603 

370 

3668 

l 6 OH SPAN ROOT TIP ROOT 

TIP 

AREA , 

803 

3 90 

3669 

2 59M ASPFCT M C AN MGC YBAR 

XBAR 

Z 3 AR , / 

, BO 3 

390 

3670 

361H CHORD CHORD TWIST 

TWtST 

, 

003 

400 

3671 

A 6Oh MAT[cl CHORD (MAC! (MGC 1 

I MGC) 

(MGC I , 

/ 003 

410 

3672 

5/, IX,3f10.3,2F10.4,FI0.2,FI 0,4,5F10.3,//,IX* 



003 

4 20 

3673 

t 6oh flap flap flap ailrn 

AILRN 

AILRN, 

003 

430 

36 74 

7 4OH OJHFO SWEEP NO.SPAN NO.SPAN 

NQ.CHORD 

NO.CHORD/ 

, BO 3 

440 

3675 

86lH SPAN1 SPAN2 CHORD SPAN1 

SPAN2 

Chord, 

803 

4 50 

3676 

9 *0h l/4 M GC 1/^MGC VORTICES 01SCONT 

VORTICES 

01SCONT/ 

, 003 

460 

3677 

*/»lK,212FlO.3 t FlC.4|,2F10.3,17,3Ii0,///,lX > 



00 3 

4 TO 

3679 




003 

490 

36 79 

1020 FORMAT! IX) 



003 

4 90 

36 60 




BO 3 

500 

36 61 

1030 FORMAT!IX, 



00 3 

510 

36 92 

1 6OH 2Y/H Y XIF X(l/4) 

XHE 

XT E , 

00 3 

520 

36 63 

2 6OH Z F SWEEP C/4 DIHEO 

C 

CF , 

803 

530 

36B4 

3 /, 1X1 



003 

540 

3665 

1040 FORMAT! IX, I2F1C.3 > 



80 3 

550 

36 96 




B03 

560 

3687 

1040 FORMAT!21X,50H XA[l1/C XA(2)/C XA!3)/C 

XAI4I/C 

X A(5l/C, 

B03 

5 70 

3660 

l 50H XA!6)/C XA17I/C XA(8) / C XAI9J/C 

XAl101/C,//,2 IX, 

80 3 

5 60 

3669 

2 LOF 10.4,///,IX, 4OH Y 2Y/8 , 

ZAU 1/C, 

Z AI2I/C, 

BO 3 

5 90 

3690 

3 6OH ZA13I/C ZA14I/C ZAI5)/C ZA!6)/C 

1 A* 71/C 

2 AC B J/C , 

00 3 

600 

3691 

4 2OH ZAI91/C ZA(L0J/C*/,1X ) 



803 

6 10 

3692 

1060 FORMAT! LX ,12F L0.4 > 



B03 

6 20 

3693 




B03 

630 

3694 

107 0 FORMAT ( 3X, 1HJ, 2 X', 1H K , 5X , 1H Y , 9X , 2HDY , 0 X , 2H DC , 9 X 

,2H0S,/, IX 

1 

BO 3 

640 

3695 

1080 FORMAT!IX,213,12C1PE10.31 ) 



80 3 

650 

3696 




00 3 

660 

36 97 

1090 FORM AT I3X, LHJ,2X , 1HK,5X,2HXV,3X ,2H YV, R X ,2 HZ V ,9 X ,3Hl XV , 7X 

♦3HIYV,7X 

, B03 

670 

3698 

* 3HWV,7X, 2HXN , 9X,2HYN,BX,2H^N,8X,3H1 XN,7X,3H1 YN,7X,3H1ZN, / , IX 1 

003 

6 80 

3699 

1100 FORMAT! IX, 213, 1211PE10.3I 1 



003 

690 

3700 




BO 3 

TOO 

3701 

1110 FORMAT!9X r 1HB,9X ,2HCR,9X,2HCT,8X,2HrR f 8X,2HET, 

0 X,1HS,9X, 

2 H A R, 8X , 

BQ3 

710 

37 02 

* 2 HM C,8 X,3HMGC,6>,4HYMGC ,6X,4HXMGC,6X,4H l MGC,/ 

r IX) 


BO 3 

7 20 

3703 

1120 FORMAT!IX,12F10.2 J 



BO 3 

7 30 

3704 




80 3 

740 

3705 

1130 FORMAT!IX,/,IX,14H<EOF PLCT FILE»13«1HI 1 



00 3 

750 

3706 




BO 3 

76 0 

3707 

XXXXXXXXXX XXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXH03 

*70 

37 OB 




80 3 

7 BO 

3709 




BO 3 

790 

3710 




BO 3 

800 

37H 

* FILL IN NYS ♦ 1 SPACE * 



BO 3 

810 

3712 




903 

920 

3713 

SPAN- 2.0+ YINYS) 



BO 3 

830 

3714 

WINGD1 1! =■ SPAN 



BO 3 

940 

3715 

W1NG0! 2) - C1 1 1 



90 3 

950 

3 T1 6 

WINGDI 31 - C!NYS» 



803 

9 60 

3717 

WINGD! 4) - E( 1 1 



90 3 

970 

3716 

WINGDI 4) = E1N Y S > 



B03 

9 90 

3719 




003 

590 

3720 

BL1TU = SPAN/2.0 



B03 

900 

3721 

OElTFl- wSMOTH 



B0 3 

910 

37 22 

0ELTF2" WSMOTH 



BO 3 

920 

37 2 3 




BO 3 

930 

3724 

IF [WSMOTH-l.Ol 1140,1140,1150 



003 

940 

3725 

li<*0 DELTFIt 9 0TU*DEITF1 



BO 3 

9R0 

3726 

0ELTF2= 8QTU*0ELTF2 



BO 3 

960 

3727 

L150 CONTINUE 



P03 

970 

3726 




903 

9 90 

3729 

YFF1 1 5 YFLAP 1 



BO 3 

990 

37 30 

YFF21 * YFLAP2 



803 

1000 

3731 

YFF3I = VA ILRN 



003 

1010 

3732 




BO 3 

1020 

3733 

IF (YFLAP2-1.01 | 1160,117Q f 1l70 



BO 3 

1030 

3734 

1160 YFF11 = YFFll»BGTL 



BO 3 

1040 

3735 

VFF21 = YFF21*RQTU 



B03 

1050 

3736 

YFF31 = YFF31*8GTL 



003 

1060 

3737 

1170 YPFU * YFF1I - 0.5*DE L TF I 



BO 3 

1070 

37 3 6 

YFF21 = YFF 21 - C . 5*0E L TF 2 



803 

1080 

3739 

YFF31 = YF F 31 - C.5*0EITF2 



B03 

1090 

3740 




00 3 

1100 

3741 

YF F12= YfFll ♦ OELTFl 



B03 

1110 

3742 


ORIGINAL PAGE IS 
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YF F22- YFF21 ♦ 0ELTF2 

003 1120 

3743 

YFf 32 = Yf FBI ♦ 0ELTF2 

BO3 1130 

3744 

c 

003 1140 

3745 

NY 1= NYS-1 

B03 1150 

3746 

NY 2^ NYS+1 

B03 1160 

3747 

Y < NY2)* YINYS) * 0,20*(YtNYSt-YCNYil» 

B03 1170 

3748 

R A T = t Y(NY2>-Y(NYlM/mNYSI-Y(NYin 

603 1180 

3749 

X(NY2> = XlNYSI * R AT* ( X(NYSl - X(NY1>1 

BO3 1190 

3750 

Z< NY2I= Z<NYS1 ♦ RATM Z(NYSI - Z(NYL1I 

603 1200 

3751 

F(NY2> H f(NYS) ♦ RAT*{ f<NYS) - E (NYU ) 

B03 1210 

3752 

C<NY2)= CINY5J ♦ RAT* { C (NYS» - CCNY1M 

603 1220 

3753 

DO 1180 L-i.NCS 

BO3 1230 

3754 

liao Z0tU,NY2I = ZOC (L «NYS> ♦ RAT*( ZDCU.NYSI - ZOC <L,NYl) 1 

BO 3 1240 

3755 

c 

603 1230 

3756 

L= NCS 

B03 1260 

3757 

L 1 = L - l 

603 1270 

375B 

L2-* t* 1 

003 1200 

3759 

NCSPl = L2 

B03 1290 

3760 

xoc(L2i- xocai ♦ o.ia*ixocm-xocani 

B03 1300 

3761 

RAT= < X0C(L21-X0C<U )/< XOC (L J-XOCUl 1 1 

003 1310 

3762 

00 1190 N= L » N Y 2 

BO3 1320 

3763 

1190 ZOC( L2 ,N) = ZOCU.M ♦ R A T * ( ZOCIL,N>-ZOCtLl,N) » 

BO3 1330 

3764 

c 

603 1340 

3765 

c 

BO3 1350 

3766 

c 

BO3 1360 

3767 

C * CALCULATE SPAN FUNCTIONS * 

803 1370 

376 0 

c 

603 1380 

3769 

NSPV= 1FLGC3I 

BO3 1390 

3770 

NSPS- NSPV * i 

603 1400 

3771 

NO IS * 1FLGI 2 J 

BO3 1410 

3772 

IFLAG= IFLGI41 

B03 1420 

3773 

c 

B03 1430 

3774 

CALL SPAN!tIFLAG*NSPS»NOtS*SPAN# YSPAN1 

BO3 1440 

377 5 

C 

B03 1430 

3776 

no 1220 L = 1 * NY 2 

003 1460 

3777 

EYE( LI= Y(LI 

BO3 1470 

3778 

FLEtLJ* X(U - XOCREF*C<L> 

003 1480 

3779 

ETEILI* ElEILI + C(L1 

603 1440 

3700 

Cf = FLAPC 

803 1500 

3701 

IF (FLAPC-0*81 1200,1200,1210 

B03 1510 

3702 

1200 CF = CF*C(L> 

BO3 1520 

3783 

1210 EHE(L1 = ETFCL > - CF 

603 1530 

3784 

1220 CONTINUE 

BO3 1540 

3785 

c 

603 1550 

37 B6 

c 

803 1560 

3787 

c 

BO3 1570 

37 68 

c 

B03 1580 

3789 

c * calculate chord functions * 

BO3 1590 

3790 

c 

B03 1600 

3791 

IFLAG- IF LG(7 ) 

803 1610 

3792 

NCV = IFLGCM 

B03 1620 

3793 

NDIS - TFLGI51 

BO3 1630 

3794 

NOFLPX =f NOFLAP ♦ NOAILR 

BO 3 1640 

3795 

c 

BO3 1650 

3796 

IF (NOFLPX ) 1240*1240,1230 

603 1660 

3797 

1230 NCV - NCV -1 

603 1670 

3798 

NDIS 3 ND1S-L 

BO3 1680 

3799 

1240 CONTINUE 

B03 1690 

3800 

c 

803 1700 

3001 

CALL CKTIAOH IFLAG, NCV, NO 1 S» XV*XN,XC> 

BO 3 1710 

3802 

c 

603 1720 

3803 

00 1260 J=1,NSP$ 

BO3 1730 

3B04 

C 

BO 3 L740 

3805 

yf= YSPAN<JI 

BO3 1750 

3006 

c 

B03 1760 

3807 

CALL CHOROTIYF,XLE,XC04,XTf,XHE,CM,CF» 

BO3 1770 

3808 

c 

BO3 1780 

3009 

IF (NOFLPX ) 1260,1260,1290 

BO3 1790 

3B10 

1250 CW= CW-CF 

803 1800 

3811 

1260 CONTINUE 

603 1910 

3812 

c 

803 1820 

3813 

DO 1270 L “ l , NC V 

BO 3 18 30 

3814 

EC(J,L>- XLE * XC(L>*CW 

BO3 1840 

3815 

EY(J,LI- YF 

BO 3 10 50 

3816 

ev(J,l,u= xlf ♦ xviu*cw 

BOB i860 

3017 

EV ( J ,L , 2 1* YF 

BO 3 1870 

3818 

EV<J.L,3>= 0*0 

603 1800 

3819 

ENtJ.LiU- XLE ♦ XNtU*Cw 

603 1S90 

3820 

EN( J ,L * 2 1= YF 

B03 1900 

382 L 

1270 EN ( J.L , 30*0 

BOB 1910 

3822 

C 

BO 3 1920 

3823 

1280 CONTINUE 

BO3 1930 

3824 

C 

003 1940 

3825 

C 

803 1950 

3826 

[F IN0FLPX1 1310,1310,1290 

903 I960 

3827 

1290 CONTINUE 

003 1970 

38 2 8 

C 

B03 1980 

3029 

NCV 3 NCV ♦ 1 

803 1990 

3830 

c 

B03 2000 

3831 

00 1300 J® 1,NSP S 

B03 2010 

3632 

YF« YSPAN < J1 

803 2020 

3633 

c 

303 2030 

3B34 

CALL CHORDTIYF , XLE , XC04,XTE,XHE,CH,CF> 

BOB 2040 

3835 

C 

003 2050 

3836 

EY C J , NC V1 = YF 

BO3 2060 

3 0 37 

FC(J,NCVJ = XTE 

BO3 2070 

3838 

EV ( J ,NCV,1 )= XHE + 0,2 5*CF 

603 20BO 

3839 

EV(J f NCV.2l= YF 

603 2090 

3840 

EV(J,NCV,3J- 0.0 

B03 2100 

38 41 

EN(J,NCV,1J= XHE + D,75*tf 

803 2110 

38 42 

EN< J ,NCV, 2 1- YF 

003 2120 

3843 

1300 EN(J,NCV.31 * O.C 

003 2130 

3644 

c 

603 2140 

3845 

1310 CONTINUE 

603 2150 

3B46 

c 

003 2160 

3847 

C 

BO 3 2170 

384 8 
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NCVP 1 * NC V *1 
C 

DQ 1370 J^J.MSPS 

J2* Jtl 

YF- YSPANlJ) 

C 

CALI CHOBQTi YF , XLE , XC04, XTE , KHE ,C W,CF ) 
C 

IF IJ-NSPSI 1320*1340*1340 
1320 CONTINUE 

00 1330 K = l*NCV 
1330 EYIJ,K)= EY| J2,Kl-EYlJ ,K> 

1340 CONTINUE 
C 

EVIJiNCVPl.U = *TE 
SVlJ,NCVP1,2> = YF 
EVI J.NCVPl,3» = 0.0 

ecij.NCVPi) = o.o 
c 

00 1350 K« 1 * NC V 
1350 EC(J,K»- EC<J,K|~XLE 
DO 1360 L = 2,NC V 
K= NCV ♦2 -L 
Kl= K- l 

1360 FClJ,K>* EC ( J , K I - EC ( J * K11 
C 

1370 CONTINUE 


00 1390 J= L,N $P V 
J2- J*i 

00 13flO K = 1, NC V 

EC I J »K I » O.S*(EC<J*KI*EC< J2.KH 
1380 ES(J»KI* ECIJ,KJ*EY(J»K| 

1390 CONTINUE 


* CALCULATE AIRFOIL SECTION CAMBER * 

* CALCULATE GEOMETRIC TWIST * 

00 1590 J = l.NSPS 

YF= YSPANIJI 
YA= ABSIYF > 

-1 

00 1420 L=2,NY2 
IF (Ml 1400,1400,1420 
1400 TFST- YA - Ylli 

IF (TFST) 1410,1410,1420 
1410 M= L 
1420 CONTINUE 

M l«- Ml- 1 

IF (MU 14 30, 1430*1440 
1430 Mls 1 
M — 2 

1440 PAT= IV4-Y(Ml)|/(Y(MJ-YCMt)) 

T A N FP 5= FIM1I ♦ P AT* f EIMp(Ml 1 I 

TANEP $= TANITANEPS/RAD1 

DELTAZ= ZlHll 4- PAT*( ZIMI-Z4 Ml 1 1 

00 14 50 L = l,NCSPt 

1450 ZOCYILI* 2 QC(L,M 11 ♦ R A T *( ZaClL,M> - Z0C(L»M1> 1 
CALL CHORD T< YF , XLF , XC n4, XTF ,XHE *C W,CF) 

XROTAT- XL E ♦ XQCR6F*CW 


DO 1560 K = l,NC V 
C 

N=“ 1 

XTEST- EVCJtK.n - XLE 
00 1480 L c 2»NC SP l 
IF (Nl 1460,1460,1480 
1460 TEST= XTPST - KOC(Ll*CW 
IF (TESTI 1470,1470,1490 
1470 N= L 

Nl-L- 1 

1430 CONTINUE 

IF IN 11 1490, 14<K ,1500 
1490 N l ■= l 
N -2 

1500 «ATS = ( XTE5T-CW4KCUN1I >/I XOCI N1 -XOClNm 

EV1J,K,3)« OELTAZ ♦ CW*ZnCY(NU + ( Z<X Y INI -I fJC YI N1M *R ATS 
C 

N = - 1 

XTFST= FNlJ,K,n - XLE 
00 1530 L =?,NC SP1 
tF INI 1510,1510,1530 
1510 TEST= XTFST - X0C(L1*CW 
IF 1TF STl 1520.1 520,t53D 
1520 N= L 

Ml= L' 1 
1530 CONTINUE 

IE (Nil 1540,154C,15^0 
1540 Nl= 1 
N = 2 

1550 RATS* tKTEST-CM**CCIN1>1/4XOC1N>-XOC(Nl1) 

FN(J,K,3)= DFLTAZ + CW*ZUCY(NM * (ZOCY(N>-ZOCYINlM*RATS 
C 

1560 CONTINUE 
C 
C 


80 3 

21 80 

3B49 

B03 

2140 

3650 

903 

2200 

385 L 

003 

2210 

3652 

803 

2220 

3053 

BO 3 

2230 

3 B 54 

90 3 

2240 

3655 

90 3 

2250 

3656 

903 

2260 

3857 

BO 3 

2270 

3850 

80 3 

22 80 

38 59 

80 3 

2290 

3060 

803 

2300 

3861 

803 

2310 

3662 

BO 3 

2320 

3863 

803 

2330 

3864 

BO 3 

2340 

3865 

903 

2350 

3866 

B03 

2360 

3867 

90 3 

23 70 

3868 

003 

2380 

3869 

803 

2390 

3870 

903 

2400 

3871 

603 

2410 

3872 

R03 

2420 

38 73 

803 

2430 

38 74 

90 3 

2440 

3875 

803 

2450 

3876 

603 

2460 

3377 

903 

2470 

3878 

803 

2480 

3879 

803 

2490 

3660 

903 

2500 

3861 

80 3 

2510 

3882 

903 

2520 

3883 

90 3 

2530 

3884 

60 3 

2540 

3665 

BO 3 

2550 

3866 

80 3 

2560 

3887 

80 3 

2570 

3668 

803 

25 80 

3689 

603 

2590 

3090 

603 

2600 

3891 

B03 

2610 

3092 

80 3 

2620 

3093 

903 

2630 

3894 

ROB 

2640 

3895 

R03 

2650 

3806 

903 

2660 

3897 

803 

2670 

38«0 

303 

2680 

3899 

803 

2690 

3900 

BOB 

2700 

3901 

80 3 

2710 

3902 

BD3 

2720 

39D3 

803 

2730 

3904 

BO 3 

2740 

3905 

003 

2750 

3406 

003 

2760 

3907 

BO 3 

2770 

3908 

003 

2780 

39 09 

90 3 

2790 

3910 

80 3 

2600 

391 L 

803 

2810 

3912 

90 3 

2820 

3913 

803 

2830 

3914 

BO 3 

2840 

3915 

BO 3 

2850 

3916 

803 

2860 

3917 

603 

2870 

3918 

603 

28 00 

3919 

00 3 

2890 

3920 

80 3 

2900 

3921 

803 

2910 

3922 

B03 

2920 

3923 

803 

2930 

3924 

803 

2940 

392 5 

BO 3 

2950 

3926 

BO 3 

2960 

3927 

603 

2970 

3926 

803 

2960 

392° 

803 

2490 

3930 

003 

3000 

3931 

B03 

3010 

3932 

803 

3020 

3933 

BO 3 

3030 

3934 

80 3 

30 40 

3935 

BOB 

30 5 0 

3936 

003 

3060 

39 3 7 

803 

3070 

3938 

803 

3090 

3434 

B03 

3090 

3940 

803 

3100 

3941 

803 

3110 

3942 

803 

3120 

3943 

SOB 

3130 

3944 

003 

3140 

3945 

003 

3150 

3946 

803 

3160 

3947 

603 

3170 

3940 

803 

31 RO 

3949 

BO 3 

3190 

3950 

803 

3200 

3951 

80 3 

3210 

3952 

003 

3220 

39 5 3 

BO 3 

3230 

3954 


9-38 



oonnn 


FVIJ?K?3>= t FV(JtK»3? * (EVtJ t K»l>^XRQTAT>*TANEPS 
1570 EN|J»K,3I* ENtJ»K,3) ♦ ( ENt -1 »K* 11 -X^tTT AT I *T 4NEPS 
C 

1580 CONTINUE 
C 
C 

c 

c * CALCULATE UNIT VECTORS * 

C 

DO 1640 JM.NSPV 
J 2 = J*1 

C 

m 1630 K-ltNCV 


C 

SUM 1» 0*0 
SUM2= 0.0 
00 1500 1. * 1» 3 
M* L+3 

ENtJtKfL)- 0« 5*( 
RAT = 0 • 5* t 

EVlJ»KfM)= FV(J2 
EN<J.K»M>r RAT - 
SUM 1= SUMl + £ V < J 
1500 SUM2= SOM2 ♦ ENtJ 
SUMl= SQRTt SUM1 
SUM 2= SQRTt SUM 2 
DO 1600 L=U3 


ENt J2 * K ( LI *■ ENt J* K*LI 
EVtJ2,K,U + EVCJ.K,L1 
K t L) - EVtJ.K.L) 

EN<JpKtLI 
KtHI**2 
Kt MI**2 

I 

) 


) 

I 


Mr L♦ 3 

EV(J,K,M)= EVtJ,K,M)/SUMl 
FNIJtK»M)= FNtJtKfM)/SUM2 
COSltll- FNtJiKiMI 
1600 CO S 2 ( L 1 55 -EV<J»K»M) 


CALL CROSPICOS1»CCS2»C0S3I 


C 

sum l- a.o 

00 1610 L = l» 3 

1610 SUM 1 c SUM 1 ♦ C0$2(U**2 
SUM 1= SQRTt SUMl I 
rm 1620 L = lt3 
H* L ♦ 3 

1620 SNCJ.K«M|= CO S3 < LI/SUMl 


C 

16 30 CONTINUE 


C 

l 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


640 CONTINUE 


* WING DATA * 


MtNGOi U 
U1NGD1 21 
WlNGDt 31 
WINGDC 41 
WlNGOt 51 
WlNGOt 61 
WlNGOt 71 
WlNGDt 81 
WlNGDt 91 
WlNGDt10) 
UINGDt111 
WtNGDt12) 
WlNGDt 14 ) 


SPAN 

ROOT CHORD 
TIP CHORD 

root geometric TWIST 
TIP GEOMETRIC TWIST 
area 

ASPECT RATIO 
MEAN CHORD 

MEAN GEOMETRIC CHORD 

SPAN LOCATiON OP MEAN GEOMETRIC CHORD 
XMGCt HORIZONTAL MOMENT ARM TD 1/4 CHORD OF MGC 
ZMGC, VERTICAL MOMENT ARM TO 1/4 CHORD OF MGC 
SWEEP ANGLE OF 1/4 MGC 


DO 1570 K= 1»NC V 
EVlJi*»31= FVtJ»K,3l 
1570 EN ( JtK f 31- FNtJ«K»3) 


♦ (E VUfK.fi l-XROT AT) *T AN EPS 

♦ lENUfKfll-XROTATl*TANEP$ 


C 

1580 CONTINUE 


BO 3 3240 
603 3250 
BO3 3260 
603 3270 
803 3280 
BOB 3290 
803 3300 
803 3310 
BOB 3320 
803 3330 
BO3 3340 
603 3330 
BO3 3360 
BO 3 3370 
BO3 3380 
60 3 3390 
BOB 3400 
803 3410 
BOB 3420 
BO 3 3430 
BO3 3440 
B03 3450 
003 3460 
803 3470 
803 3480 
603 3490 
803 3500 
B03 3310 
B03 3520 
BO3 3330 
B03 3540 
BOB 3550 
B03 3560 
BOB 3570 
BD3 35BO 
BOB 3390 
B03 3600 
BO 3 3610 
B03 3620 
BOB 3630 
BO 3 3640 
B03 3650 
803 3660 
BOB 3670 
903 368Q 
BO3 3690 
B03 3700 
903 3710 
803 3720 
B03 3730 
BO3 3740 
B03 3750 
B03 3760 
BO3 3770 
BO3 3780 
803 3790 
803 3800 
BO3 38 LO 
BOB 3620 
BO3 3630 
BO3 3840 
B03 3850 
903 3860 
BOB 3870 
B03 3880 
S03 3890 
BO3 3900 
BO3 3910 
BO3 3920 
903 3930 
003 3940 
BO3 3950 
903 3960 


BO3 3970 
BD3 3980 


♦ CALCULATE UNIT VECTORS * 

DO 1640 Jri t N5PV 
J2- J+l 
C 

DO 1630 KMtNC V 
C 

SUM l* 0.0 
SUM2- 0.0 
DO 1590 l=l«3 
H- L*3 

EN (J. K, L ) = 0.5* t ENI J2 » K»L) + ENU f K*L) J 
RAT * 0.5*1 EV<J2»K|L> *■ EVtJfK*L) ) 

FVIJfKfM)® EVt J2fK»L) - EVU»K»LJ 
ENtJ.K'Mlr RAT - ENIJfKfLI 
SUM 1* SUMl ♦ EV(J»K,M)**2 
1500 SUM2r SUM2 * £NtJiK f M)**2 
SUM 1 = SQRTt SUMl I 
$UM2= SQRTt SUM2 I 
00 1600 L *1» 3 
M= 1*3 

EVtJ.KfM)- EVt J t KpM)/SUMl 
FN< J«K fMI= ENtJfK,H)/SUM2 
CO SitLI= ENtJ.K.M) 

1600 C0S2tL)= -EVtJfK.M) 

c 

CALL CR0SP(CnSlfCCS2»C0S3) 

C 

SUMl- 0.0 
DO 1610 L = If 3 

1610 SUM 1= SUMl ♦ C0S3 t L1**2 


BO3 3990 
B03 4000 
903 4010 
B03 4020 
B03 4030 
903 4040 
(303 4050 
B03 4060 
B03 4070 
903 4080 
BO3 4090 
B03 4100 
B03 4110 
503 4120 
BQ3 4i30 
803 4140 
003 4150 
603 4160 
BO3 4170 
BOB 4190 
303 4190 
603 4200 
903 4210 
BOB 4220 
003 4230 
BO3 4240 
BOB 4250 
B03 4260 
603 4270 
903 4290 
903 4290 


39 55 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 
397 5 

3976 

3977 

3978 

3979 

3980 

3981 
3902 

3983 

3984 
3905 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

399 3 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

400 B 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

402 5 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

403 B 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 
4040 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 


9-39 


nnoonnnnnnnoonnnnnnn 


SUM 1= S2«T( SUMi I 

HQ 1620 L = 1,3 
H= L ♦ 3 

1620 FN t J ,K ,M | * C0S3IU/SUM1 
C 

1630 CONTINUE 
C 

1640 CD NT1NUE 


* WlNG DATA ♦ 

HINGOl l) = SPAN 

WlNGDl 2) = ROOT CHORD 

WlNGDl 31 - TIP CHORD 

WlNGDl 41 = ROOT GEOMETRIC TWIST 

WlNGDl 51 = TIP GEOMETRIC TWIST 

WINCIM 61 = AREA 

WlNGDl 71 = ASPECT PATIO 

WlNGDl 81 = MEAN CHORD 

WlNGDl 9) = REAN GEOMETRIC CHORD 

WlNGDl 10) = SPAN LOCATION OF MEAN GEOMETRIC CHORD 

WlNGOIUI - >MGC» HORIZONTAL MOMENT ARM TO 1/4 CHORD OF MGC 

WlNGDl 12) = l MGC * VERTICAL MOMENT ARM TO 1/4 CHORD Of MGC 

WlNGDl 141 = SWEEP ANGLE OF 1/4 MGC 

WINCIM 15} = FLAP CHORD 


603 4300 
SO 3 4310 
603 4320 
BO 3 4330 
90 3 43 40 
903 4350 
003 4360 
BO3 4370 
003 43 00 
B03 4390 
003 4400 
no 3 4410 
BO3 4420 
BO3 4430 
BO3 4440 
BO3 4450 
003 4460 
BO3 4470 
903 4400 
BD3 4490 
603 4500' 
BO 3 4510 
BOB 4520 
BO3 4530 
BO 3 4540 
BO3 4550 
BD3 4560 


SUMI = 0.0 
SUM6 = 0.0 
Sums = a.o 
SUM9 - 0.0 

SUM 10 - 0.0 
SUM11 = 0.0 
SUM 12 * 0.0 
C 

OSPAN* SPAN/200.C 
C 

00 1720 J-1,101 
C 

JM= J-1 

YA2* DSPAN+FLDATIJMJ 
C 

CALL CMOPO T{YA2 » XLE, XMGC2 ,XTE , XHE , CW2 *C FI 
C 

M=-l 

DO 1670 L = 2,NY 2 
IF (Ml 1650,1650,1670 
lf,50 TEST* YA 2- Y< L 1-0.GO01 

IF (TEST) 1660,1660,1670 
1660 M=L 

Ml- L-1 
1670 CONTINUE 

IF (Mil 1600,1691,1690 
1680 Ml- l 
M * 2 

1690 PAT* (Y42-Y(M1) I/(Y(M)-YIMill 
C 

TANFP S = FIMU + IEOM-F (Mil 1 *RAT 
DFLTAZ= l (Ml)t( l (MI-ZIM1)}*RAT 

DELTA2= DELTA/ + IXMGC2-XLE-X0CPEF*CW21*TANlTANFPS/RAD1 
C 

If (JM1 17 10,171C,1700 
C 

1700 CW = 0.5+lCH2*CH> 

4R FA = CW+ DSPAN 
SUM 1 = SUMI ♦ OSPAN 

SUM6 = SUM6 + AREA 

SUM e r SUMS + AREA 

SUM9 - SUM6 * AftEA*Cw 

SUM 10 = SUM 10 * AREA* ( YA2 + YAI 1 *0. 5 

SIJMll = SUM I 1 + AREA*( XMGC2+XMGC1 I *0. 5 

SUM 12 = SUM 12 ♦ AREA*(0FLTA2 + DELTAl|*0.5 
C 

1710 DEL TA1= DELTA2 
XMGC1 = XMGC2 
Cw1 = C W 2 

YA1 = YA 2 

C 

1720 CONTINUE 
C 
C 

ZERO - 0.0 
C 

CALL CHORD T(ZER0,XLE,XCG4 , XTF , XHE ,C W,C-F1 
C 

XPOQT = XC04 
/ROOT* HI) 

C 

WlNGDl 1) = SUM 1*2.0 
WlNGDl 61 = SUM6*2 .q 


B03 4570 
503 4580 
803 4590 
BO3 4600 
903 4610 
003 4620 
BO 3 4630 
803 4640 
003 4650 
003 4660 
BO3 4670 
803 4680 
BO3 4690 
BO3 4700 
BO3 4710 
BOB 4720 
BO3 4730 
BO 3 4740 
003 4750 
BO3 4760 
BD3 4770 
BO3 4780 
BO3 4790 
B03 4800 
S03 4810 
003 4B20 
003 4030 
603 4040 
B03 4850 
003 4860 
903 4070 
003 4890 
603 48 90 
803 4900 
BO3 4910 
003 4920 
BD3 4930 
BO3 4940 
B03 4950 
B03 4960 
(303 4970 
B03 4980 
803 4990 
BO3 5000 
603 5010 
BO3 5020 
BD3 5030 
60 3 504 0 
B03 5050 
BOB 5060 
BO3 5070 
BO 3 50 80 
803 5090 
903 5100 
BO 3 5110 
BOB 5120 
B03 5130 
60 3 5140 
BOB 5150 
003 5160 
903 5170 
003 5190 
BOB 5190 
603 5200 


C 

C 

C 


WINGOC 7* = 2.0*1SUMl**21 /SUM 6 
WINCIM 81 = SlME/SUMl 
WINGD( 91 - SUMC/Sum6 
WINGD(IO) = SUM10/SUM6 
WlNGDl 111 = SUMU/SUM6 
WlNGDl12 I = SUM12/SUM6 
WINGDI13) - RAD*ATAN((WI\GDl12 I- 
WINGOl 141 = RAD*ATAN(IWINGOl11I- 
WINGOl151 = FLA PC 


003 5210 
903 5220 
60 3 5230 
BO 3 52 40 
BO3 52 50 
BO3 5260 

ZROCTJ/WlNGDl10H 903 5270 

KPDOT)/WlNGD(10 I I 003 52 80 

903 5290 
603 5300 
603 5310 


CALL PAGE 603 5330 

Wft ETE IKOUT.IO10)IWINGD(I 1,1=1,121 t VFLAPl,YFLAP2,FLAPC, YFLAP2»80TU803 5340 
l, FLAPC,WINGD ( 1 3 *,M NGD (14) , I FLG(3 I11 FLG(2 I, IFLG16 I ,IFL G(5) 603 5350 


4061 

4062 

4063 
40 64 
40 65 

4066 

4067 
4069 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

40 8 8 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 
4 L Q1 

4102 

4103 

4104 

4105 

4106 

4107 

41 OB 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 
41 LB 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 
41 2 B 

4129 

4130 

4131 

4132 

4133 
41 34 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 
4L45 
4146 
414? 
4148 
4140 

4150 

4151 

4152 

4153 
41 54 

4155 

4156 
4J 57 
41 58 
41 59 

4160 

4161 

4162 

4163 

4164 

4165 

4166 




9-40 


original PAOEB 

OR POOR QUALI 1 H 



ci o n o o n o 


LINES’ LINES + 1* 

C 

C 

WRITE IKOUT,10301 
LINES- LINES *3 . 

C 

DO 1R20 J=1,NSPS 
C 

YF = YSPANlJI 
YA- AB SIYF 1 
YDB- YF/POTU 
C 

CALL C HOROT(YF,*IE,XC04,XTE ,XHE ,CH,CF| 

C 

H= -l 

DO 1750 L =2»NY2 
IF IM) 1730,1730,1750 
1730 TEST= YA - YILI - O.OOQI 
IF ITESTI 1740,1140,1750 
1740 M’ L 

Ml* M-l 
1750 CONTINUE 

IF IMU 1760, 1760,1770 
1760 M* 2 
MI = 1 

1770 RAT’ I YA-YtMl> I/I YCMI-YIMIH 

C 

ZY’ ZIMLI ♦ RAT* I ZIM) - ZIMII I 
fK ~ ElMlI «■ R A T * { EIH) - EIM1I I 

C 

If IJ-1I 1790,1750,1790 
17BO YF1* YF - 0*05*SPAN/FLOATINSPVI 
YA= ABSIYF1) 

C 

CALL CHDR.0TIYA,XLE1,XC041 ,XTEI,X4E1,CM1,CF1 I 

7Y1 = /(Ml) ♦ I £1H)-ZI Ml! )*{YA-YtHlH/< YOO-YIKI)) 

C 

1790 OELTAl’ YF-YF 1 
C 

BETA- RAO*ATANI (XC04-XCQ41I/DELTA1) 

01 HE’ RAD*ATAN( IZY-ZYl1/OELTAl I 
C 

IF ILINEX-lINFS I 1800,1810,1810 
1BOO CALL PAGE 

WRITE IKOUT,10301 
LINES’ LINES*2 

1810 WRITE IKOUT,10401 YOB,YF,XLE,XC04,XHF,XTE,Zt,EK,BET A,D1Ht,CW,Cf 
C 

LINES’ LINES ♦ 1 
Y Fl= Yf 
ZY1- ZY 
XC04 l 25 XC0 4 
I ri20 CONT 1NUE 
C 

c 

WRITE 1 KDl>T ♦ 1000 ) 

LINES’ LINES *3 
L [NES= LINES *7 

IF ILINEX-LTNES1 1830,1840,1840 

1830 CALL PAGE 

.LINES* LINES *7 

1840 WRITE (KOUT, 1060MX0C III ,1^1,101 
LINF S = LINES *1 
C 

00 1870 J=l,NYS 

IF 1LtNEX-lINES I 1B50,1860,1860 
1B50 CALL PAGE 

WRITE IKDUT,10501 
LINES’ LINFS+7 
I860 CONTINUE 

YOB* YIJW80TU 

WR ITE IKOUT, 1060 IYI Jl , YOB , (ZOCU , Jl , 1*1 ,NCS) 

LINES* LINES ♦ 1 
1870 CONTINUE 
C 

LINES- LINES* 3 

IF ILTNEX-LINE SI 1880,1890,1B90 
I860 CALL PAGE 

LINES’ LINES *3 
1890 WRITE IKOUT,10001 


* DEBUG OUTPUT * 

If MfLGIlOM 2030,1900,1 900 
1900 IFLGILOI- IFLGllCJ-1 


L INES* LINES+2 

IF (LINEX-LTNES I 1910,1920,1920 
1910 CALL PAGE 

LINES- LINES+2 
1920 WRITE (KOUT,10701 
C 

DO 1950 K’WNCV 
LINES’ UNEStl 
DO 1940 J=l,NSPV 
LINES* LINES+1 

IF IL1NEX-LINES! 1930,1940,1940 
1930 CALL PAGE 

WRITE IKOUT,L070I 
LINES* LINES + 2*1 

1940 WRITE IKOUT, 1080)J,K,EN<J,K,2 » ,EY|J,K1 ,ECIJ,K»,ESlJ,Kl 
I960 WRITE IKOUT,1020) 


B03 5360 
603 5370 
603 5380 
B03 5390 
B03 5400 
B03 5410 
BO3 5420 
BQ3 5430 
603 5440 
BO3 5450 
B03 5460 
BO3 5470 
003 5480 
603 5490 
B03 5500 
903 5510 
BO3 5520 
603 5530 
003 5540 
003 5550 
BQ3 5560 
003 5570 
BO3 5560 
003 5590 
603 5600 
BO3 5610 
003 5620 
903 5630 
603 5640 
303 5650 
603 5660 
BOB 5670 
603 5680 
803 5690 
BO3 5700 
B03 5710 
603 5720 
BO3 5730 
603 5740 
603 5750 
B03 5760 
B03 5770 
803 57BO 
B03 5790 
BO 3 5800 
803 5810 
003 5620 
803 5630 
BO3 5940 
B03 5850 
803 5660 
803 5670 
603 5860 
603 5890 
003 5900 
003 5910 
803 5920 
803 3930 
BO3 5940 
B03 5950 
B03 5960 
803 5970 
803 5980 
603 5990 
803 6000 
B03 6010 
BO3 6020 
803 6030 
BO3 6040 
803 6050 
803 6060 
803 6070 
803 6080 
B03 6090 
803 6100 
BO3 6110 
BO3 6120 
803 6130 
903 6140 
BO3 6150 
ROB 6160 
BO3 6170 
BOB 6180 
B03 6190 
803 6200 
BO 3 6210 
B03 6220 
B03 6230 
B03 6240 
603 6250 
BOB 6260 
BO3 6270 
BOB 62 80 
003 6290 
R03 6300 
003 6310 
BO3 6320 
903 6330 
803 6340 
B03 6350 
BOB 6360 
903 6370 
003 6380 
B03 6390 
B03 6400 
803 6410 


4167 

4166 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 
4L80 

4181 

4182 

4183 

4184 

4185 

4186 
4107 
4186 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 
422 0 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 
42 40 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 
42 53 

4254 

4255 

4256 

4257 

4258 
42 59 

4260 

4261 

4262 

4263 
42 64 

4265 

4266 

4267 

4268 

4269 
42 70 

4271 

4272 


9-41 



rtft r> n on on ooo nooo 


L tNES= L INF S*3 

IF ILINFX-L1NE$) 1960 ,1 970 ,1970 
I960 CALL PAGF 

L l N E S = LINES+3 
197 0 WRITE I KQUT, 1000) 

C 

IF (LINEX-LINES) 1900,1990,1990 
19R0 CALL PAGE 

LINFS= LINES ♦ 2 

1990 WRITE (KOUTtl090) 

C 

01 2020 K*1,NC V 
L INF5- L INES*1 
00 2010 J=l,NSPV 
L INFS** LlNES+1 

IF (LlNEX-LlNESt 2000,2010,2010 
2000 CALL PAGE 

WR ITF IKDU T, 1090) 

LINES = LINES * 2 

2010 WRITE IK0UT,1 100>J,K,IEV1J,K,I1,1*1,6),I6NIJ,K,U,|=i,6) 
2020 WRITE (OUT ♦ 1020) 

C 

2030 CONTINUE 
C 

LINES= LINES*3 

IF UINEX-LINESI 2040,2050,2050 
2040 CALL PAGE 

LINES= L INFS*3 
2050 WR I Tf <KtlUT,10001 


* WRITE ON CALCOMPLOT TAPE * 

IF (IFLG(12)-1) 2460,2060,2060 
2060 IP EC 1-1 
IR EC2~T 

X Z ER 0 = xt 11 - 0.4* BHTU 
ZZERO - U II 

DO 2C70 J=1,NSPS 
YSPN = YSPAMJ) 

CALL CHOROT IYSPN»XLE,XC04 t XTE,XHE,CW,CF) 

YSPN = YSPN/0OTL 
XL F = (XLE -XZERO/BOTU 
XC04 = IXC04 -XZERO/BOTU 
XTE = IXTE -XZERO/BOTU 
XHF = (XHE -XZEPOI/ROTU 
CW - CW/9QTU 

CF * CF/BOTL 

2070 Wfi ITEIKT2) IP EC l, TREC 2 , Y SP N, XLE , XC 04 , XTE ,XHE , CW ,CF 


IR EC 1= 2 
IR EC 2= 2 
K* 1 

00 2100 J*t,N5PS 
YSPN = E V4 J » Xi2) 

CALL CHOMOT(YSPN,XLE,XC04,XTF,XHf,CW»CF| 

YSPN - YSPN/ROTU 
XLE * < XIE -XZEROJ/ROTU 

XTE = 4 XTE -XZERO)/R0TU 

IF (1TET) 2080,2CBD,2090 
2000 ITET = l 

WR ITEIKT2I IREC 1 , I RFC2,YSPN,XLE 
WRITEIXT2I I p EC l , I RFC2,YSPN,XTE 
GCJ TO 2100 
2090 ITET - -l 

WR ITFIKT2) [RFC L, IRFC2,YSPN,XTE 
WR IT£(k T21 IRFC l , IR6C2,YSPN,XLE 
2100 CONTINUE 


IP FC 1 - 3 
IP EC 2- 2 
ITET =-l 
00 2150 K* 1,NC V 
DO 2140 J=1,NSPS 
IF 4ITET) 2110,2110,2120 
2110 JR = J 

GO TO 2130 
2120 JR = NSPS *1-J 
2130 CONTINUE 

YSPN = I E V< JR , K ,2) )/BOTU 

XLE - (FVlJR'Kfl) -0.25*EC4JP,K) -KZERCU/BOTU 
2L40 HRITE< kT2)IRFC 1,IFEC2,YSPN,XLE 
ITET = — 1*1TE T 
2150 CHNTINUF 


[R EC1 = 4 
IR EC 2 = 3 
C 

DO 2210 J* 1,NSPS 

C 

YSPN= EVIJ, 1,2 I 
Y A = A0SIYSPN) 

l 

DO 21 BO K = i,NY2 
IF IM) 2160,2180,2180 
2160 TE ST = YA-Y(K) 

IR 4 TEST) 2170,2 170,21 80 
2170 M = K 


B03 

6420 

4273 

BO 3 

6430 

427 4 

ROT 

6440 

427 5 

BO 3 

4450 

42 76 

BO 3 

6460 

42 7 7 

BO 3 

64 70 

42 78 

BO 3 

6400 

4279 

B03 

6490 

42 00 

B03 

6500 

42 01 

803 

6510 

4282 

B03 

6520 

42 63 

B03 

6530 

42 04 

BO 3 

6540 

42 0 5 

B03 

6550 

42 66 

B03 

6560 

420 7 

B03 

6570 

4206 

B03 

6500 

42 89 

803 

6590 

4290 

B03 

6600 

4291 

BO 3 

6610 

4292 

B03 

6620 

4293 

BO 3 

6630 

42 94 

803 

6640 

4295 

B03 

6650 

4296 

803 

6660 

4297 

80 3 

6670 

4299 

903 

6600 

4299 

903 

6690 

4300 

903 

6700 

4301 

903 

6710 

4302 

B03 

6720 

4303 

B03 

6730 

4304 

90 3 

6740 

4305 

903 

675 0 

4306 

903 

6760 

4307 

903 

6770 

4308 

BO 3 

6780 

4309 

903 

6790 

4310 

R03 

6800 

4311 

903 

6010 

4312 

80 3 

6020 

4313 

80 3 

6330 

4314 

B03 

6040 

4315 

B03 

6850 

4316 

903 

6 B60 

4317 

003 

6070 

4318 

80 3 

60 BO 

4319 

B03 

6090 

4320 

B03 

6900 

4321 

BO 3 

69 LO 

4322 

B03 

6920 

4323 

B03 

6930 

4324 

BO 3 

6940 

4325 

bob 

6950 

4326 

003 

6960 

432 7 

B03 

6970 

432 B 

B03 

6900 

4329 

B03 

6990 

4330 

B03 

7000 

4331 

B03 

7010 

4332 

903 

7020 

4333 

BO 3 

703 0 

4334 

BO 3 

704 0 

433 5 

903 

7050 

433 6 

803 

7060 

4337 

903 

7070 

4338 

903 

7060 

4339 

803 

7090 

4340 

903 

7100 

4341 

903 

7110 

4342 

903 

7120 

4343 

BO 3 

7130 

4344 

BQ 3 

T140 

4345 

BO 3 

7150 

4346 

903 

7160 

4347 

B03 

7170 

4348 

BO 3 

7100 

4349 

BO 3 

7190 

4350 

903 

7200 

43 51 

B03 

7210 

4352 

303 

7220 

43 5 3 

803 

72 30 

4354 

BO 3 

7240 

4355 

BO 3 

725 0 

43 56 

803 

7260 

4357 

803 

72 70 

4358 

903 

72B0 

4350 

00 3 

7290 

4360 

803 

7300 

4361 

803 

7310 

4362 

903 

7320 

436 3 

B03 

7330 

4364 

90 3 

7340 

4365 

803 

7350 

4366 

BO 3 

7360 

4367 

803 

7370 

4366 

BO 3 

73 80 

4369 

B03 

7390 

4370 

BO 3 

7400 

4371 

B03 

7410 

4372 

BO 3 

7420 

43 7 3 

BO 3 

7430 

43 74 

00 3 

7440 

4375 

B03 

7450 

4376 

803 

7460 

43 77 

B03 

74 7 0 

43 7 0 
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2160 

CONTINUE 


603 74 80 

4379 

C 



BO3 7490 

4300 


Ml=M- 1 


B03 7500 

4361 


IF (MU 2 190,2190,2200 


BO 3 7510 

4362 

2190 

M»2 


B03 7520 

4363 


M 1 = 1 


B03 7530 

43 64 

2200 

RAT= I YA -Y<Min/IYIM)-YI#in 


B03 7540 

4385 

c 



B03 7550 

4366 


CALL CHORDTtYSPN.XLE,XC04,XTE,XHE,CW,CF» 


BO3 7560 

4367 

c 



B03 7570 

4368 


OELTAZ- ZIMll ♦ ( Z<M>-Z!M1H*RAT 


00 3 75 00 

4369 


TANEPS^IEIMU (EiMl-E (MIIMRATJ/RAD 


003 7590 

4390 


TANEPS* TAN! TANEPSI 


003 7600 

4391 


ZLE* !-DEL TAZ ♦ TANEPS*CW*!XOCREF> >/0OTU 


003 7610 

4392 


l TE* I-0ELTA2 ♦ TANEPS*CW* (XOCREF-WOI J/0OTU 


003 7620 

4393 


YSPN* YSPN/BOTO 


003 7630 

4394 

2210 

WR ITE1KT2) [RFCl,IREC2,YSPN,ZLE,ZTE 


003 7640 

4395 

c 



003 7650 

4396 

c 

' 


003 7660 

4397 


t«ECl= 5 


003 7670 

4396 


IR EC2 3 6 


BO3 7600 

4399 


ZERO * 0,0 


BO3 7690 

4400 


XZEfiO= XU1 ♦ Cm*IO,5-XOCREFl 


BO3 7700 

4401 


YZ ER0 = Y! 11 


BO3 7710 

4402 


ZZERO* z<n 


003 7720 

4403 


PM IR = 45.0/RAO 


BO3 7730 

4404 


PHIP * -PHIR 


BO3 7740 

4405 


PHIO - 0.5+PHIP 


803 7750 

4406 

c 



003 7760 

4407 

c 



BO3 7770 

4408 


00 2270 J=1,NSPS 


003 7700 

4409 

c 



B03 7790 

4410 


YSPN » YSPAN!Jl 


B03 7000 

4411 


YA = A0S1YSPNI 


603 7010 

4412 

c 



BO3 7020 

4413 


CALL C hOPDT! YSPN, XLE ,XC04 ,XTE.XME,CW*CF1 


BO3 7830 

4414 

c 



603 7840 

4415 


Mx- 1 


003 7050 

4416 


00 2240 K. = 1 ,NYS 


B03 7060 

4417 


IF (Ml 2220,2240,2240 


B03 7070 

4416 

2220 

TEST* YA-YIXI-O.OOOl 


BOB 7800 

4419 


If ITEST) 2230,2230,2240 


BO3 7090 

4420 

2230 

M=K 


B03 7900 

4421 

2 2 40 

CONTINUE 


BOB 7910 

4422 


IF (M-u 2250,2250,2260 


B03 7920 

4423 

22*>0 

M* 2 


BO3 7930 

4424 

2260 

Ml* M-1 


B03 7940 

4425 

c 



003 7950 

4426 


RAT = I VA-YIHIM/IYIHI-YIMIU 


BOB 7960 

4427 


DELTAZ* Z ! M1) ¥ !Z(M |-l < Mil) *RAT 


BO3 7970 

4426 


TAN EPS* E(HU ♦ (E (Ml -E I Ml 11 *R AT 


B03 79BO 

4429 


TANEPS- TAN(TAN6P$/RAD| 


603 7990 

4430 

c 



603 8000 

4431 


ZLE » L-OELTAZ ♦ TANEPS*C¥*< XOCREF 1 ♦ZZERO 1/BOTU 

003 0010 

4432 


YLE * YSPN/ftOTU 


B03 0020 

4433 


XL E * l XLF -XZEPO1/0OTU 


603 0030 

4434 


ZTE * (-DELTAZ ♦ TANEPS*C H*i XOCREF-l.0)♦ZZERO l/BQTU 

803 8040 

4435 


YTE = YLF 


B03 8050 

4436 


XTF x I XTE -XZERGl/BOTU 


B03 8060 

4437 

c 



003 8070 

443 8 


CALL ROTATE! KLE,ZIE, ZERC.ZERO, PHIR, Z&RO,ZERO. 

XLCtZLf 1 

603 0080 

4439 


CALL ROTATE! YLE ♦ XLE, ZERO,ZERO, PHIP, ZERO,ZERO, 

YLE,XLE ) 

BO3 0090 

4440 


CALL ROTATE! YLE »ZLE , ZERC.ZERO, PH1Q, ZERO,ZERO, 

YLE,ZLE 1 

BO3 6100 

4441 


CALL ROTATE! XTE,ZTE, ZERO,ZERO, PHIR, ZERO,ZERO, 

XTE,ZTE 1 

003 6110 

4442 


CALL ROTATE! YTE,XTE, ZERO,ZERO, PHIP, ZERO,ZERO, 

YTE,XTE ) 

BO3 8120 

4443 


CALL ROTATE! YTE,ZTE, ZERO,ZERO, PHIO, ZERO,ZERO, 

YTE,ZTE ) 

B03 8130 

4444 

c 



603 8140 

4445 

2270 

WRITEIKT21IRFCI,IREC2,YLE ,ZLF,YTE,ZTE,XLE,XTE 


BO3 9150 

4446 

c 



B03 6160 

4447 

c 



803 6170 

4440 


EC 1= 6 


BO3 61 BO 

4449 


IREC2” 3 


003 8190 

4450 


1=1 


B03 6200 

4451 

c 



B03 8210 

4452 


DO 2350 J = l.NSP 5 


003 8220 

4453 

c 



003 8230 

4454 


YSPN = EY(J«I * 21 


003 8240 

4455 


YA - ARS! YSPN! 


003 8250 

4456 

c 



803 8260 

4457 


CALL CHORDT!YSPN,XLE,XC04,XTE,XHE,CW,CF> 


803 8270 

4458 

c 



B03 8290 

4459 


M= - 1 


003 8290 

4460 


00 2300 K* 1,NYS 


003 8300 

4461 


IF IM1 2260,2300,2300 


603 8310 

4462 

2280 

TFSTx YA-YIKl-0.C001 


BOB 8320 

4463 


IF (TESTI 2290,2250,2300 


BO3 8330 

4464 

2290 

M* K 


603 8340 

4465 

2300 

CONTINUE 


003 0350 

4466 


IF «H-H 2310, 2310,2320 


BO3 8360 

4467 

2 310 

M= 2 


B03 8370 

4466 

2320 

M l = M-l 


B03 6360 

4469 

c 



BOB S390 

44 70 


RAT* < YA- Y(MU |/( V! M1-YIN1J I 


003 8400 

4471 


DELTAZ* Z ! M l) ♦ < Z1H)-Z(M1M *RAT 


003 8410 

4472 


TAN EPS= FIH1I ♦ ! E { Ml -E (Ml} 1 *RAT 


B03 0420 

4473 


TANEPS= TAN!TANEPS/RA01 


BOB 0430 

4474 

c 



803 8440 

4475 


ZLE = !-DELTAZ + TANEPS*CW*< XGCREF 1 ♦ ZZERO 

1/BOTU 

BOB 8450 

4476 


YLE = YSPN/ftOTU 


003 8460 

4477 


XLE -* 1 XLE - XZERO ) /BOTU • 


B03 6470 

4478 


ZTE x <-DELTAZ ♦ TANEPS*CW*(XOCREF-l.0 1 ♦ ZZERO 

1/BOTU 

003 8480 

4479 


YTE * YLE 


B03 6490 

4480 


XTE = 1 KTE - XZERO 1/BOTU 


003 8500 

44 6 L 

c 



BOB 8510 

44 82 


CALL ROTATE! XLE,ZLE, ZERC.ZERO, PHIR, ZERO,ZERO, 

XLE, ZLE 1 

003 8520 

4483 


CALL ROTATE! YLE,XLE, ZERO,ZERO, PHIP, ZERO,ZERO, 

YLE,XLE > 

003 8530 

4464 
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CALL PCITATFI YLFfZLFi ZERCfZFPO, PH]Q, 

ZERO,ZERO, 

VLE.ZLF 

] 

BO 3 

8540 

446 5 


CALL ROTATE] XTErZTE. ZFRC.ZERD, PH1R, 

ZERO,ZERO, 

X TE,ZT t 

i 

803 

0550 

4466 


CALL POTA TE < YTE , XTE, ZFRC.ZFRO, PH l P , 

ZERO,ZERO, 

YTE.XTE 

> 

BO 3 

8560 

4497 


CALL ROTATE] YTE.ZTE. ZFRC.ZERn, PHI 43 1 

ZERO,ZERO, 

YTE,ZTE 

i 

BO 3 

8570 

44 P 9 

c 





B03 

85 80 

4489 


IF ( l TFT 1 23 30,2220*2340 




803 

8590 

4490 

2330 

! T FT * 1 




803 

8600 

4491 


WR IT£<KT2MRFCL, [RFC2 . YLE ,ZL£,KLE 




BO 3 

8610 

4492 


WRITEIKT21IP EC 1 * 1PEC2,YTF,2TE,*TE 




BO 3 

8620 

4493 


GO TO 2350 




603 

8630 

4494 

2340 

IT FT - -1 




603 

8640 

449 5 


WR ITEIKT2)1RECL,IREC2.YTF.ZTF.XTE 




80 3 

8650 

4496 


WRITEIKT2]IRFCI,IREC 2 . YLF . Z LE , X LF 




803 

8660 

4497 

C 





803 

8670 

4498 

23*0 

CONT IMUE 




BO 3 

8680 

4499 

C 





BO 3 

8690 

4500 

C 





803 

8700 

4501 


Ift FC1= 7 




B03 

B710 

4502 


IRFC2* 3 




803 

8720 

4503 


[TFT a -l 




B03 

8730 

4504 

C 





603 

8740 

4505 


00 24 50 t = l,NCVPl 




803 

8750 

4506 


00 2440 J- l.NSPS 




B03 

8760 

4507 

C 





B03 

8770 

4508 


IF ( ITETJ 2 360,2360,2370 




BO 3 

8780 

4509 

2 3 60 

JR - J 




B03 

8790 

4510 


GO TO 2380 




BO 3 

8800 

4511 

2370 

JR= NSPS + 1-J 




BO 3 

6810 

4512 

2380 

CONT INUE 




B03 

8920 

4513 

C 





BO 3 

8830 

4514 


YSPN = E V]JR tI , 2 ) 




B03 

6840 

4515 


VA = ABSIYSPNI 




B03 

6850 

4516 

C 





B03 

6960 

4517 


CALL CHORDT{YSPN,XLE,XC04 ,XTE*XHE♦CM,CF) 



BO 3 

88 70 

4516 

c 





B03 

8880 

4519 


M = “1 




B03 

8890 

4520 


DO 2410 K-l.NYS 




BO 3 

8900 

4521 


IF (Ml 2390,2410,2410 




003 

6910 

4522 

2390 

TEST 3 YA -YIKI-0.0001 




B03 

8920 

452 3 


IF (TEST] 2400,2410.2410 




BO 3 

8930 

4524 

2400 

K 




BO 3 

8940 

4525 

24 10 

CONT INUF 




BO 3 

8950 

4526 


IF (H-ll 2420,2420,2430 




BO 3 

8960 

4527 

2420 

* = 2 




B03 

9970 

452 6 

2430 

Hl= M-1 




BO 3 

8980 

4529 

C 





B03 

8990 

4530 


RAT* 1 Y6-Y( Ml)) /( V| M)-Y(H1M 




BO 3 

9000 

4531 


DELTAZ= Z! M 1) ♦ ( ZCMJ-Z(ML) l + PAT 




BO 3 

9010 

4532 


TANEPS 3 F(Ml) * < ECMJ-F(Mn l + RAT 




B03 

902 0 

4533 


TANEPS^ TANlTANEPS/RAO) 




803 

9030 

4534 

c 





B03 

9040 

4535 


XTE = XLF 




B03 

9050 

4536 


XLF =» EVIJR,t,l> -0*25*FC C JR,I ) 




803 

9060 

4537 


YLE * YSPN/BOTU 




B03 

90 70 

4538 


ZLE * (-OELTAZ ♦ TANEPS*! XTE ♦ CW+XOCPEF - XLF 1 

♦ Z Z FRO 

)/ SOT U 

90 3 

9060 

4539 


XLF = 1 XLF-XZFRCl/RtlTU 




B03 

9090 

4540 

c 





903 

9100 

4541 


CALL ROTATE! XLE.ZlF, ZFRC.ZERO, PHIP, 

ZERO,ZERO, 

XLE,ZLE 

) 

BO 3 

91 10 

4542 


CALL ROTATE! YLF.XLE, ZERO,ZERO, PHIP, 

ZERO,ZERO, 

YLE,XLF 

> 

R03 

9120 

4543 


CALL ROTATE! YLE , ZLE, ZERC,ZF RO, PHIO, 

ZERO,ZERO, 

YLE.Z LE 

> 

BO 3 

9130 

4544 

c 





B03 

9140 

4545 

2440 

WR I TE (K T2 1 I»EC 1 , 1 RFC2 , YLE,ZLF,XLE 




803 

9150 

4546 

c 





803 

9160 

4547 


ITET 3 - l*I TFT 




B03 

9170 

4548 

c 





80 3 

91 60 

4549 

2450 

CONTINUF 




803 

9190 

4550 

C 





B03 

92 00 

4551 

C 





B03 

9210 

4552 


END FILE XT2 




803 

9220 

4553 


IFL GtIS)- rFLGI 151 M 




BO 3 

9230 

4554 


L INFS 3 LINES *2 




BO 3 

9240 

45 5 5 


WPlTF (XnUT, l 130UFLG ( 15] 




BO 3 

9250 

4556 

C 





BO 3 

9260 

4557 

C 





B03 

9270 

455 B 

2460 

CONT INUF 




B03 

92 90 

4559 

C 





BO 3 

9290 

4560 

C 





BO 3 

9300 

4561 


RETURN 




903 

9310 

4562 

C 

XXXXXK 




B03 

9320 

4563 

C 





903 

9330 

4564 

C 





003 

9340 

4565 


END 




803 

9350 

4566 


V 

FDR B04 t B04 


BQ4 

10 

4567 

C 



B04 

20 

4566 

C 



B04 

30 

4569 

c 



B04 

40 

4570 


SUBROUTINE DLIFTIALFA,ZHCIGTJ 


BO 4 

50 

4571 

c 



B04 

60 

4572 

c 

* TRW HULTIPLE-SLRFAC6 VCRTFX-lATTICF 

PROGRAM - REVISED B AUG-72 

* BO 4 

70 

4573 

c 

♦ PROGRAM DEVELOPED RY A,V.GOME 7 (TRW 

SYSTEMS) ON MARCH-* - *Y 197 1 

+ 004 

00 

4574 

c 



804 

90 

4575 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXKKXXXXXXXKB04 

100 

4576 

c 



904 

1 10 

4577 


DOUBLF PRECISION SCALF,SUP,DFTEPM,AMAT(71,7l ) ,VMAT171) 

B04 

120 

4578 


UIMPNSIDN PI 3),0{3J t D(3) 


904 

130 

4579 


D1MFNS ION COSL! l\ ,C0S213|,CDS3(31 


BO 4 

140 

4580 


DIMENSION SUMWl i 41 ,SUMSL(4) 


BO 4 

150 

4561 


DIMENSION PW(3),RW(3),Dwl3I 


B04 

160 

4582 

c 



B04 

170 

4583 


COMMON/DA TAOl/KTN ,KOUT ,KT1 ,KT2 

,LINEX .LINES 

B04 

100 

4584 

c 



B04 

190 

4585 


COMMON /DATA02/ I FIG! 151 ,FXECK(15I 

,RAO ,PIE 

BO 4 

200 

45 06 

c 


, 

B04 

210 

4587 
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COMMON /OATA05/W I NGD (15) ,FYl42,10| ,EC(42,10I pES[42.10) 

004 

220 

45 BB 

*,EYE < 10) ,EIE <10) ,ETEUO) t EHE(10» f EG(42,lO» 

004 

230 

4589 

* » EN(4 2 ,10* 61 ,EVf42«10 v 6) ,VVlNOXt42,10p3> 

004 

240 

4590 

C 

804 

250 

4591 

C 

B04 

260 

4592 

1000 FORMAT! IX ) 

904 

270 

4593 

1010 FD RM AT tIX,//, \ X1 

604 

2 80 

4594 

c 

BO 4 

290 

4595 

1020 FDPMAT! 47X,28HV0RTEX LATTICE MATRIX DETAIL*/ p47X,28{1M *\ % ft , IX) 

B04 

300 

4596 

1030 FORMAT! IX,12H J K NP NG« 

804 

310 

4597 

2 60H VF S ( MA TI VI MAT) P(XI P< Y> PUI BtX) , 

B04 

320 

4598 

3 50H 8<Y| BIZ) D( X) DIY) 0(2> f /*lX| 

804 

330 

4599 

1 0AO fnRMAT! IX,413,1IF10.4) 

804 

340 

4600 

C 

804 

350 

4601 

103 0 FORMAT!48X,24HLIFT DISTRIBUTION OETA]L,/,48K,24C f IX) 

804 

360 

4602 

1040 FORMAT!3X,4HJ K,5X,40HP(X) PI Y) P|Z) AREA • 

604 

370 

4603 

160HCPN G! X t GIY) GUI VIU) YU Y1 , 

B04 

380 

4604 

215HVKZ) GAMA , /,IX> 

604 

390 

4605 

IOTO FORMAT! IX, 213, 3F1Q.3, 2F10,4p 6F10.5, E10.4 > 

804 

400 

4606 

C 

804 

410 

4607 

LOflO FORMAT!4AX,24HSECTION LIFT COEFFCIENTSp/,4BX.24!IH*) i //,LX) 

004 

420 

4608 

10^0 FORMAT! 6K.3H J , 99H 2V/B Y C SCL SCL BOA 

430 

4609 

1C/B DLIFT SCM!C/4) 1XL tYL 1ZL »/plX| 

B04 

440 

4610 

I LOO FORMAT! 8X,I3,F10.4,2F10,3,7f10.4) 

BOA 

450 

4611 

C 

804 

460 

4612 

1110 FORMAT!Z//,47X,25HMlNG AlftLQAO COEFFICl ENTS,/,47X,25!IH*>, ftt ,18X 

, B04 

470 

4613 

2 6 OH WCL MCOI WCMP WCMR WCHY IKL , 

804 

4 BO 

4614 

3 40H LYL 121 DELTA SCALE *//» 

B04 

490 

4615 

4 3X.15HWITH LE SLCTiON, 5F10.5,3F10,6, ZE10.4,/, 

604 

500 

4616 

5 3X,15H NO LE SUCTION , 5F10.5,3F10,6•/,1X > 

B04 

510 

4617 

C 

004 

520 

461B 

C XXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXB04 

530 

4619 

c 

804 

540 

4620 

c 

804 

550 

4621 

c 

904 

560 

4622 

c 

B04 

5 70 

4623 

c * INITIALIZE * 

B04 

580 

4624 

c 

B04 

590 

4625 

NSPV - IFLG!3) 

304 

6Q0 

4626 

NCV = IFLG!4} 

B04 

610 

4627 

SPAN « MINGO!1J 

804 

620 

462 6 

MARFA- MIN GO < 6) 

B04 

630 

4629 

WMGC * MINGO!9) 

B04 

640 

4630 

BO TU- SPAN/2.0 

B04 

650 

4631 

C 

B04 

66 0 

4632 

AL FAR - ALFA/RAD 

B04 

670 

4633 

TANA - TAN!ALFAR J 

B04 

6 80 

4634 

COSA - l.O/SORT! 1.0«-TANA**2 1 

B04 

690 

4635 

SINA * TANA*COSA 

804 

TOO 

463 6 

tan v= -tan(0 .S4 Alfar) 

B04 

710 

4637 

TANVG S -TAN!1.5*ALFAR1 

804 

72 0 

463 6 

UNIT - 0.2 5/P IE 

604 

730 

4639 

UN IT G= -UNIT 

BO 4 

740 

4640 

C 

BO 4 

750 

4641 

C 

B04 

760 

4642 

C * SYMMETRIC OR UNSVMMFTRIC TEST ♦ 

804 

770 

4643 

C 

B04 

780 

4644 

NZERO» 1 

B04 

790 

4645 

IF (IFLG(U-l) 1 120,1130,1130 

804 

800 

4646 

1120 CONTINUE 

BD4 

810 

464 7 

. NSP02= NSPV/2 

B04 

B20 

464 6 

NTEST- NSPV-NSP02*2 

B04 

030 

4649 

NZEPO= NSP02 ♦ 1 

004 

840 

4650 

1130 CONTINUE 

80 4 

850 

4651 

C 

B04 

660 

4652 

C 

B04 

B70 

4653 

C 

B04 

880 

4654 

C * CALCULATE MATRICES VMAT(NV) J A MATING »NV) * 

B04 

690 

4655 

C 

B04 

900 

4656 

N V - 0 

BO 4 

910 

4657 

nm — a 

BO 4 

920 

465 B 

00 1420 KV 3 l»NC V 

B04 

930 

4659 

00 1390 JV=NZFRO ,NSPV 

BO 4 

940 

466 0 

NV= NV+1 

BO 4 

950 

4661 

C 

804 

960 

4662 

C 

B04 

97 0 

4663 

COSU 11= COSA 

B04 

980 

4664 

CO SI!2)= 0.0 

804 

990 

4665 

CDS l! 3 1= -STNA 

B04 

1000 

4666 

Y5PN= EN! J V,KV,2) 

804 

1010 

466 7 

C 

B04 

1020 

4668 

CALL CHDROT!YSPN,XLE,XC04,XTF,XMF,CMtCF \ 

604 

1030 

4669 

C 

804 

1040 

4670 

00 114 0 L- 11 3 

R04 

1050 

4671 

M- L *3 

B04 

1060 

4672 

CDS2U)" EN!JV,KV,K) 

B04 

1070 

4673 

1140 P(L)= EN!J V»KV.LI 

B04 

1080 

46 74 

C 

804 

1090 

4675 

CALL FLAPS!YSPN,XHE, P,C0S2I 

604 

1100 

4676 

C 

804 

ULO 

46 77 

CALL OflTPICOSl pCC52,VMATDP) 

BO 4 

1120 

46 78 

C 

B04 

1130 

4679 

VMAT(NV1= VMATDP 

90 4 

1140 

46 BO 

C 

80 4 

1150 

46 81 

c 

BO 4 

1160 

46 82 

no 1150 L=1,3 

00 4 

1170 

46 83 

1150 CO SI(LI“ C0S2CL) 

804 

1160 

46 84 

C 

60 4 

1190 

4685 

NG » 0 

804 

1200 

46 86 

no 1380 KG-tpNCV 

004 

1210 

4687 

00 1370 JG=NZERC,NSPV 

804 

1220 

4688 

NG= NG *1 

804 

1230 

46 89 

C 

B04 

1240 

4690 

1= J G ♦ 1 

604 

1250 

4691 

00 1160 L = L, 3 

BOA 

1260 

4692 

B( L 1 = EVUG,KG,L> 

804 

1270 

4693 
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1160 DIL) = FVI t *KG, L1 
C 

YSPN = 0(2) 

CALL CHOROT! Y5PA »XLE,XCQ4,XTE,XHE,CW,C F I 
CALL FLAPS! Y$PN ,XHE ,9 ,CQS2 I 
YSPN- 0(21 
C 

CALL CHOROT! YSPN,XLF,XC04.XTE.XHE,CM,CF I 
CALL FLAPS! YSPN. XHE.D,C0S2 I 
00 1170 L = l,3 
PWILI * P(LI 
0«U» - B1 L1 
1170 DW(L> - 0!U 
C 

CALL VORTEXIP*8*0tTANV,UNIT* V1.CQS2) 

CALL 00TP!CnSl.CCS2,SUMU 
C 

SUM1* SUM1*VI 
SUM2- 0.0 

c 

IF <IFLG(9>-1> 1190,1100,1180 
11R0 CONTINUE 

CALL REFLEC!0,ZHEIGT,ALFAR,CO$A| 

CALL REFLEC10,ZHE1GT,ALFAR,C0SA1 
C 

CALL VORTEX!P,6f 0,TANVG«UNITG, VI,C0S21 
CALL DOTP(COSl,CCS2.SUM3J 
C 

SUM 1= SUM 1 + SUM3*VI 
1190 CONTINUE 
C 

IF ( IFLGC11—11 1200,12 SO,1250 
1200 JGM* NSPV-JG+i 

IF CJGN-JG) 1210,12FO,1250 
DO 1420 KV=l,NCV 
no 1390 JV=NZERC,NSPV 
NV=* NV♦ 1 


CD SII II- C0S4 
CDS1!2 >= 0.0 
COSlf 3 >= -SINA 
Y$PN= EN!J V*KVf 2 I 
C 

CALL CHORDT{YSPN,XLE,KCD4,XTE,XHf,CV,CF) 

C 

TO 1140 L = l,3 
M- L*3 

CDS21L 1 = FNIJV,KV.HI 
1140 P{L)“ ENC J V.KV,LI 
C 

CALL FLAPS!YSPN,XHE, P,C0S2» 

C 

CALL 00TP(CnSl,CG$2,VMATO PI 
C 

VMAT(NV1= VMATDP 

c 

c 

00 U50 1 = 1,3 
1150 CO S HL I s C0S2IL1 
C 

NG* 0 

DO 1380 KG*l, NC V 
00 1370 JG=N2ER0,NSPV 
NG- NG*1 
C 

1= JG+l 
00 1160 L =1,3 
8(LI* EVIJG,KG,LI 
1160 H(L1* EV! I ,KG «L1 
C 

YSPN= BI 2 I 

CALL CHOROT! YSPN,XLE,XC04,XTE,XHE,CW.CF 1 
CALL FLAPS! YSPN , XHE ,8 *C0S2 1 
YSPN= D{2 I 

CALL CHOROT! YSPN ,XLE ,XC04 f XTE , XHE ,CW,C.F I 
CALL FLAPS! YSPN, XHE,D,C0S2 > 

00 1170 L=1,3 
PWltl = PUI 
BMIU * B! LI 
1170 0W(L> * DILI 
C 

CALL VORTEXIP ,B,D,TANV»UNIT , V!,C0S2J 
CALL DOTP(COSl,CCS2,SUMll 
C 

SUM 1= SUMl*VI 
SUM2= 0.0 

c 

IF ( IFLG!91-11 1190,1180,1190 
1180 CONTINUE 

CALL REFLEC!B,2HFIGT,ALFAR,COSAI 
CALL REFL€C!D,2HrrGT,ALFAR,cnSA} 

C 

CALL VORTEX(P,B,D,TANVG t UNITG, VI,C0S2I 
CALL DOTP(COSI,CC$2,SUM3J 
C 

SUM1= SUM 1 ♦ SUM 3*VI 
1190 CONTINUE 

c 

IF 1 IFLG!11-11 1200,1250,1250 
1200 JGM= NSPV-JG+l 

IF 1JGM-JG1 1210,1250,1250 
1210 CONTINUE 
l = JGH+l 
no 1220 L = 1 1 3 
8ILI = EV(JGM.KG,LI 


B04 

1260 

4694 

B04 

1290 

4695 

004 

1300 

4696 

904 

1310 

4697 

004 

1320 

4696 

B04 

1330 

4699 

BO 4 

1340 

4700 

604 

1350 

4701 

B04 

1360 

4702 

604 

1370 

4703 

804 

1380 

4704 

B04 

1390 

4705 

804 

1400 

4706 

BQ4 

1410 

4707 

004 

1420 

47 OB 

B04 

1430 

4709 

B04 

1440 

4710 

B04 

1450 

4711 

B04 

1460 

4712 

B04 

1470 

4713 

804 

1480 

4714 

B04 

1490 

4715 

804 

1500 

4716 

B04 

1510 

4717 

80 4 

1520 

471B 

BO 4 

1530 

4719 

604 

1540 

4720 

BO 4 

1550 

4721 

B04 

1560 

4722 

B04 

1570 

4723 

B04 

1560 

4724 

BO 4 

1590 

4725 

B04 

1600 

4726 

B04 

1610 

4727 

B04 

1620 

4728 

BO 4 

1630 

4729 

B04 

1640 

4730 

B04 

1650 

4731 

B04 

1660 

4732 

B04 

1670 

4733 

B04 

1600 

4736 

BO 4 

1690 

*735 

B04 

1700 

4736 

904 

mo 

4737 

B04 

1720 

4730 

B04 

1730 

4739 

BO 4 

1740 

4740 

BO 4 

1750 

4741 

BO 4 

1760 

4742 

B04 

1770 

4743 

B04 

1700 

4744 

BO 4 

IT 90 

4745 

B04 

1800 

4746 

BO 4 

1810 

4747 

804 

1820 

4740 

004 

1030 

4749 

804 

1040 

4750 

B04 

1850 

4751 

BO 4 

1060 

4752 

BO 4 

18T0 

4753 

BO 4 

1080 

4754 

B04 

1090 

4755 

804 

1900 

4756 

BO 4 

1910 

4757 

904 

1920 

475P 

B04 

1930 

4759 

004 

1940 

4760 

B04 

1950 

4761 

004 

1960 

4762 

BO 4 

1970 

4763 

B04 

i960 

4764 

B04 

1990 

4765 

904 

2000 

4766 

90 4 

2010 

4767 

904 

2020 

4768 

B04 

2030 

4769 

804 

2040 

4770 

B04 

2050 

4771 

904 

2060 

4772 

904 

2070 

4773 

604 

2000 

4774 

R 0 4 

2090 

4775 

804 

2100 

4776 

904 

2110 

4777 

804 

2120 

4778 

804 

2130 

4770 

904 

2140 

4700 

804 

2150 

4701 

604 

2160 

4782 

B04 

2170 

4703 

B04 

2100 

4784 

B04 

2190 

4705 

B04 

2200 

4706 

804 

2210 

4707 

BO 4 

2220 

4788 

B04 

2230 

4789 

BO 4 

2240 

4790 

BO 4 

22 50 

4791 

B04 

2260 

4792 

BO 4 

2270 

4793 

B04 

2200 

4794 

BO 4 

2290 

4795 

B04 

2300 

4796 

B04 

2310 

4797 

804 

2320 

479 0 

B04- 

2330 

4799 
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' 1220 01L J = FVC I ,KG,ll 
C 

YSPN* BIZ) 

CALL C HO R D TI YSPN.XLF,XC04,XTE,XHE t CW,CF I 
CALL FLAPS( YSPN ,KHF,6,C0S2 I 
YSPN = 0(2) 

CALL CHCIROTI YSPN,XlF,XC04,XTE»XMEtCH,CF I 
CALL FLAPS! Y$PN, XHE,D*C0S2 ) 

C 

CALL VORTFX(P,B,D,TANV,UNIT, Vt,C0SZ) 

CALL OOTPIC0Sl,CC$2,SUM2) 

C 

SUM2- SU»2*Vl 
C 

IF MfLG<9l-L> 1240,1230,1230 
1230 CONTINUE 

CALL R EFLECO, ZHE IGT, A LEAK ,COSA ) 

CALL REFLEC(0,ZHEIGT,ALFAR,COSAi 

C 

CALL VORTEXIP,B,C,TANVGtUN£TG, V|,C0S2) 
CALL DOTPIC0S1,CC52 »SUM4) 

C 

SUM 2= SUM2 ♦ SUM4*V[ 

1240 CONTINUE 
C 

12 50 CONTINUE 
C 

AMA T(NG,NV1= SUM1 + SUM2 
C 
c 

IF IFXECM15)- 1.0 1260,1360,1360 
1260 If (IfLGI101— 3> 1360,1270,1270 
1270 IF CNM-1! 12R0,l2€0,1340 
1280 LINES- LINES+4 
NM = LO 

IF IL INEX-l. INE S ) 1290,1300,1300 • 

1290 CALL PAGE 

LINES* LlNES+4 
1300 MR ITE 1KOUT,1020 I 
1310 LINES-LINE $+2 

IF ClINEX-lTNESl 1320,1330,1330 
1320 CALL PAGE 

LINES* IINFS+2 
1330 MRITE IK3UT,10301 
1340 L !NES = LINF S*1 

IF CLINEX-IINESI 1320,1350,1350 
1350 WRITE IKOUT,1040)JV,KV,NVtNG.VMATINV),AMAT 
1HC I),l»i,3),IDMII),1-1,31 
1360 CONTINUE 
C 
C 

1370 CONTINUE 
1360 CONTINUE 

c 

1390 CONT INUE 
C 

IF ( EXf CM 15 )** l . C ) 1400,1420,1420 
1400 IF I1FLGI10 )- 5 ) 1420,1410,1410 

1410 MRITE (KOUT,1000) 

LINES*LINES4 l 

C 

1420 CONTINUE 

C 

c 

L INES- L1NESO 

IF <LINEX-lINES) 14 30,1440,1440 
1430 CALL PAGE 
GO TO 1450 

1440 MR ITE UnUT, 1010) 

1450 CONTINUE 


* SOLVE FOR GAMA * 


NH= 0 

SUP- 0.0 
00 1470 J- 1,NV 
DO 1460 K=1,NG 
NM= NM♦l 

1460 $UP= SUP + DAS S t AMAT(K,J) ) 
1470 CONT INUE 

SCALE * FL0ATINM1 
SCALE * SUP/SCALE 
DO 1490 J * 1,NV 
DO 14*0 K = 1,NG 

14fl 0 AM A TlJ,K)= AMAT4J,KJ/SCALE 
1490 CONTINUE 

CALL OMATtNlAMAT,NV,OETFRM) 


N G = 0 

DO 1530 K=l,NCV 
DO 1520 J-NZ6RG, NSPV 
NG =NG+1 
C 

SUP = 0,0 
NV * 0 

DO 1510 KV=1.NCV 
no 1500 JV-NZERO ,NSPV 
NV-NV*l 

1500 SUP* SUP - VMATINVI*AMATtNV,NG) 
1510 CONTINUE 


B04 2340 

4800 

B04 2350 

4601 

604 2360 

4802 

904 2370 

4603 

SO4 2380 

4604 

804 2340 

4005 

604 2400 

4B06 

604 2410 

4807 

B04 2420 

4800 

BO4 2430 

4009 

604 2440 

4610 

804 2430 

4011 

804 2460 

4812 

804 2470 

4013 

804 2480 

4814 

B04 2490 

4815 

604 2500 

4016 

804 2510 

4817 

004 2520 

4810 

604 2530 

4819 

604 2540 

4620 

804 2550 

4821 

604 2560 

4822 

604 2570 

4823 

804 2500 

4024 

604 2590 

4825 

804 2600 

4826 

804 2610 

4627 

804 2620 

482 6 

804 2630 

4829 

B04 2640 

4830 

604 2650 

4831 

804 2660 

4832 

B04 2670 

4833 

804 2680 

4634 

B04 2690 

4835 

B04 2700 

4836 

B04 2710 

4837 

804 2720 

4836 

B04 2730 

4839 

BO4 2740 

4840 

BO4 2750 

4841 

BO4 2760 

4842 

B04 2770 

4643 

B04 2780 

4044 

804 2790 

4845 

( N G , NV ) , ( PM ( I), 1 • L, 3), ( BB04 2800 

4846 

B04 2610 

4847 

804 2B20 

4648 

804 2830 

4849 

804 2840 

4890 

604 2090 

4851 

B04 2860 

4652 

804 2070 

4*53 

BO4 2000 

4854 

804 2890 

4855 

B04 2900 

4856 

804 2910 

4857 

B04 2920 

48 56 

804 2930 

48 59 

B04 2960 

4660 

BO4 2950 

4861 

804 2960 

4862 

B04 2970 

4863 

B04 2980 

4864 

B04 2990 

4865 

BOA 3000 

4666 

B04 3010 

4867 

B04 3020 

4868 

B04 3030 

46 69 

BO4 3040 

4870 

B04 3050 

4871 

B04 3060 

48 72 

B04 3070 

48 73 

904 3080 

48 74 

B04 3090 

4875 

B04 3100 

40 76 

BO 4 3110 

4877 

904 3120 

4878 

BO4 3130 

48 79 

BO4 3140 

4880 

804 3150 

4081 

B04 3160 

4B 82 

904 3170 

4883 

BO 4 3190 

48 8 4 

B04 3190 

4685 

804 3200 

4886 

B04 3210 

48B7 

804 3220 

4686 

604 3230 

4869 

804 3240 

4890 

B04 3250 

4891 

904 3260 

4892 

B04 3270 

4893 

604 3280 

4894 

BO4 3290 

4895 

BO4 3300 

4 696 

BO 4 3310 

4897 

BO4 3320 

489 B 

B04 3330 

4899 

BO4 3340 

4900 

804 3350 

4901 

BO4 3360 

4902 

004 3370 

4903 

004 3360 

49 04 

604 3390 

4905 
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SUP * SUP/SCALE 
SUM = -SUP 

1520 EG!J,M* SUH/EXECKd) 
1530 CONTINUE 


IF 1IFLGUHU 1540*1 570* 1510 
1540 CONTINUE 

DO 1540 J*NZERC,6SPV 
JM« NSPVM-J 
00 1550 K»1*NCV 
1550 EG< JM* K ) «• FGIJ.KI 
1560 CONTINUE 
1570 CONTINUE 


* SOLVE FOR INDUCED VELOCITY MATRIX * 

00 1700 K * l * Nt V 
00 1650 J-NZEROfNSPV 
C 

I * J + l 
00 1580 L®i,3 
SUMSLILI* 0.0 
H(U= EV(J,K*L) 

1580 OIL)- EVCI *K|L) 

YSPN* 0(21 

CALL C KQRD TIYSP N•XLE.Xt04 ,X TE,XHE,Cw,C F) 
CALL FLAPS! YSPN*XME,8.C0S3I 
YSPN - Dt 2 I 

CALL CHDRDTIYSPN*XLE.XC04«XTE,XHE*CW,CFI 
CALL FLAPS! YSPN # XHE*D*C0S3) 

DO 1540 L * 1* 3 

1560 PI L ) “ 0*5*1 BlLlfDlLl ) 

C 

DO 1660 HG=i*NCV 
DO 1650 JG=11 NSP V 
C 

I = JG*l 
DO 1600 L*U3 
B< L I - EV(JG*KG,L) 

1600 □ ( L I = EV( I * KG i L ) 

YSPN" 812) 

CALL CHOROT! YSPN#XLE,XC04 * XTE,XHE,CW*CF ) 
CALL FLAPSI YSPN,XHE*8iCOS2 ) 

YSPN* 0(2) 

CALL CHOROTI YSPN,XLE*XC04tXTE*XHE f CW*CF > 
CALL FLAPS! YSPN* XHE,D,C0S2 ) 

C 

CALL VORTEX|P.B*D»TANV*UNIT v VI * C0S2) 

c 

00 1610 L«l,3 

1610 SUMSLIL)* SUM SL!Ll - EG(JG , KG)*VI*C0$2ILI 
C 

IF ((FLGi9)-lI 1440*1620*1620 
1620 CALL R EFIEC <8 « ZHEIGT»ALFAR ,CGSA) 

CALL REFLECIO,ZMEIGT*ALFAR,COSA) 

C 

CALL VORTEX(P*B*D,TANVG.UNlTG,VI,C0S2) 

C 

DO 1630 L * 1 * 3 

1630 SUM5L!L1* SUMSLIl> - EG(JG,*GI*VI*C0S2(L) 
1640 CONTINUE 
1650 CONTINUE 
1660 CONTINUE 
C 

nn 1670 l = i*3 

1670 WINDX(J,K,L) = SUMSU LI * E X EC M H 
IF (NZER.3-21 169C,1680,1680 
1680 M = NSPV +1 -J 

VV INDXIM,K,1)* YVINDX(JtKfl) 
VVIN0X!M # x,2>* - WIND X(J * K*2) 
VVIN0X(M,K,3)- YVINOX!J,K,3) 

C 

1640 CONTINUE 
1700 CONTINUE 
C 
C 

V 

C * WING COEFFICIENTS * 

C 

FACT 1* 2«O/WINGD(6) 

FACT2= FACT1/WING0!91 
FACT3* FACT1/WINGDIl) 

WPMO- 0.0 
WRMO= 0.0 
WYNO* 0.0 
WCL V = 0,0 
wc DV = 0,0 
WPHV* 0,0 
WRMV- 0.0 
WYMV* 0,0 
NM-C 

DO 1710 L*l,4 
1710 SUMVfL(LI- 0,0 

c 

c 

no 1990 J* 1,NSPV 

c 

YSPN* EN(J*U2) 

YA* A0SIYSPNI 
M= -1 


804 3400 

49 06 

804 3410 

4907 

804 3420 

4900 

804 3430 

4909 

904 3440 

4910 

B04 3450 

4911 

804 3460 

4912 

B04 3470 

4913 

004 3480 

4914 

004 3490 

49 IS 

804 3500 

4916 

BO4 3510 

4917 

B04 3520 

4910 

804 3530 

4919 

804 3540 

4920 

604 3550 

4921 

BO4 3560 

4922 

804 35T0 

4923 

604 3560 

4924 

604 3590 

4925 

804 360Q 

4926 

804 3610 

492 T 

804 3620 

4928 

604 3630 

4929 

604 3640 

4930 

B04 3650 

4931 

604 3660 

4932 

604 3670 

49 33 

004 3680 

49 34 

BO4 3640 

4935 

804 3700 

4936 

B04 3TI0 

4937 

804 3720 

49 3S 

904 3730 

4939 

BO4 3740 

4940 

B04 3750 

4941 

B04 3760 

4942 

B04 3770 

4943 

804 3780 

4944 

804 3790 

4945 

804 3600 

4946 

BQ4 3610 

494 T 

604 3020 

4948 

804 3830 

4949 

804 3640 

4950 

804 3850 

4951 

BO4 3860 

49 52 

004 3870 

49 53 

904 3880 

49 54 

604 3090 

4955 

804 3900 

49 56 

B04 3910 

49 57 

904 3920 

49 58 

B04 3930 

49 59 

B04 3940 

4960 

BO4 3950 

6961 

BO4 3960 

4962 

804 3970 

4963 

804 3980 

4964 

804 3990 

4965 

804 4000 

4966 

804 4010 

4967 

004 4020 

4960 

904 4030 

4969 

904 4040 

4970 

00 4 40 50 

4971 

804 4060 

4972 

B04 4070 

4973 

904 4000 

4974 

904 4090 

4975 

904 4100 

4976 

B04 4110 

49 77 

B04 4120 

4970 

Q04 4130 

49?9 

004 4140 

4980 

904 4150 

4981 

004 4160 

49 62 

904 4170 

4963 

004 4180 

4984 

904 4190 

4905 

904 4200 

4986 

R04 4210 

4987 

904 4220 

4989 

B04 4230 

4989 

804 4240 

4990 

B04 4250 

4991 

B04 4260 

4992 

904 4270 

499 3 

BO4 42 BO 

4994 

B04 4290 

4995 

804 4300 

4996 

804 4310 

4997 

804 4320 

499 B 

804 4330 

4999 

B04 4340 

5000 

004 4350 

5001 

904 4360 

5002 

804 4370 

5003 


BO 4 

4380 

5004 

B04 

4390 

5005 

804 

4400 

5006 

804 

4410 

5007 

904 

4420 

5008 

004 

4430 

5009 

60 4 

4440 

5010 

90 4 

4450 

5011 
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DO 1740 L-2,10 
IF (M> 1720,1740.1740 
1720 TEST- YA-E Yt (l I 

IF (TFST] 1730,1740,1740 
1730 M- L 
1740 CONTINUE 

IF (M-2) 1750,1760,1760 
1750 M - 2 
1760 Hi= M-1 

PATS = ( YA-EYE(Mm/<EYEfM)-EYE<Ml| ) 

XLE » FLFIMlI 4 ftATS*CELE (M)-ELE(MIU 
XHF = E HE 1 MU ♦ RATSMEHE ( Ml -6HH Nil! 
T4NLE- (ELF(M|-ELE(MllI ti 6YECHI-EYE(Mil I 
CQSL E- 5QRTI 1.0-«-TANLE**2) 


00 I960 K 3 1,NCV 
NM- NM* l 

COSKll* V V1 NO X ( J, K , 1) + COSA 
CD SI ( 2 ) - VVINDXIJ,K,2) 

COSH 3 >“ VV1N0X<J,K,31 - SI NA 

! » J*t 
OD 1770 L = I, 3 
B( L I = EVIJ,K,L> 

DILI* FV( I ,K,L ) 

1770 PrLl= 0,5*1 3 IL t *D(L) I 
YSPN 3 B f 2 I 

CALL FLAPS!YSPN,XHE,B,C0S3> 

YSPN - 0(2) 

CALL FLAPS(YSPN,>ME,0,C0S3) 

YSPN « PC2) 

SUMS - 0,0 
DO 1780 L=l,3 
CO 521L0(L)-B < L I 
SUMP * SUM8 * COS2(L)**2 
SUM 8 3 SOflT(SUMS) 
no 1790 L = 1» 3 
CDS2ILI - COS2(LI/SUM0 

CALL FLAPS! YSPN,XME, P,C0S3 I 

CALL CftOSP(COSl,COS2,COS3l 

SL If T- {EY(J,K|/C0S2<2))*EG(J,K) 


1780 

1790 


1800 


00 1800 L- 
SUMSl(Li* 


1,3 

SLIFT*CCS31U 


MlNGD(ll) 


MING0U2) 

< MAR M* SUM5L l 3) 
( YAP M*SUMSL 131 
( YARM*SUMSL(ll 


1810 

1820 

1 B30 

18 4 0 


XAfiM = Pill - 
YARM * PI 2) 

LARM * P(3J - 
HPMO * MPMG *■ 

HRMO = HRMO - 
MY MO » WYMO - 
SCTS * -SUMSL I 1 I 
IF (SCTSI 1810,1610,1820 

sets * a-o 

SNfC - CO SLf* SC T S 

IF (SUM SL(37) 1030,1840,1840 

SNFC = -SNFC 

CONT INUE 

HCLV* WCLV + SNFC 
HCDV = HCOV 4 SCTS 
XARK = XLE - HiNGO(LI) 

HP MV = HP M V 4 ( XARM* SNFC 
WRMV = HRMV - ( YARM*SNFC 
WYMV * HYMV - < YARM»SCTS 


4 £ ARM* SUMS L( 1 I 
+ IA RM* SUMSL12) 
- XARM*SUMSL(2 I 


} *EXECM 13 1 
) 

> 


2A«H*SCTS I 


DO 1850 La 1,3 

1850 SUMHULI- SUMHLU) ♦ SUM$L(L) 


IF ( EXECM 15 I- l ♦ Cl 1860,1950,1950 
1060 IF (1FLG(101-2) 1550,1070,1870 
1 970 IF (NM-W 1880, 1 980,1930 
1880 LINES 3 L INFS+4 

IF (LINEX-LINESI 1890,1900,1900 
1890 CALL PAGE 

LINFS 3 LINE S*4 
1900 HR ITE (KQUT,10501 
LINES- UNF542 

IF (LINEX-LINES I 1910,192 0,192 0 
1910 CALL PAGE 

LINES- LINFS+2 
1920 HR ITE (KOUT11060 I 
1930 L TNES- L INES*1 

IF (LINFX-L1NESI 1910,1940,1940 
1940 CPLlFTa -2.0*SUHSL(3I/ES(J,KI 

HRITE (KOUT,1070JJ,K,IP IT), 1 = 1 ,3 I ,£SU, K> ,C Pt_I FT,(C0S3( 
1VVINDX(J,K,(l,I-l,3l,EG(J,Kl 
1950 CONTINUE 


), 1 = 


i960 CONTINUE 

IF (EXECKt 15)- 1.01 1970,1 590,1990 
1970 (F (IFLG110J-2) 1990,19B0,I960 
1980 WRITE (KOUT.1000) 

L JNES s LINES41 
1990 CONTINUE 

SUMWL( 4 I* 0.0 
DO 2000 1-1,3 


004 

4460 

5012 

004 

4470 

5013 

904 

4480 

5014 

804 

4490 

5015 

B04 

4500 

5016 

B04 

4510 

5017 

904 

4520 

5018 

004 

4530 

5019 

904 

4540 

5020 

804 

4550 

5021 

904 

4560 

5022 

904 

4570 

5023 

804 

45 BO 

5024 

904 

4590 

5025 

BO 4 

4600 

5026 

004 

4610 

5027 

604 

4620 

5028 

604 

4630 

5029 

004 

4640 

5030 

604 

4650 

5031 

B04 

466 0 

5032 

804 

4670 

5033 

004 

4600 

5034 

804 

4690 

5035 

004 

4700 

5036 

804 

4710 

5037 

BO 4 

4720 

5036 

804 

4T30 

5039 

604 

4740 

5040 

BO 4 

4750 

5041 

604 

4760 

5042 

B04 

4770 

5043 

804 

4790 

5044 

B04 

4790 

5045 

BO 4 

4900 

5046 

B04 

4BI0 

5047 

BO 4 

4920 

5048 

904 

4630 

5049 

BO 4 

4840 

5050 

00 4 

4850 

5051 

904 

4660 

5052 

804 

4870 

5053 

804 

4080 

50 54 

804 

4690 

5055 

BO 4 

4900 

50 56 

904 

4910 

5057 

004 

4920 

5058 

804 

4930 

50 59 

BO 4 

4940 

5060 

804 

49 50 

5061 

BO 4 

4960 

5062 

804 

4970 

5063 

604 

4980 

5064 

B04 

4990 

5065 

604 

5000 

5066 

B04 

5010 

5067 

B04 

5020 

5068 

B04 

5030 

5069 

B04 

5040 

5070 

B04 

5050 

5071 

B04 

5060 

5072 

B04 

5070 

5073 

R04 

5080 

5074 

B04 

50 90 

5075 

B04 

5100 

5076 

BO 4 

5110 

5077 

B04 

5120 

5078 

BQ 4 

5130 

5079 

BO 4 

5140 

5080 

004 

5150 

5001 

B04 

5160 

5082 

BO 4 

5170 

50 83 

B04 

5180 

5004 

BO 4 

5190 

50 65 

904 

52 00 

5086 

904 

5210 

5087 

904 

5220 

50 00 

B04 

5230 

5089 

BD4 

5240 

5090 

BO 4 

5250 

5091 

B04 

5260 

5092 

B04 

5270 

5093 

BQ4 

5200 

5094 

BO 4 

52 90 

509 5 

B04 

53 00 

5096 

B04 

5310 

5097 

BO 4 

5320 

5090 

BO 4 

5330 

5099 

004 

5340 

5100 

604 

5350 

5101 

BO 4 

5360 

5102 

1604 

5370 

5103 

904 

53 80 

5104 

904 

5390 

5106 

004 

54 00 

5106 

804 

54 10 

5107 

604 

5420 

51 OB 

004 

5430 

5109 

804 

5440 

5110 

BO 4 

5450 

5111 

B04 

54 60 

5112 

B04 

5470 

5113 

B04 

5400 

5114 

804 

54 90 

5115 

B04 

5500 

5116 

BO 4 

5510 

5117 
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r> r» n n n 


2000 SUMNLI4)* SUMNL(41 ♦ SUMML(Ll**2 
SUMHLM)*= SQftT(SlFWH4H 
00 2010 L® 1» 3 

2010 SUMhL 4L »« SUMWL(L1/SUMML(4> 

C 

WCt =“FAC T1*SUM ML <41*1SUMWL <31*CO$A«-SUMWL(11*S1NAI 
WC Q=» FACT 1*SUNWL (4) *1 SUMML til *C0SA-SUMWL( 3 » *St NAI 
WPMO® WPM0*FACT2 
MRMG* WRM0*FACT3 
WYMO- WYM0*FACT3 

SNFC* FACT 1*( MCLV*COSA ♦ MCOV*S|NA I 
SCTS* FACT1* ( MC0V*COSA - MClV*5tNA I 
WPMV - MPMO ♦ PACT2*WPMV 
MRMV* WRMO ♦ FACT3*WfiMV 
MYMV® WYMO ♦ FACT3*WVMV 
MCLV® WCL - SNFC 
MCOV* WCD ♦ SCTS 
C 

IF (EXECKI 151-1.0 2020.2050,2030 
2020 LINES* LINES*3 

IF (LlNEX-UNES) 2030,2040,2040 
2030 CALL FACE 
GO TO 2050 

2040 MR 1TE IKOUT,1010! 

2050 CONTINUE 
C 

EX€CK(2 l a HCL 
EXECKI 31« WPMO 
EXECKI4 >* MRMO 
6XECM51* WYMO 
EXECKI6JM WCLV-bCtl 
6X€CK<7|»(MPMV-MPM01 
EXECM 8 1*1 WCDV-MCOI 
EXECKf9|~ WCO 
C 

IF IEXECK4 151-1.Cl 2060,2250,2250 
2060 CONTINUE 


* SECTION COEFFICIENTS * 

NJ- 0 
C 

no 2220 J=NZEftQ,NSFY 
C 

NJ *NJ * l 
C 

SPND* 0.0 
YSPN* EN<J « L,2 I 
C 

CALL CH0RDT<V$PN,XLE,XC04,XTE,XHE,CM,CF| 

C 

CORO* CM** 2 
C 

00 2070 L-1,4 

2070 SUMSL4LI- 0.0 
C 

no 2120 K = 1,NC V 
C 

COSIUI* VVINDXIJ,K,|| ♦ COSA 
COSK 2 1 * VVINDXI J,K,2| 

C0SK31* VVINOXI J,Kt3» - 5INA 
C 

I * J*1 
00 2060 L = 1,3 
HIL»° EVU,K,L> 

01 L 1* E V( I ,K , L I 

2080 PCD* 0.5*1 B { L) +0 ( L1 I 
YSPN ® 0121 

CALL FLAPS!YSPN.XHE,B,C0S3t 
YSPN *0(21 

CALL FLAP5IYSPN,*HE,D,COS3> 

YSPN * PI 21 
SUMP * C.O 
DO 2090 L = 1,3 
caS2(L>* n(u-9m 

20^0 SUMP ® SUM6 ♦ CnS2(L»**2 
SUMS =» SQR T(SUMS 1 
DO 2100 1=1,3 

2100 C0S2CL I * C0S2UI/SUM8 

CALL FLAPS(YSPN,XHE,P t C0S3l 
C 

CALL CROSP(COS1,CCS2,C053| 

c 

SL K FT=* EG( J,K ) /CCS2< 2 1 
C 

no 2110 L=l,3 

2110 SUMSL(L1= SUMSLm ♦ SLIF T*C0S3 (LI 
C 

XARM= EVU.K.I) ♦ 0.5*£Y[J f Kl*EV(J,K,4)/EV(J,K,5) -XC04 
5PM0= SPMU ♦ SLIFT*CnS3<3l*XARM 
C 

2120 CONTINUE 
C 

no 2130 L-1,3 

2130 SUM$L I 4) = SUM SL ( 4 I ♦ $UMSl(tl**2 
SUMSLI4I® 5QRTC SLKSL<4! ) 

00 2140 1=1,3 

2140 SUNSLILI* SUMSL4LI/SUMSL(41 
C 

SCI* SUMSL(4)*2.G/CW 
SPMO= SPMO*2.0/CGR0 
C 

If (NJ-l) 2150,2150,2200 

2150 LINES* LINFS4-4 


004 

5520 

5110 

604 

5530 

5119 

004 

5540 

5120 

604 

5550 

5121 

BQ4 

5560 

5122 

804 

5570 

5123 

BO 4 

5580 

5124 

904 

5590 

5125 

B04 

5600 

5126 

904 

5610 

3127 

B04 

5620 

5128 

604 

5630 

5129 

004 

5640 

5130 

BO 4 

5650 

5L3L 

804 

566 0 

5132 

004 

5670 

5133 

804 

5680 

5134 

604 

56 SO 

5135 

804 

5700 

5136 

804 

5710 

3137 

804 

5720 

5138 

804 

5730 

5139 

904 

5740 

5140 

90 4 

5750 

5141 

804 

5760 

5142 

604 

5770 

5143 

804 

5700 

5144 

904 

5790 

5145 

904 

5000 

3146 

804 

5810 

5147 

BO 4 

5820 

5148 

804 

5B30 

5149 

804 

5040 

5150 

604 

5890 

5151 

804 

5860 

5152 

B04 

5870 

5153 

804 

3060 

5154 

004 

5890 

5155 

604 

59 CO 

5156 

804 

5910 

5157 

BO 4 

5920 

5158 

804 

5930 

5159 

804 

5940 

5160 

B04 

5950 

5161 

80 4 

5960 

5162 

004 

5970 

5163 

004 

5980 

5164 

904 

59 90 

5165 

BOA 

6000 

5166 

604 

6010 

5167 

904 

6020 

5168 

604 

6030 

5169 

B04 

6040 

3170 

BOA 

6050 

5171 

BOA 

6060 

5172 

804 

6070 

5173 

B04 

6080 

5174 

BOA 

6090 

5175 

BOA 

6100 

5176 

BOA 

6110 

5177 

604 

6120 

5178 

604 

6130 

5179 

BOA 

6140 

3160 

B04 

6150 

5181 

004 

6160 

5162 

BO 4 

6170 

5183 

B04 

6180 

5184 

604 

6190 

5185 

B04 

6200 

5186 

604 

6210 

5187 

804 

6220 

5188 

BO 4 

6230 

5169 

604 

6240 

5190 

B04 

6250 

3191 

B04 

6260 

3192 

804 

6270 

5193 

004 

6280 

5194 

004 

6290 

5195 

604 

6300 

5196 

004 

6310 

5197 

804 

6320 

5196 

004 

6330 

5199 

004 

6340 

5200 

804 

6350 

5201 

004 

6360 

5202 

804 

6370 

5203 

604 

6380 

5204 

804 

6390 

5205 

004 

6400 

5206 

004 

6410 

5207 

604 

6420 

5208 

BOA 

6430 

5209 

B04 

6440 

5210 

604 

64 50 

5211 

004 

6460 

5212 

B04 

6470 

5213 

B04 

6490 

5214 

004 

6490 

5215 

604 

6500 

5216 

904 

6510 

521 T 

004 

6520 

5210 

604 

6530 

5219 

004 

6540 

5220 

004 

6550 

5221 

BO 4 

6560 

5222 

004 

6570 

5223 
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IF ILINEX-UNESI 2160,2170,2170 

§04 

*590 

522* 

2160 

CALL PAGE 

004 

*590 

5225 


LINES** LINES** 

904 

*600 

5226 

2170 

WR I T€ iK0ur,ioaoi 

BO 4 

6610 

5227 


LINES-LINE S*2 

004 

*620 

5228 


tF ILINEX-LINESI 2180,2190,2190 

004 

6630 

. 5229 

21 BO 

CALL PAGF 

004 

**40 

5230 


LINES** L I NE S* 2 

004 

6650 

5231 

21^0 

WRITE IKGUT,1090» 

004 

6660 

5232 

2200 

LINES* L IN E S*1 

BO 4 

6*70 

5233 


IF ILINEX-LINESI 21 80,2210,221 0 

B04 

6*00 

5234 

2210 

YOB* 6N(J,1,21/BCTU 

B04 

**90 

5235 


$PL - 0*5* SCL*CkZ0OTU 

804 

6700 

5236 


SLIFT* SCL*CW*EV<J,||/W1NGD!6> 

B04 

6710 

5237 


WRITE IKOUT, 1100U,YGB ,EN( J,1 ,2) 

,CM, SC L ,S PL t SLI FT , S PMO, < SllMSL I I 1, I B04 

*720 

5230 


1*1,31 

004 

6730 

5239 



B04 

6740 

5240 

2220 

CflNT INUE 

BO 4 

*750 

5241 



004 

67*0 

5242 



B04 

6770 

3243 


CALL INTERPIALFA ,ZHf!GT,NCL,WCD) 

004 

6700 

5244 



904 

6790 

5245 



004 

6000 

5246 


R.ATS= SQRTI WCOV**2 * WCLV**2 1 

504 

6810 

5247 


C0S3(11= < WCDV*CCSA - WC L V* SI N A 

I/RATS 004 

6020 

5240 


CO S3(21 a 0.0 

004 

6830 

5249 


CO$3131* (-WCLV*COSA - WCOV*SINA 

1/RATS 004 

6040 

5250 



004 

6850 

5251 


LINE S = LINE S*ll 

004 

6860 

5252 


IF 1LINEX-LINES1 2230,2240,2240 

B04 

6870 

5253 

2230 

CALL PAGF 

004 

6080 

5254 


L 1NES- LINES *11 

004 

6890 

5255 

2240 

WR ITE 1 KCIUT, 1110) bCL, WCO , WPHO,WRMO,WYMO,ISUMWL 4l1 ,1« 1,31, DETERM, SCB04 

6900 

5256 

lALE,WtLV,WCDV,WPPV,WRMV,WYMV,IC0S3(1 1 '1-1*31 904 

6910 

5257 


L INES-LINE S*10 

B04 

6920 

5250 



B04 

6930 

5259 



004 

6940 

52*0 

2 250 

RETURN 

604 

6950 

5261 


XXXXKX 

004 

*9*0 

5262 



B04 

697 0 

5263 



B04 

69 80 

52 64 


ENO 

B04 

6990 

52 6 5 


BO 5,RQ5 


BO 5 

10 

5266 



005 

20 

52 67 



BO 5 

30 

5260 



BOS 

40 

5269 

SUBROUTINE INTERPUlFA.ZHei&TfHCLCF.WCDCFI 

80 5 

50 

5270 



60 5 

60 

5271 

* TRM MULTIPLE-SURFACE VORTEX—LATTICE PROGRAM - REVISED 8 AUG.72 

*00 5 

70 

5272 

* PROCR AW 

DEVELOPED BY A. V.GOME2 (TftW SVSTENSI ON MARCH-WAY 1971 

* BO 5 

80 

52 73 



005 

90 

5274 

XXXKXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXKXXXXXX&05 

100 

5275 



B05 

110 

5276 

DIMENSION 

XFIJNI ill , CPFUNI31) 

B05 

120 

5277 

DIMENSION 

YSPANCZZI, XCORO<22), SPRESI22I 

BOS 

130 

5270 

DIMENSION 

SLIFTI22I,SDR AG 122),CMGMT<22I 

00 5 

140 

5279 

01ME NS ION 

ALIFTI421tADRAG!421,AM0MTI421 

80 5 

150 

5280 

DIMENSION 

FLAPNI221,FLAPX1221,AFLPN{42) ,AFLP X(42) 

005 

160 

5281 

DIMENSION 

5CLVI22),SPMVI22I,SCOV(22J,ACLV142),APMV1421,ACDVI421 

005 

170 

5282 


C 



B05 

160 

5283 

DIMENSION COSK 3 \ ,C0$2 (31 ,C0S3I3I 

805 

190 

52 84 

DIMENSION SUMSLI4I,B(3>,D<3!,PI3I 

BOS 

200 

5285 


005 

210 

5286 

COMMON/OATAOl/KIN ,KOUT ,KT1 ,KT2 ,LINEX ,LINES 

BOS 

2 20 

5287 

CO MMON /DA TA02/IFLGI151 .EXECMI51 ,RAO ,PIE 

005 

230 

5288 

COMMON/OATA05/WING0C15) ,EY|42,10) ,EC(42,1D) ,ESI42,10> 

805 

240 

5209 

*,EYE(101 ,ELF(101 ,ETE(10) ,EM6(10) ,EGI42,101 

BOS 

250 

5290 

*,EN(42,10,61 ,EV(42,10,6) ,VVINDX(42,10,31 

BO 5 

260 

5291 

COMMQN/OAT A06/YFF11,YFF12,YFF21,YFF22,YFF31,YFF32♦DELTF1,DELT F2 

005 

270 

5292 

* ,NGFLAP,NOAILR 

005 

2B0 

5293 


BO 5 

290 

5294 

DATA XFUN/ 0.0,0 ■ 11 0.2 t 0. 3,0. 4,0. 5 ,0. 6,0. 7,0.8 ,0.9,1.0/ 

BO 5 

3 00 

5295 


R05 

310 

5296 


BOS 

320 

5297 

1000 FORMAT!IX1 

005 

330 

5298 

1010 FORMAT!IX,//,1X1 

B05 

340 

52 99 


BOS 

350 

5300 

1020 FORMAT!41X * 3RHC H CRD HlSF PRESSURE DISTRIBUTION DETA IL,/,4LX,3S(IH*)B05 

3 60 

5301 

1*//»19X,19I2H* ),23HCH0P0 STATION (X-XLE)/C,1912H *),//,1?X, 

BO 5 

370 

5302 

2 UF9.5,//,19H 2Y/B SCL ,18I2H* l,29KCH0RC PRESSJRE ICPL 

BO 5 

300 

5303 

3-CPUI*l2L, I'M 2M *1,/,1X 1 

BO 5 

390 

5304 

1030 FORMAT!IX,13F9.5 1 

605 

400 

5305 


BOS 

410 

5306 

1040 FQRMAT!41X,41HSPANWISE SECTION LIFT DISTRIBUTION DETAIL,/.4IX,41(IB05 

420 

5307 

1H*1,//,33X,15HNITH LE SUCT!0N,16X,13HN0 LE SUCTION,17X,12MFLAP/A!LB05 

430 

5306 

2ER0N»//,5X,20H Y 2Y/B ,2(30H SCL SCO! SCMIB05 

440 

5309 

3C/4M, 30H fCN FCX FCH ,/, IX) 

005 

450 

5310 

1050 F0RM4TI5X,F10.3,ICF10.6 1 

BO 5 

460 

5311 


BOS 

470 

5312 

1060 FORMAT!IX,/,IX,14HIE0F PLOT FIL€,I3,1H| ) 

BOS 

480 

5313 


00 5 

490 

5314 

XXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXX XXXX XXXXXXXXXXXXXXXKXXXXXXXXXXXXX805 

500 

5315 


BOS 

510 

5316 


BO 5 

520 

5317 


BO 5 

530 

5310 


005 

540 

5319 

* INITIALIZE * 

BOS 

550 

532 0 


R0 5 

560 

5321 

IF (IFLGUll-1) 1630,1070,1070 

605 

570 

5322 

1070 CONTINUF 

BO 5 

5 BO 

5323 


BO 5 

590 

5324 

ZERO * 0.0 

BO 5 

6 00 

532 5 

Z ERO1 = 0.0 

005 

610 

5326 
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noon n n non on on onono 


ZER02- 0.0 


C 

NO 3 0 
Nt= l 
M2- 2 

MSPV * IfLG<3) 

NC V * IFLG! 6) 

C 

i«ec4 * i 
1W0RDI- 2 
l WQRD2* 10 
C 

SPAN * WlNGDI1) 

WAR EA* WINGD!6> 

WMGC - WlN&om 
BnTU * SPAN/2.0 

c 

86TAN* EXECK(1> 

WCL - EXECKC 2I 
WPMO * EXECK 13> 

WRHO * EXECM4I 
WYMO • EXECM5I 
C 

FACTl* 2*0/WINGO(6) 

FACT2- FACT1/WING0I9) 

FACT3* FACTl/WtNGOm 
C 

AL FAR* ALFA/RAO 
TANA = TAM(ALFAR I 
COSA * 1.0/SQRT!l.0*TANA**2l 
SINA b TANA*CQSA 
C 

NZEPQ- 1 

IF (IFLCm-il 1000,1090,1090 
10 BO CONTINUE 

NSP02- NSPV/2 
NTEST* NSP V-N $PQ2*2 
NZERO- NSP02 ♦ 1 
1090 CONTINUE 
C 

LINES* LINFS *3 

IF ILINEX-HNES) 1100,1110,1110 
1100 CALL PAGE 

LINES* LINES *3 
1110 WRITE (KOUT,1010I 


* SECTION COEFFICIENTS * 
NJ* 0 


NSPAN * 0 


DO 1390 J=NZERO,NSPV 

J2= J*l 
NJ *NJ 1 

NSPAN * NSPAN+1 

YSPN* ENIJ,l.21 

YA* ABSIYSPNI 
N* -l 

00 1140 L*2»10 
IF INI 1120,1140,1140 
1120 TEST* YA-EYEILI 

IF ITESTI 1130,1120,1140 
1130 L 
1140 CONTINUE 

IF IM-21 1150,116C,1160 
1150 M*= 2 
1160 Ml* N-1 

RATS* IYA-EYE(M LI)/IE YE(Ml-EYEOUI ) 

XL E * ELEIM1J ♦ RATS* L ELEI Ml-ELEI Ml1 I 

XT F - ETFIH1) ♦ PATS*( ETE I M)-€ TE IMU I 

XHE * EHEIHU ♦ PATS*! EHE (M> -EHE! HI J 1 

CW - XTE-XLE 
CF - XTE-XHE 
XC04* KLF ♦ CW*0.2S 

TANLF = (ELEINl-FLElMlM/IEYEINI-EYEIMm 
COSLE * SORTIl.O ♦ TANlE**2I 

CORO- CW** 2 


* SECT ION LIFT LOOP * 


C 

c 

1170 

C 

c 

c 


NX =0 

SPMO* 0*0 

DO 1170 1*1,4 
SUNSULI* 0,0 

DO 1220 K* 1 ♦NCV 

NX= NX*! 


COSU 11= VVtNOKlJ,K,l) 
C0S1I2)* VVINOX!J,K,2) 
COSII3)* VVINOX!J,K,3> 


♦ CO$A 
- SINA 


HO 5 

620 

5327 

BO 5 

630 

5326 

805 

640 

5329 

805 

650 

5330 

805 

660 

5331 

60S 

670 

5332 

805 

660 

5333 

BO 5 

6 90 

5334 

BOS 

TOO 

5335 

BO 5 

TlO 

5336 

BOB 

T20 

5337 

BOS 

T30 

5336 

BOS 

740 

5339 

BOS 

750 

5340 

BOS 

760 

S341 

BOS 

770 

5342 

BOS 

780 

5343 

BOS 

790 

5344 

BOS 

800 

5345 

BOS 

810 

5346 

BOS 

820 

5347 

BO 5 

830 

53*8 

BOS 

840 

5349 

BOS 

850 

5350 

BOS 

860 

5351 

BOS 

870 

5352 

BOS 

880 

5353 

BOS 

990 

5354 

BOS 

900 

5355 

BO? 

910 

5356 

BOS 

920 

5357 

BOS 

930 

5358 

BOS 

940 

5359 

805 

950 

5360 

eos 

96 0 

5361 

005 

970 

5362 

005 

980 

5363 

BOS 

990 

5364 

B05 

1000 

5365 

60S 

1010 

5366 

BOS 

1Q20 

5367 

905 

1030 

536B 

BO? 

1040 

5369 

90 5 

1050 

5370 

BOS 

1060 

5371 

905 

1070 

5372 

BOS 

1060 

5373 

BOS 

1090 

5374 

00 ? 

1100 

5375 

905 

1110 

5376 

BOS 

1120 

5377 

005 

1130 

53 78 

00? 

1140 

53 79 

805 

1150 

5380 

BOS 

1160 

5381 

005 

1170 

5382 

BO 5 

11 BO 

5383 

005 

1190 

53 84 

B05 

12 00 

5385 

005 

1210 

5366 

805 

1220 

5387 

BOS 

1230 

5389 

B05 

1240 

5389 

BO? 

1250 

5390 

805 

1260 

5391 

BOS 

1270 

5392 

BO 5 

1280 

5393 

BOS 

1290 

5394 

B05 

1300 

5395 

BOS 

1310 

S396 

BO 5 

1320 

5397 

BO 5 

1330 

5398 

BOS 

1340 

5399 

BO 5 

1350 

540 0 

BOS 

1360 

54 OL 

BO 5 

1370 

5402 

BO 5 

13 BO 

5403 

BO? 

1390 

5404 

BOS 

uoo 

5405 

BOS 

1410 

5406 

BD5 

1420 

5407 

80 5 

1430 

5406 

905 

1440 

5409 

BOS 

1450 

5410 

BOS 

1460 

5411 

B05 

1470 

5412 

R05 

1480 

5413 

BOS 

1490 

5414 

BOS 

1500 

5415 

BO 5 

1510 

5416 

60S 

1520 

5417 

BO? 

1530 

5410 

BOS 

1540 

5419 

BO 5 

1550 

5420 

BOS 

1560 

5421 

605 

1570 

5422 

B05 

1580 

5423 

BOS 

1590 

5424 

R05 

16 00 

5425 

BOS 

1610 

5426 

BOS 

1620 

542 7 

B05 

1630 

5428 

BOS 

1640 

5429 

BOS 

1650 

5430 

BOS 

1660 

5431 

BOS 

1670 

5432 
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C 

C 

C 

C 


C 


C 


c 

c 

c 


c 


c 

c 


c 

c 


c 



I - J*1 

605 

1680 

5433 


00 UR0 L* 1» 3 

BOS 

1690 

5434 


9(D- EV4J*K,L| 

605 

1700 

3435 


0(L)» EV(l*K,L> 

B05 

1710 

S436 

1180 

P<L|* 0.5* I BIO+DIC) J 

BOS 

1720 

5437 


YSPN = 0(21 

BOS 

1730 

5438 


CALL FLAP5<YSPN*)HE*fl*COS31 

BOS 

1740 

5439 


YSPN - 0(2? 

BOS 

1750 

5440 


CALL FLAPS!YSPN , >HE*0,C053> 

BOS 

1760 

5441 


YSPN = P<2) 

805 

1770 

5442 


SUM8 - 0.0 

605 

1780 

5443 


DO 1190 L- 1,3 

805 

1790 

5444 


CO S2(L ) - DID-BIL) 

BOS 

1800 

9445 

1190 

SUM 8 = SUM R ♦ COS2(U*»2 

805. 

1810 

5446 


SUM8 = SQR T{SUMS 1 

805 

1820 

5447 


DO 1200 L-1,3 

BO 5 

1830 

944 B 

120 0 

CO S 2 (L 1 = C0S2(U/SUM8 

805 

1940 

5449 


* 

805 

IB SO 

5450 


CALL FLAPS!YSPN,XHE*P,C0S3) 

805 

1860 

5451 



BOS 

1870 

5452 


CALL CFOSP(CaSi,CCS2tC0S3 ) 

BOS 

1880 

5453 



BOS 

1890 

5454 


2L I FT « EG CJ*K>/C0S2<2] 

BOB 

1900 

5455 



805 

1910 

3456 


SPRESCNXI* 2.Q*ZL IFT*COS3 (3) /EC < J,KI 

80 5 

1920 

5457 


XCOPD!NXt* (P(n-*IE)/CM 

80S 

1930 

5438 



B05 

1940 

5459 


DO 1210 L = l * 3 

80 5 

1950 

54 60 

1210 

SUMSL!L 1- SUMS!(LI + ZLIFT*C0S3 1 LI 

B05 

1960 

5461 



805 

1970 

5462 


XARM = PUI-XCO^ 

805 

1980 

5463 


SPMO = SPMO ♦ ZLIFT*C0S3m*XA«M 

BO 5 

1990 

3464 



805 

2000 

5465 

1220 

CONTinue 

805 

2010 

5466 



BOS 

2020 

5467 



BOS 

2030 

54 68 


FLAPN!NSPANl = -2.0*ZLIfT*C0S3 < 31/EC(J ♦ NCV> 

80 5 

2040 

5469 


FtAPX(NSPAM) = 2 *0*ZI ] F T *C0S3< L)/EC(J*NCV> 

BOS 

20 SO 

5470 



005 

20 60 

5471 


DO 1230 L = 1» 3 

60 5 

20 70 

5472 

1230 

SUM SL (41* SUMSL ( 4 > ♦ SUMSLU)**2 

B05 

2080 

3473 


SUMSL(4 ) = SORT! SLPSH4J) 

905 

2090 

5474 


no 1240 L = 1* 3 

805 

2100 

5475 

12 AO 

SUMSL(L 1 = SUMSL(L)/SUMSL<41 

BO 5 

2110 

5476 


SUM SL(4 1 = 2.0*SLMSLC4)/CM 

80S 

2120 

5477 



80 5 

2130 

5478 



BOS 

2140 

5479 


NX ■= NX + I 

BOS 

2150 

5480 


SPR ESINX 1 *■ 0.0 

BOS 

2160 

54B1 


XCORD(NX)* 1.0 

BOS 

2170 

5402 



B05 

2190 

5483 


CALL CURFlT(XCOftO,SPRES,ALIFT* NX * ZF RG l, ZER02 * N2*N2> 

80 5 

2190 

3484 



005 

2200 

5485 


YSPAN(NSPAN)- YSPN/0OTU 

805 

2210 

5486 


SLIfT(NSPANl—SUMSL(4| *(SUMSL(31*CO$A ♦ SUMSL(11•SINA1 

805 

2220 

3487 


SDRA G<NSPANl* SUPSL(41 *(SUMSLU)*C05A - SUMSU3>*5INA1 

805 

22 30 

5460 


CMOMT!NSPAN1= 2.0*SPMQ/C0RD 

BO 5 

2240 

5489 


SC TS - -SUMSL(4|*SUMSL(1? 

BOS 

2250 

5490 


IF (SCTSI 1250*1250*1260 

BO 5 

2260 

5491 

12 50 

SC TS - 0.0 

805 

2270 

5492 

1260 

SNFC - COSLE*SCT$ 

BOS 

22B0 

5493 


IF (SUMSL Oil 1270*12 80*12 BO 

80 5 

2290 

5494 

1270 

SNFC- -SNFC 

R0 5 

2300 

3495 

12 PO 

CONT1NUE 

BO 5 

23 LO 

5496 


SCLV(NSPAN1 = SL1FT(NSPANl - SNFC*COSA - SCTS*S1NA 

B05 

2320 

54 97 


SCDV(NSPAN) * 50RAG(NSPANl +$CTS*CaSA - SNfC*SlNA 

BO 5 

2330 

5498 


SPMV1NSPANJ * CMCMT(NSPANl - SNFC*CXC04-XLE 1 /CW 

BOS 

2340 

5499 



905 

2350 

5500 



BO 5 

2360 

5501 



805 

2370 

5502 


DXARC= XCDRDtNX 1/30.0 

BOS 

2380 

5503 



005 

2390 

5504 


DQ 1300 K=1* 31 

80 5 

2400 

5S05 



B05 

2410 

5506 


XARG - OXARG*FLOAT ( K- l) 

BO 5 

2420 

5507 


YARG - 0.0 

80 5 

2430 

5506 



BOS 

2440 

5509 


IF IK—11 1300* 13CC*1290 

BO 5 

2450 

5510 

1290 

CONTINUE 

BOS 

2480 

5511 



BO 5 

2470 

5512 



BO 5 

2480 

5513 


CALL CURVE(XCDRO,SPREStALlFT* XARG*YARG*DUMYK*NX *Nl1 

BO 5 

2490 

5514 



BOS 

2500 

5515 

1300 

CP FUN < K1- -VARG 

BOS 

2510 

5516 



BO 5 

2520 

5317 



80 5 

2530 

5518 


IF (J-NZEROI 1310,1310,1340 

805 

2540 

5519 

1310 

LINES** LINES ♦ 9 

BO 5 

2550 

5520 


IF (LINEX-LINESI 1320*1330,1330 

80 5 

2560 

5521 

1320 

CALL PAGE 

BOS 

25 yq 

5522 


LINES* LINES *9 

BOS 

25 80 

5523 

1330 

WRITE (KDUT, 10201 < XFUNII ) ,1*1 ,11) 

BOS 

2590 

5524 

1340 

IF ILINEX-LINES1 1320*1350,1350 

80 5 

2600 

5525 

1350 

LINES- LINES*1 

805 

2610 

5526 


W» ITE (ROUT, 1030)YSPANINSPANl *SLIFTlNSPANJ,CCPFUN(!1* 1=1,31,31 

805 

2620 

5527 



B05 

2630 

552 8 



005 

2640 

5529 


IF ( IFLGt 13 )- 11 1390,1360*1360 

BO 5 

2650 

5530 

1360 

CONTINUE 

80 5 

26 60 

5531 



BOS 

2670 

5532 


00 1370 K = l*3l 

BOS 

2690 

5533 


XARG = OXAR G*FLOA T(K- 1 ) 

80 5 

2690 

5534 

1370 

MRITEIKT2)IREC4*I WORD 1 * XARG*CPFUNIK) 

805 

2700 

5535 


tPEC4 = IREC4 ♦ 1 

BOS 

2710 

5536 


IF (J-NSPV) 1390*1380 *1380 

BOS 

2720 

55 37 

13 0 0 

END FILE KT2 

80 5 

2730 

5538 
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oo o n n o o n o n r> on noon non o o <*> on or 1 ' 


irec 4- i 

L INES= LINES *2 
IFLCI15}- IFLGI151 *1 
WRITE IKQOT, 1060HFLGI15) 


390 CONTINUE 


LINES* LlNES+3 

IF ILINEX-LINE SI 1400,1410,1410 
1400 call page 

LINES* LINES+3 
GO TO 1420 

1410 WRITE <KDUT,101Q» 

1420 CONTINUE 


CALL CUREITIYSPAS, 
CALL CURE ITIYSPAN, 
CALI CURE 1TIYSPAK, 
CALL CURFITIVSPAK, 
CALL CURFITIYSPAN, 
CALL CURE IT{YSPAN, 
CALL CURFITIYSPAN, 
CALL CURFITIYSPAN, 


SLIET.ALIFT, NSPAN.ZER01,1ERQ2,N2,N2» 
SORAG , AORAG, N$PAN,2EftOt,ZER02,N2, N2I 
CMOHT,AMOHT, NSPAN,ZEftOl,ZER02*N2,N2> 
fLAPN,AFLPN, N$PAN,ZER01,ZER02,N2+N2) 
fLAPX,AFLPX, NSPAN,ZEftOl,ZER02*N2, N2I 
SCLV, ACLV, NSPAN,ZER01,ZER02,N2,N2> 
SCOV, ACOV, NSPAN,ZEROl,ZER02,N2,N2J 
SPNV, APNV, NSPAN.ZEftOl,ZER02*N2,N2I 


DELTAB = 1,0/20.0 
WCLCF * 0.0 
WCDCF * 0.0 
SUNSS * 0.0 

DO 1580 J*i,4l 

YOB* 0ELT4B4FL0ATIJ-ll - 1.0 

YOBC» YOB 

YSP N = YOBG+BOTU 


IF INZERO-11 144C,1440« L430 
1430 YGB= ABSI YOB I 
1440 CONTINUE 


CL = 0.0 
CD = 0.0 
CM * 0.0 
CL V * 0.0 
CDV * 0.0 
CPV - 0.0 
FCN * 0,0 
FCX * 0.0 

TEST- A8SI YOBI - 0.999 
IF (TEST) 1450,1460,1460 
1450 CONTINUE 

CALL CURVEirSPAN,SLlFT,ALlfT, YOB,CL, OUHYK,NSPAN,Nil 
CALL CURYE IY$PAN,SORAG•AORAG, YOB,CO, DUNYK,N$PAN,Nl) 
CALL CURVE<YSPAN,CMOMT,ANOHT, YOB,CM, OUNYK,NS PAN,NU 
CALL CURVEIYSPAN,FLAPN,AFLPN, YOB,FCN,OUNYK,NSPAN,N1) 
CALL CURVEIYSPAN,FLAPX,AFLPX, YOB,FCX,OU*YK,NSPAN,Nl) 
CALL CURVEIVSPAN t SCLV, ACLV, YOB,CLV,DUHYK,NS PAN,Nll 
CALL CUR VEIVSPAN, SCOV, ACOV, YOB,CDV,DUNYK,NS PAN,Nil 
CALL CURVE(VSPAN, SPMV, APNV* YOB,CPV,OU*YK,NSPAN,N1) 

1460 CONTINUE 

CALL CHOROTIYSPN,*LE,XC04,XTE,XHE,CW,CF) 

FCM - -FCN/4.0 

CL Cl = CL*CW 
CDC1 “ CO*CW 

cwci * cv 

IF {J-ll 14R0,i4E0,l4T0 
1470 WCLCF - WCLCF ♦ OELTAB*(CLC1*CLC2I 
WCDCF = WCDCF 4 DELTAS*!C0C1*CDC2J 
SUMSS = SUNSS ♦ OELTAB*!CwCl*CWC21 
14BQ CLC2 * CLC1 
CDC2 =5 COCl 
CWC2 - CWCI 


IF IJ-ll 1490,145C,1520 
149D LINES- LINF S*7 

IF IL tNEX-LINESI 1500,1510,1510 
1500 CALL PAGE 

LINES- LINES+7 
1510 WRITE IKOUT.1040) 

1520 IF (LINEX-IINESI 1500,1530,1530 
1530 LINES* LINFS ♦! 

NO FLPX = NOFLAP ♦ NOAILR 
IF (NOFLPX) 1540,1540,1550 
1540 WRITE IKOUT,1050 IYSPN,YOBO.CL*CD.CM,CLV,CDV*CPV 
GO TO 1560 

1550 WRITE <KOUT.i05CIYSPN,YOBO,CL,CO,CM,CLV,CDV,CPV,FCN,FCX,FCM 
1560 CONTINUE 


IF (IFLGI14I-1) 1580,1570,1570 

1570 WRITEIKT2)IREC4,IW0PD2,YOBQ,CL,CD,CM,FCN,FCX,FCM,CLV,CDV,CPV 


B05 

274Q 

5539 

BO 5 

2750 

5540 

BO 5 

2760 

5541 

BO 5 

2770 

5542 

BOS 

2730 

5543 

BO 5 

2790 

5544 

BO 5 

2800 

5545 

BO 5 

2B10 

5546 

BOS 

2620 

3547 

BOS 

2830 

5548 

BO 5 

2840 

5549 

BO 5 

2850 

5550 

BO 5 

2860 

5551 

BO 5 

2670 

5552 

B05 

28B0 

5533 

605 

2890 

5554 

B05 

2900 

5555 

BOS 

2910 

5556 

BO 5 

2920 

5557 

60 5 

2930 

5558 

603 

2940 

5559 

BOS 

29 SO 

5960 

60S 

2960 

5561 

60S 

2970 

5562 

BO 5 

2900 

5563 

605 

2990 

5564 

BOS 

3000 

5565 

BOS 

3010 

5566 

B05 

3020 

5567 

BOS 

3030 

5560 

BOS 

3040 

5569 

BQ3 

30 SO 

5570 

BO 5 

30 60 

5571 

BOS 

3070 

5572 

BOS 

3080 

5573 

BOS 

3090 

5574 

BOS 

3100 

5575 

BOS 

3110 

5576 

BO 5 

3120 

5577 

BOS 

3130 

5576 

BOS 

3140 

5579 

B05 

31 SO 

5580 

80S 

3160 

55 Bl 

005 

3170 

5582 

BOS 

3180 

55 83 

BOS 

3190 

5584 

BOS 

32 00 

5365 

BO 5 

3210 

5566 

B05 

3220 

5567 

BO 5 

3230 

5568 

BOS 

3240 

5589 

BOS 

3250 

5590 

BOS 

3260 

5591 

BOS 

32 70 

5592 

80S 

3280 

5593 

BOS 

3290 

5594 

BO 5 

3300 

5595 

B05 

3310 

5596 

BOS 

3320 

5597 

BOS 

3330 

5598 

605 

3340 

5599 

805 

3350 

5600 

BOS 

3360 

5601 

BOS 

33 70 

5602 

BOS 

3390 

5603 

BOS 

3390 

5604 

BOS 

3400 

5605 

BOS 

3410 

5606 

BOS 

3420 

56 07 

BOS 

34 30 

5608 

BOS 

3440 

5609 

BOS 

3450 

5610 

BO 5 

3460 

5611 

B05 

34 70 

5612 

80S 

3490 

5613 

BOS 

3490 

5614 

BOS 

3500 

5615 

605 

3510 

5616 

BO 5 

3520 

5617 

BOS 

3530 

5618 

B05 

3540 

5619 

005 

3550 

5620 

60S 

3560 

5621 

BOS 

3570 

5622 

305 

3590 

5623 

BOS 

3590 

5624 

805 

3600 

5625 

305 

3610 

5626 

BOS 

3620 

5627 

BOS 

3630 

5628 

BO 5 

364 0 

5629 

BOS 

3650 

5630 

BOS 

3660 

5631 

BOS 

3670 

5632 

BOS 

36S0 

5633 

BO 5 

3690 

5634 

B05 

3700 

5635 

80S 

3710 

5636 

BOS 

3720 

5637 

BOS 

37 30 

5636 

BOS 

3740 

3639 

605 

3750 

5640 

BOS 

3760 

5641 

80S 

3770 

5642 

80S 

3780 

5643 

BOS 

3790 

5644 


£ 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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1580 CONTINUE 
C 
C 

MCLCF - k(Ct 
WCOCF * WCOCF/SUMSS 
C 

c 

LINES* LtNES*3 

IF IL1NEX-L tNE SI 1540)1600*1600 
L590 CALL PAGE 

LINES* LlNES+3 
1600 WftITS (KOUT t 10101 
C 

IF <1FLG(14)-1) 1620,1610,1610 
1610 END FILE K T2 

LINES- LINES ♦2 
IFLCI 151= IFLG< IS) +-1 
WRITE IKOUT, 1060 IIFLG!151 
1620 CONTINUE 
C 

c 

c 

1610 RETURN 
C XXXKXX 

C 
C 

END 


805 3800 
805 3810 
805 3820 
805 3630 
605 3860 
605 3850 
B05 3660 
BO5 3870 
B05 3880 
BO5 3890 
805 3900 
805 3910 
805 3920 
805 3930 
805 3940 
805 3950 
805 3960 
805 3970 
805 3980 
805 3990 
805 4000 
805 4010 
605 4020 
BO5 4030 
805 6040 
805 4050 
605 4060 


FOR B06,806 


806 
B06 
806 
B06 
BO 6 
B06 
*806 
*006 
806 

XXXXXXXXXXXXXXXXX*XXXXXXXXKXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXB06 

00 6 

YSPAN(221 606 

AlFALI 20 ) , WINGCLI21I 806 

CLAU32).CLflU2),RCLI2,32) ,RCMI2,32) *RYSPAN{ 32) 806 

SCLV|22),$PMV(22> ,SCOVI221.ACLV!42 I,APMV142 I,ACDVl42) B06 


SUBROUTINE OLtNERIALFA,ZHEIGT,ALFAL,WtNGCL»NjOBLl 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED B AUG.72 

* PROGRAM DEVELOPED RY A.Y.GOME2 (TRW SYSTEMS) ON MARCH-MAY 1971 


DIMENSION 
ntMENSION 
DIMENSION 
Dt MENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


DIMENSION 
DIMENSION 
DIMFNSION 


RCD12,32J rRCLV(2,32),RC0V(2,32),RPMV(2t 32) 
WCLV5I21,WCDVS(2),WCPVS(21, WCPOS12),WCDISI21 
$11FTI 22),SOPAG(22),CMQMT(22) 

ALIFU421 , ADRAG (42) ,AMOMT<42) 

FLAPNI221,FLAPX(22),AFLPN(42), AFLPXC42► 

RCFL12,32), RCFD12,32) 

C051 ( 3) ,CDS2 (3) ,COS3<3) 

SUMSL(4),BI 3)*D(3),PI3) 

WCD3! 3) , WCL3 (3 ) ,WCL4I3> 


COMMnN/DATAOl/K in ,pout 

COMMON/DATA02/IFLGII5) 
COMMON/DA TA05/WINGDC15) 

*,EYF!10) ,ELf(10) 

+,ENI42,10,6) ,EV(42flO,6) 


, LINE X 
, RAO 
,EC(42 *lD ) 
,EHE(10) 


,LINES 
, P I E 


806 
BO 6 
606 
806 
BO 6 
806 
B06 
006 
BO 6 
606 
806 
BO 6 
BO 6 

,ESI 42,10) 606 

,EG(42,10) 006 

♦ WIN 0X142,10*31 B06 

COMMON/OAT A06/YFF11,YFF12,YFF21,YFF22 * YFF311 YFF32 « OELTF1» DELT F2 806 

* ,NDFLAPtNOAI LR 30& 

COMMON/OATAO7/LFLAP,L0RAG r06 

006 
806 
B06 

FORMAT! IX) 806 

FORMAT! IX,//,IX) 806 

B06 

1020 FORMAT!42X, 35HLI NEAR!ZFD SOLUTION WITH LE SUCTIDN/42X35( IH* I//25X, 806 


,KT1 ,KT2 
,F XECKI15 I 
,FY(42,101 
♦ ETEI10) 


1000 

1010 


MCL 


1 60H ALFA ALFARO 

2 10H CMY ,/,45X,40H 

3,25X.2F10.3,F10.4,4f10.5,///*!X) 


1030 FORMAT!30X,50H 

1 1OH SCM! 1/4),/,1X 


2Y/B 


WCl 

SLOPE 


SCLAi 


CMP 

SLOPE 


SCLB 


CMR , B06 
SLDPE//B06 
806 
806 

SCL , BO 6 
006 
60 6 
00 6 
806 

SUCTION,17X,12HFLAP/AILB06 
SCL SCDI SCM!006 

,/,lX> B06 

806 
B06 

WCDI = ,F10.B06 
SUCTION,4XBO5 
B06 
806 

C0EFF1CIENTS,/,4IX,3 71LH*), 80 6 
SUCTION,//, 806 

WCM!C/4l I ,/, IX ) 806 

BOS 
906 

1 R06 

906 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXBOt 

006 
806 
BO 6 
006 
006 
B06 

N0= 0 806 

Nl- l 806 

M2* 2 00 ^ 


1040 FORMAT!30X, F10.3, 5F10.5 ) 

1050 FORMAT!34K,15HWITH LF SUCTI0N,16X,13HN0 LE 
1ER0N,//,5X,2OH Y 2Y/& ,2!30H 

2C/4H, 3 OH FCN FCX FCH 

1060 FORMAT!5X,F10.3,10F10.6) 

1070 FORMAT!IX,/,17X,1€HWITH LE SUCTION ,4MWCL-,F10.5,8H / 

15,12H f WCM(C/4I*,F10.5, 7H / L/D*,F10.5,/,18X t 13UNO LE 
2* 4X,F10.5,2H /,6X,F10.5,2H /,10X*FIO.5,2H /,5X,F10.5 ) 

10 RO FORMAT!4IX » 37HLI REAR I ZED SOLUTICN WING 

1 //,44X,15HHITH LE SUCTION,17X,13HN0 LE 

2 30X.5HALFA , 2 (30H WCL WCD 

1000 FORMAT! 25X, F10.3, 6F10.4 ) 

1100 FORMAT!IX,/,IX,14H!EOF PLOT FILE,I3*1H) 


* INITIALIZE * 


10 

20 

3D 

40 

50 

60 

70 

80 

90 

LOO 

110 

120 

130 

140 

ISO 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

2 70 
290 
290 
300 
310 
320 
330 
340 

3 50 
360 
370 
360 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
5 30 
540 
550 
560 
570 
590 

5 90 
600 
610 
620 
630 
64 0 
650 
660 

6 70 
690 
690 
700 
710 
720 

7 30 
740 
750 
760 


5645 

5646 

5647 
5640 

5649 

5650 

5651 

5652 

5653 

5654 

5655 
56 56 

5657 

5658 
3659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 
3667 
5660 

5669 

5670 

5671 


56 72 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 
5681 
56 82 
5683 
5664 
560 6 
5686 
5607 
3688 
56B9 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 
569 B 

56 99 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 
5710 

5719 

5720 

5721 

5722 

5723 

5724 

5725 
572 6 
5727 
572 8 

5729 

5730 

5731 

57 32 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 

5741 
6742 

5743 

5744 

5745 

5746 

5747 
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ri n rtn r»onoon r» n o n n n o ooooon 


N$PV = If LG( 31 
NCV - IFIGtM 
NCLFlG a 1 
C 

ZERO * 0.0 
ZERO 1= 0.0 
ZER02* 0.0 
C 

SPAN = WINGCHU 
WAREA- WINGOI6I 
WMGC - WING0C9) 

B0TU - SPAN/2.0 
C 

FACT1* 2.Q/HINGD<41 
FACT2= FACT1/WINGD<9) 

FACT3= FAC Tl/WINGOUI 
5K IN PC * EXECM101*2.0 
0ELALF* EXECM121 
EXECM 151 « 2.0 
C 

NZER0* 1 

tF I IFLGII )-lJ 1110.1120.1120 
1110 CONTINUE 

NSP02* NSPV/2 
NTEST* NSPV-NSP02*2 
NZERQ* NSP02 ♦ 1 
1120 CONTINUE 


* LINEAR UFO LIFT TVO PASS LOOP * 

DO 1*20 HCLC *1.2 

IF INCLFLGJ 11 30.UA0.L140 
1130 AL FA= ALFA * OELALf 

CALL OL IFT( AIFA.ZHEIGTI 

GO TO 1150 
1140 NCLFLG* -1 

8STAH= EXECM 1 ) 

NCL = EXECM2) 

VP MO = EXECM31 
WR MO = EXECM4I 
WYMO - EKECKI5 I 

1150 CONTINUE 


AL FAR * ALFA/RAO 

TANA * TAN1ALFARJ 

COSA * 1.Q/SORT<1.0+TANA++2) 

SINd » TANA*COSA 

WCPOSI NCLC i~ EXECM3I 

WCLVSINCLC 1= EXECM 6) 

VCOVSINCLC > 3 EXECM fil 

WCPVSINCLCJ- EXECKI7) 

VC 31 SI NCLC I- EXECM 9) 


* SECTION COEFFICIENTS * 
NJ - Q 


NSPAN - 0 


on 1330 J=NZERO,NSPV 
C 

J2 3 J+l 
NJ=NJ* l 

NSPAN = N SP A N♦1 
C 

YSPN* FNU.1.2J 
C 

YA= AflSfYSPNI 
N » -l 
C 

no 1180 La2 t io 

IF (MI 1160.1180,11*0 
1160 TEST= YA-EYFIL1 

IF (TEST! 1170.1170.1190 
1170 Ha L 
1180 CONTINUE 

IF <M-2» l190.12CC«12 00 
119Q M-= 2 
1200 M 1 = M-I 
C 

FATS 3 < YA-EYE (MU)/ (EYE (MI-EYE <!*M > 

XLE = FLEIM1I RATS* ( E Lf l MI-E L E ( Ml I ) 

XTF = ETEIMU ♦ RATS*( E TE ( M)-E TE < Ml I ) 

THE = EHElMi) ♦ RATS*( EHE(MI-EHE(Ml) ) 
CW 3 XTE-XLE 

CF = XTE-XHE 

XC04= XLE ♦ C**C.25 

TANLF = (ELF(M)-EL£(Ml II/(EYE(MI-EYE(Ml II 
CDSLE 3 SQRT(l.0*TANLE*+2) 

C 

CORO- CV**2 
C 


00 6 

770 

574B 

806 

7 BO 

5749 

006 

790 

5750 

006 

600 

5751 

806 

910 

5752 

606 

020 

5753 

806 

930 

5754 

806 

040 

5755 

806 

050 

5756 

eo6 

060 

5757 

BO 6 

070 

5758 

006 

090 

5759 

806 

090 

5760 

B06 

900 

5761 

006 

91Q 

5762 

BO 6 

920 

5763 

B06 

930 

5764 

BO 6 

940 

5765 

B06 

950 

5766 

BO 6 

960 

5767 

BO 6 

970 

5769 

B06 

960 

5769 

BO 6 

990 

5770 

BO 6 

1DOO 

5771 

006 

1010 

5772 

806 

1020 

5773 

B06 

1030 

5774 

BO 6 

1040 

5775 

B06 

1050 

5776 

906 

1060 

5777 

BOA 

1070 

5770 

BQ6 

1060 

5779 

006 

1090 

5760 

B06 

1100 

5701 

B06 

1110 

5782 

B0 6 

1120 

5703 

906 

1130 

57B4 

BOA 

1140 

5785 

806 

llSO 

5786 

BO 6 

1160 

5787 

606 

1170 

5788 

B06 

1180 

5769 

606 

1190 

5790 

606 

1200 

5791 

606 

1210 

5792 

BO 6 

1220 

5793 

806 

1230 

5794 

606 

1240 

5795 

006 

1250 

5796 

B06 

1260 

5797 

BO 6 

1270 

5796 

606 

1280 

5799 

006 

1290 

5 BOO 

006 

1300 

5601 

606 

1310 

5802 

BO 6 

1320 

5803 

BOA 

133 0 

5804 

BOA 

1340 

5805 

606 

13 50 

5806 

B06 

1360 

5807 

BO 6 

1370 

5808 

606 

1380 

5809 

BD6 

1390 

5810 

606 

1400 

5811 

BO 6 

1410 

5812 

BOA 

1420 

5813 

BOA 

1430 

5B14 

606 

1440 

5815 

B06 

1450 

5816 

BO 6 

1460 

5817 

B06 

1470 

5BIB 

606 

1480 

5B19 

006 

1490 

5B20 

806 

1500 

5821 

606 

1510 

5 822 

B06 

1520 

5B23 

BOA 

1530 

5824 

BOA 

1540 

5825 

606 

1550 

5826 

BOA 

1560 

5827 

606 

1570 

5828 

BOA 

1580 

5829 

606 

1590 

5830 

806 

1600 

5831 

906 

1610 

5632 

B06 

1620 

5833 

BOA 

1630 

5834 

606 

1640 

5835 

906 

1650 

5836 

BOA 

1660 

5837 

BOA 

1670 

5838 

606 

1600 

5839 

906 

1690 

5840 

006 

1700 

5841 

BOA 

1710 

5842 

006 

1720 

5843 

BOA 

1730 

5844 

80 6 

1T40 

S845 

B06 

1750 

5046 

906 

1760 

5047 

BOA 

1770 

5840 

R06 

1760 

5849 

606 

1790 

5850 

606 

1900 

5851 

806 

1810 

5852 

606 

1820 

5853 
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o o no 


* SECTION LIFT LOOP * 


SPMOa 0*D 
C 

00 1210 1*1,4 
1210 SUMSL1U* 0.0 
C 

DO 1260 K »1, NC V 
C 
C 

C051III* VVINOXIJiKtll ♦ CCSA 

C0S1(2J= VVlNDXtJ,K,2I 

CO Sl< 3 ) * WINDXI J,K,31 - StNA 


C 

I = J*l 
00 1220 1*1*3 
Bill- EVCJ,K,LI 
DC L I - EVC I,K,L C 
1220 PIL) = 0.5* I B(L!*0(L► I 
YSPN « 8C2I 

CALL FLAPSCYSPN,XKEiB,C0S3} 

YSPN * DC 2 I 

CALL FLAPS!YSPN,>H€,D»C0S3) 

YSPN - P\2) 

SUMB - 0.0 
OD 1230 L = 1,3 
C0S2CL I- DUI-RILI 
1230 SUMS = SUN8 ♦ COS2(LI+*2 
SUMP = SORTCSUN0] 
no 1240 L*1|3 

L240 C0S2C L I - COS2IU/SUM6 
C 

CALL FLAPS!YSPN,>H£,P,C0S3) 

C 

CALL CROSPICOSl,CCS2,COS3I 
C 

ZL I FT= FGIJ,K \ 

C 

DO 1280 L=l,3 

1250 SUN SL I L I = SUMSLIII ♦ ZL IF T*C0S3 l L) 

C 

XARH'a PI 1 I-KC04 

SPMO- SPMO ♦ ZLIFT*C053C3l*XAR* 

C 

1260 CDNT!NUE 
C 

c 

FLAPMNSPANI = -2.0*ZLIFT*C0S3(3|/EC(J,NCYI 
FLAPXiNSPANI = 2.0*ZLIFT*COS3f n/EC( J,NCVI 

c 

on 1 2T0 L* 1 ♦3 

1270 SUMSL(41 * SUMSLCM ♦ SUM5LILI**Z 
SUMSLI4J* 5QRTCSLMSLC4I) 

DO 1280 L *l,3 

1280 SUMSLI L 1 = SUMSL<U/SUMSLC4) 

SUMSLI 4 >= 2.0*SUMSLC4)/CM 
C 
C 

YSPANCNSPAN>= YSPN/BOTU 

. SL IFT1NSPANI —SUMSLI4|*ISUMSLI3»*COSA * SUMSL111*S1NAI 
SDRAGCNSPAN1* SUMSL14>*CSUMSL(1)*COSA - SUMSL(3 I*S1NA) 
CMOMTCNSPANl* 2*0*SPMO/CORD 
SCTS * -SUMSLt4P*SUMSL<LI 
IF ISCTSI 1290,1290,1300 
1290 SCT5 = 0.0 
1300 SNFC * CO SLE* SCTS 

IF I SUMSL 011 12 10, 1320,1320 
1310 SNfC* -SNFC 
1320 CONTINUE 

SCLVIN$P4N|= -SSFC*COSA - SCTS*SINA 
SCOVI N SPAN I = SCTS*COSA - SNFC*SINA 

SPMVINSPANI- 5NFC*<XLE-XC04I/CW 


C 

C 

1330 CONTINUE 


C 

c 

LIN E S= L tNE S+3 

IF ClTNEX-LINESI 1340,1350,1350 


1340 CALL PAGE 

L!NES = LINES+3 
00 TO 1360 

1350 MRITE (ROUT,1010) 


1360 CONTINUE 
C 

c 

c 

CALL CURF1 TIYSPAN, 
CALL CURFITCYSPAN* 
CALL CURFITIYSPAN, 
CALL CURFITCYSPAN, 
CALL CURFIT<YSPAK, 
CALL CURFITIYSPAN, 
CALL CURF[TIYSPAN, 
CALL CURFITCYSPAN, 


SL1FT, AUFT, 
SORAG,AORAG, 
CMGMT »AMOMT, 
FLAPN,AFLPN, 
FLAPX,AFLPX, 
SC L V , ACLV. 
SCDV, ACDV, 
SPMV, APMV, 


C 

C 

C 

OELTAB* 2.0/30.C 
YSPANO* -1.0 

IF (IFLGIll-n 1370,1380,1380 


1370 DFL TAB - 1.0/30.0 


YSPANO* 0*0 
1380 CONTINUE 


NSP AN,Z EROl 
NSPAN,ZEROl 
nspan.zeroi 

NSPAN,2EROl 
NSPAN,ZEROl 
NSPAN,ZEROl 
NSPAN,ZEROl 
NSPAN,ZEROl 


ZER02,N2,N2> 
ZER02,N2,N2I 
ZER02,N2,N2) 
ZER02,N2,N2I 
ZER02,NZ,N21 
2ER.02 , N2« N2I 
ZER02,N2,N2) 
ZERC2 * N2* N21 


806 1830 
B06 IB40 
B06 1850 
B06 I860 
BO6 IBTO 
006 1690 
606 1890 
606 1900 
B06 1910 
806 1920 
B06 1930 
006 1940 
606 1950 
806 1960 
BO6 19T0 
806 I960 
006 1990 
806 2000 
B06 2010 
606 2020 
606 2030 
606 2040 
B06 2050 
B06 2060 
B06 2070 
B06 2080 
BO6 2090 
B06 2100 
B06 2110 
B06 2120 
B06 2130 
806 2140 
B06 2150 
BO 6 2160 
006 2170 

306 2180 
606 2190 
006 2200 
006 2210 
BO6 2220 
BO 6 2230 
606 2240 
606 2250 
606 2260 
60 6 22 70 
B06 22B0 
606 2290 
B06 2300 
B06 2310 
606 2320 
B06 2330 
B06 2340 
606 2380 
606 2360 
606 2370 
606 2360 
806 2390 
BO6 2400 
606 2410 
806 2420 
806 2430 
BO6 2440 
006 2450 
BO6 2460 
BO 6 24 70 
806 2490 
B06 2490 
006 2500 
606 2510 
606 2520 
B06 2330 
B06 2540 
606 2550 
BO6 2560 
R06 2570 
B06 2580 
B06 2590 
BO6 2600 
BO6 2610 
B06 2620 
B06 2630 
B06 2640 
B06 2650 
R06 2660 
BO6 2670 
B06 2680 
B06 2690 
BO6 2700 
B06 2710 
906 2T2D 
B06 2730 
006 2740 
BO6 2750 
906 2760 
BO6 2770 
B06 27BO 
B06 2790 
B06 2800 
BO6 ZBLO 
B06 2B20 
BD6 2630 
B06 2B40 
R06 2850 
906 2660 
BO6 2970 
BO6 2960 


5854 

5835 

5836 
5857 
5856 
5859 
3860 
9661 
5862 
3863 
5864 
5665 

5866 

5867 
3866 
5069 
9070 

5871 

5872 

5873 

5874 

5875 

5876 

5877 

5878 

5879 
5680 
5861 
9882 
5883 
3884 
5885 
5686 
3967 
5B8B 
5389 
9090 

5891 

5892 
5093 
5894 

5893 
3696 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

9904 

9905 

5906 

5907 

5908 
59 09 

5910 

5911 

5912 

5913 

5914 
5913 

5916 

5917 
5916 

5919 

5920 

5921 
3922 
5923 
592 4 
3925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 
5936 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 
594 5 
5946 
594 7 

5948 

5949 

5950 
59 51 

5952 

5953 

5954 
59 55 

5956 

5957 
59 58 
5959 
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o u Ki 


C 


806 

2890 

5960 


00 1410 J 3 1» 31 

806 

2900 

5961 

c 


BO 6 

2910 

5962 


vnfl= nELTAB*FLOAT(J-li ♦ YSPANO 

806 

2920 

5963 


YSPN= YOB* BOTU 

BQ6 

2930 

5964 

c 


806 

2940 

5965 


CL = 0.0 

CO a 0.0 

CM * 0.0 

CIV * 0.0 

COV * 0.0 

CPV * 0.0 

FCN 3 0.0 

fCX = 0.0 

C 

TEST = ABSIYOBI - 0.999 
If (TEST! 1390, HC0,1400 
1390 CONTINUE 
C 

CALL CURVEIYSPAN,SLIFT,ALIFT, YOB,CL, DUNYK,NS PAN.Nil 
CALL CURVEIYSPAN,SDRAG,AORAG » YO0,CD, OJNYKtNS PAN*Nil 
CALL CURVE IYSPAN»CMOHT ,AMQHT, YOB,CM, DU*YK,NS PAN»N1) 
CALL CURVE<YSPAN,FLAPN,AFLPN, YOR,FCN,OU*YK,NS PAN,N11 
CALL CURVEIVSPAN,FLAPX,AFLPX, YOB,FCX,DUNYK,NS PAN,N1» 
CALL CURVE (YSPANtSCLV, ACLV, YOB ,CLV«DUHYK, NSPAN,NU 
CALL CURVEfYSPAN,SC0V, ACDV, YOB,CDV,DUMYK,NSPAN,N1) 
CALL CURVE(YSPAN,SPMV, APMV, YCB.CPV.DUMYK,N5PAN,Nll 
C 

1400 CONTINUE 


RCUNCLC , J I • CL 
PCOf NCLC, J > = CO 
R CM t NCLC,J ) = CM 
RCLVINCLC,J|= CLV 
RCDVINCLC,J1= cnv 
RPNVINCLC,CPV 

RCFLINCtC,J1= FCN«COSA - FCX*SINA 
RCFOINCLC,JI * FCX*COSA ♦ FCX*$INA 
RYSPANf JJ * YOB 

c 

c 

1410 CONTINUE 

c 

c 

1420 CONTINUE 
C 
C 

OELCL* EXECM2I-4CL 
EXECKI151 - 0.0 
SCL 1 “ WCL** 2 

SCL2* SCLI - EXECKI2IPP2 

UC L VS( 2 >3 c VCLtS(l) - MCLVS(2> ) /SCL2 

wclvsuj* NCLvstn - wclvsi?>* scn 

WC0VS(2I» I UCDVSUt - WCDVSIZI I /$CL2 

WCOVSl ll 3 MCOVSm - WC0VS(2)*SCLl 

MCPVSI2 !■= C HCPVStLJ - WCPVSI2) )/SCL2 

WCPVSm- HCPVS(I) - HCPVSI2 >*SCLl 

WCP0SI2I* I WC PQ S( 2 J - WCPOSIU l/OELCL 
HCP0S(1I» WCPCSUI - WCPQS 12 1 *WCL 
NCO IS( 2 1= t WCOISi 11 - UCDISI2I I/SCL2 
WCOISI1J“ 0.0 
C 

DO 1460 J = 1,31 
CFNS * &CFL t 1,J 1**2 
C 

TEST * CFNS - RCFL(?,J)**2 
ATEST* ABS ( TE ST 1-0. Ofll 
TF (ATESTI 1430,1430,1440 
1430 PC FD(2,J 0.0 
GO TO 1450 

1440 RCFOC 2, J >•* (RCFD (l, JI-RCFD 12 , JJ I/TEST 
1450 PC F0( 1 ,J 1 = PCFD<l,J| - RCF0I2,J1*CFNS 
RCFl I 2, J I* {RCFL 12, JI-RCFUl, JJ ) /OELCL 
RCFL < 1, J I* RCFL( 1, JJ-RCFU2 . J» *NCL 
RCM( 2, <RCM(2, JI-RCMU , J) 1 /DELCL 

R C M (l, j j s PCMIUJI - RCMt2»JI*MCL 
C 

SCL 1 = HCL**2 
SCL2= SCLl-EXECK(2l**Z 
RCL VI 2,31* IRCLbf1 , J1-RCLV(2 , JJ I /SCL2 
RCLV{1,j r= RCL VU, J I-PCLVI2 , JJ *SCll 
RCOVI 2 » J ) * IRCDVI1,J)~RCDVI2,JIJ/SCL2 
RCOVU, J )= RC JVI 1, JJ -RCDV 12 , J* *SCLl 
RPMV<2,Jl = (RPMvl1,JJ-RPMVI2,J)I t SCL2 
RPNVI1,J1 3 RPMV(l,JI-RPMVI2,JJ *5CLl 
C 

SCL 1= RCLI l,J 1 * * 2 
SCL 2= SCL1 - RCL < 2,J J **2 
RCr>(2,JI = (RCOll t jJ —RCO {2 , J t 1/SCL2 
RCOtUJl = RCDI 1, J J -RCO (2, J) *SCL1 
CL A1UI * (RCU2,J»-RCLI1, JI J/DELCL 
^1460 CLBtJJ = RCLIUJ1 - CLA1 (J) * WCL' 

C 

WLIF T S = DELCL/DELALF 
MPMO$L= I6XECK(3l-WPMOI/DELALF 
WRMOSL- IEXECKt4J-WRMOJ/OELALF 
WYNOSL 3 1EXECKI5 l-WYMO)/OELALF 
C 

ALFA - ALFA - DELALF 
AlFARO= ALFA - kCL/WLlFTS 

C 

LINES* LINF St 10 


806 

2950 

5966 

BO 6 

2960 

5967 

806 

2970 

5968 

BOB 

2980 

5969 

B06 

2990 

5970 

BO 6 

3000 

5971 

BO 6 

3010 

5972 

B06 

3020 

5973 

B06 

3030 

5974 

B06 

3040 

5975 

BO 6 

30 50 

5976 

B06 

3060 

5977 

BOB 

3070 

5978 

BOB 

3000 

5979 

B06 

3090 

5980 

BOB 

3100 

5981 

B06 

3110 

5982 

BO 6 

3120 

5983 

B06 

3130 

5984 

BD6 

3140 

5905 

BOB 

3150 

590 6 

BOB 

3160 

5967 

BOB 

3170 

5988 

BOB 

3160 

5989 

BOB 

3190 

5990 

B06 

3200 

5991 

BOB 

3210 

5992 

BOB 

3220 

5993 

BOB 

3230 

5994 

80 6 

3240 

5995 

BOB 

3250 

5996 

BOB 

32 60 

5997 

BOB 

32 70 

5998 

BOB 

32 BO 

5999 

806 

3290 

6000 

BOB 

3300 

6001 

BO 6 

3310 

6002 

BOB 

3320 

6003 

BOB 

3330 

6004 

BO 6 

3340 

6005 

BOB 

3350 

6006 

BOB 

3360 

6007 

BOB 

3370 

6008 

BOB 

3380 

6009 

BOB 

3390 

6010 

BOB 

3400 

6011 

BOB 

3410 

6012 

BOB 

3420 

6013 

BOB 

3430 

6014 

BOB 

3440 

6015 

BOB 

34 50 

6016 

BOB 

3460 

6017 

806 

34 70 

6010 

BO 6 

3480 

6019 

BOB 

3490 

6020 

606 

3500 

6021 

BOB 

3510 

6022 

BOB 

3520 

6023 

BOB 

3530 

6024 

806 

3540 

6025 

BOB 

3550 

6026 

806 

3560 

6027 

BO 6 

3570 

602 8 

806 

3580 

6029 

806 

3590 

6030 

BOB 

3600 

6031 

BOB 

3610 

6032 

BOB 

3620 

6033 

806 

3630 

6034 

806 

3640 

6035 

BOB 

3650 

6036 

BOB 

3660 

6037 

BOB 

3670 

6038 

806 

3680 

60 39 

806 

3690 

6040 

806 

3700 

6041 

806 

3710 

6042 

BO 6 

3720 

6043 

806 

3730 

6044 

806 

3740 

6045 

006 

37 50 

6046 

806 

3760 

604 7 

806 

3770 

6048 

606 

3780 

6049 

806 

3790 

6050 

906 

3800 

6051 

606 

3810 

6052 

806 

3820 

6053 

606 

3630 

6054 

806 

3840 

6055 

806 

3850 

6056 

80 6 

3 8 60 

6057 

806 

3870 

6050 

806 

3880 

6059 

HOB 

3890 

6060 

60 6 

3900 

606 L 

606 

3910 

6062 

BOB 

3920 

6063 

80 6 

3930 

60 6 4 

BOB 

3940 

6065 
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r> n o n r> 


IF (LINEX-L1NESJ 1470,1460*1480 
1470 CALL PAGE 

LINES 3 LIN F 5+10 

1480 HRIIF (K3UT,1020>ALFA,ALFAR0,WCL*HLIFTS,HPHOSL,HRHOSL»HYMOSL 
C 

no 1540 J-l,3i 
I F tJ-ll 1490,1450,1530 
1490 LINES 3 LINES* 2 

IF ILINEK-LINESI 1500,1510,1510 
1500 CALL PAGE 

LINES* L l NE S*2 
1510 WRITE IKGUT•10301 
1520 LINES^ L INES*1 

IF ILINE X-LINE S I 1500,1530,1530 
1530 CONTINUE 

YSPN- RYSPANU l*BOTU 

HR ITF <KOUT, 10 40IYSPN,RYSPANIJ) ,CLA1I J \ ,CL8{Jl ,PCL(1,J>,PCM{1,JI 
1540 CONTINUE 


* LINEARIZED SOLUTION ARRAY * 

IF (HiNGC LI 11 - 1J 1550,1570,1570 
1550 CONTINUE 

00 1560 N-2,NJOBL 
H* N-1 

1560 WtNGCLIN I * WLIFTS*! ALFALtH|-ALFARO! 

1570 CONTINUE 

SLOPED = 0.5/PIE 
SLOPE* 3 1.0/<HUFT$*RA0I 
IR ECN = 0 
TW0fi0=10 
C 
C 

00 1830 N=2,NJ0BL 
C 
C 

WCL- H1NGCLIN1 

ALFA- WCL/WLIFTS ♦ ALFARO 

S I GNL 3 UO 

IF <WCLI 1580,15SC,1590 
1580 SI GNL 3 -1,0 
1590 CONTINUE 

IR FCN- IRECN +1 
C 

LINES- LINES ♦ LINEX 
IF (LINEX-LTNESI 1600,1610,1610 
1600 CALL PAGE 

LINES* LINES *10 

1610 WRITE {KOUT,lQ20)ALFA f ALFARO,WCL,WLlFT$,MP#OSL,WR*OSL,HYMOSL 

C 

00 1770 J * 1, 31 
C 

YSPN* RYSPANIJJ*9GTU 


B06 3950 
806 3960 
BOS 3970 
B06 3980 
806 3990 
RQ6 4000 
806 4010 
B06 4020 
BO6 4030 
B06 4040 
806 4050 
B06 4060 
B06 4070 
B06 4080 
B06 4090 
B06 4100 
B06 4110 
R06 4120 
B06 4130 
606 4140 
806 4150 
806 4160 
606 4170 
8D6 4180 
006 4190 
806 4200 
B06 4210 
B06 4220 
906 4230 
BO6 4240 
806 4250 
BO6 4260 
BO6 4270 
606 4280 
806 4290 
BO6 4300 
006 4310 
006 4320 
B06 4330 
B06 4340 
B06 4350 
806 4360 
806 4370 
B06 4380 
B06 4390 
B06 4400 
BO6 4410 
BD6 4420 
B06 4430 
B06 4440 
B06 4450 
B06 4460 
BO6 4470 
006 4480 
806 4490 


6066 

6067 

6068 

6069 

6070 

6071 

6072 
607 3 
6074 
60T5 

6076 

6077 
6076 
6079 
6060 
6081 
6082 

6083 

6084 
6065 
6086 
6067 
6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 
6101 
6102 

6103 

6104 

6105 

6106 
6107 
61 OB 

6109 

6110 
6111 
6112 

6113 

6114 

6115 

6116 
6117 
61 IR 

6119 

6120 



RCL ( 1, J 1- C L A H J 1 * *C L «■ CL0IJI 

HO 6 

4500 

6121 

c 


006 

4510 

6122 


CALL CHORDT< YSPN,XLE,XC04,XTE,XHF,CW,CF J 

606 

4520 

6123 

c 


BO 6 

4530 

6124 


SCL 1= RCLI 1,J >**2 

60 6 

4540 

6125 


SCL2* WC L * * 2 

60 6 

4550 

6126 


PCLl2»JI= RCOU.JI ♦ RCDC2, JJ ♦SCLl 

30 6 

4560 

6127 


IF (LORA G-1l 164C,1620,1620 

BO b 

4570 

6120 

1620 

RCLt 2,J > 3 0.0 

BO 6 

45 BO 

6129 


IF (CLAUJU 164C, 1640,1630 

006 

4590 

6130 

1630 

RCU2,JI= I SLOPE*/CLAl IJ1 - SLO PE 01 *5C L l 

006 

4600 

6131 

1640 

CM AC = RC *I 1,J) ♦ RC«I2,JI*HCL 

006 

4610 

6132 

C 


806 

4620 

6133 


CL V 3 I RCLVIltJI ♦ RCLVI2,J)YSCL2 I*SIGNL 

♦ RCLUtJ) 806 

4630 

6134 


CPV - 1 RPMVllfJl * RPMV (2 , JJ *SCL2 I*5IGNL 

♦ CMAC 806 

4640 

6135 


COV 3 1 RCDVUtJI ♦ RC0VI2 ,J1 *SCL2 1 

♦ RCL(2,J I 806 

4650 

6136 


CMLFT* (W1NG0I m-XC04)4IRCUl* JMCOSA ♦ RCL 12 » Jl*SINA I 806 

4660 

6137 


FCN - RCFLllfJI ♦ RCFLI2,J)*WCL 

B06 

4670 

6138 


FCX « RCFDIltJl ♦ RCFO12,JI*IFCN**2) 

B06 

4680 

6139 


CFNS* FCN*COSA ♦ FCX*S1NA 

BO 6 

4690 

6140 


FCX = f C X* COSA - FCN*SINA 

B06 

4700 

6141 


FCN «= CFNS 

806 

4710 

6142 


FCM = -FCN/4.0 

BO 6 

4720 

6143 

c 


006 

4730 

6144 


IF (J-LJ L650,1650,1600 

B06 

4740 

6145 

1650 

L INFS* LINFS ♦ 4 

606 

4750 

6146 


IF ILINEX-LINESI 1660,1660,1670 

BO 6 

4760 

6147 

1660 

CALL PAGE 

606 

4770 

6146 


LINES* LINES ♦ 4 

006 

4780 

6149 

1670 

HR ITE IKOUT,10501 

606 

4790 

6150 

1680 

LINES 3 LINES ♦ 1 

006 

4800 

6151 


IF IL1NEX-LINES1 1660,1690,1690 

BO 6 

4010 

6152 

1690 

CONTINUE 

00 6 

4820 

6153 

C 


80 6 

4830 

61 54 


NO FL PX = NOFLAP ♦ AOAILR 

606 

4840 

6155 


IF INOFLPXI 1700,1700,1710 

B06 

4850 

6156 

17 00 

HR ITE l K3UT, 10601 YSPN,RYSPANiJ) ,RCLU » Jl ,RCL(2 ,J> ,CMAC ,CLY ,COV, C PV0O6 

4860 

6157 


GO TO 1720 

606 

4870 

6158 

1710 

HRITE IKOUT,1060JYSPN,PYSPANtJl ,RCL 11 ♦ Jl » RCL 12 , Jl,CNACtCLV,COV,CPV806 

4830 

6159 

1, FCN,PCX,FCM 

806 

48 90 

6160 

1720 

CONT INUF 

806 

4900 

6161 

c 


606 

49 10 

6162 


IF U-ll 1730, 1720,1740 

BO 6 

4920 

6163 

1730 

CONT IN UF 

80 6 

4930 

6164 


SUMS* 0.0 

006 

4940 

6165 


SUMt - 0.0 

80 6 

4950 

6166 


SUML* 0.0 

006 

4960 

6167 


SUMO* 0.0 

60 6 

4970 

6168 


SUMP 3 0.0 

B06 

4980 

6169 


GO TO 1750 

B06 

4990 

6170 

17 AO 

OELTAS* 0.25*1YSPN-YSPNP)*tCH+CHF) 

006 

5000 

6171 
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SUMS- SUMS ♦ 2.0*0£ LTA S 



606 5010 

6172 


SUMC- SUMC ♦ D£ L TAS*1C W+C MF \ 



506 5020 

6173 


SUML= SUML + DELTA S*IRCLI1,JJ4RCLU 



606 5030 

6174 


SUMD= SUMO ♦ r>ELTAS*<RClC 2 .JI+RCL2I 



B06 5040 

6175 


SUMP - SUMP ♦ 0ELTA$*ICM*RCM<1,J)+CHF*RCML+CMLFT+CMLFT1> 

B06 5050 

6176 

1750 

CONT INUE 



606 5060 

6177 

C 




606 5070 

6178 


CM f = CM 



606 5080 

6179 


YSPNP- YSPN 



B06 5090 

6160 


RCLl* RCLl UJ» 



606 5100 

6161 


RCL2- «CU 2, J| 



606 5110 

6182 


RCM1* RCMI 1, J) 



606 5120 

6183 


CMLFT1- CMLFT 



006 5130 

6164 

C 




606 5140 

6165 


IF <IFLG114)-l» 1770,1760,1760 



B06 5150 

6166 

1760 

MR ITEIKT2>IPECN,lWORD,RYSPAN(Jl ,RCL11,J>,RCL12,Jl,CMAC* 

606 5160 

6187 


l FCN.FCX.FCM, 

CLV*COV,CPV 


606 5170 

6186 

1770 

CONT INUE 



906 5100 

6189 

C 




906 5190 

6190 

C 




606 5200 

6191 


MCO= SUMO/SUMS 



906 5210 

6192 


WC*AC= UCP05(1» ♦ MCP0S(2I*WCL 



006 5220 

6193 


ML 00 = WCL/WCO 



006 5230 

6194 

C 




006 5240 

6195 


SCL2 a MCI**2 



006 5250 

6196 


WCLV * ( MCLYSm ♦ WCLVSI2MSCL2 

3 *SI GNL +■ MCL 


006 5260 

6197 


MPMV ^ I WCPVSm * MCPVSI2I *SCL2 

)*S1GNL * MCHAC 


006 5270 

6196 


MCOV =* 1 MCOVSm ♦ WC0VSI2I *SC12 

3 ♦ MOD 


906 5280 

6199 


ML 00 V* WCLV/WCOV 



806 5290 

6200 

C 




B06 5300 

6201 


IF (N-41 1780.17EC,1800 



B06 5310 

6202 

1 7a □ 

M-N- 1 



006 5320 

6203 


MC 03 < M1= HCO 



606 5330 

6204 


MCL3IMI* WCL 



006 5340 

6205 


WCL6IHI* MCL**2 



606 5350 

6206 

C 




606 5360 

6207 


IF IN-41 1800,17SC,1800 



BO6 5370 

6208 

1790 

MC03131 * I WCD3I2I - NCQ3131 ) /{ WCL3I2I - WCL3(3| 

I 

006 5380 

6209 


WC03I2I - l MCD3UI - WCD3I21 3 /( HCL3I13 - WCl3<23 

1 

006 5390 

6210 


WCL3C31 = I MCL412I - WCL4(3I I/( WCL3I2I - WCL3I3) 

) 

B06 5400 

6211 


WCL3I23 = I WCL4IU - WCL4I23 3/1 MCL3I11 - WCL3I23 

1 

B06 5410 

6212 


MCOISI23- ( WCD 3! 2I-WCD3(3I 1/{ WCL3I21 -WCL3I3I 3 


B06 5420 

6213 


WC 01S(13- HC03I23 - WCDIS123 *MCL3123 


606 5430 

6214 


SK INFC - SKI NFC ♦ WCD3U3 - WCD I SI 13 *WCL3 I 11 - WCD1S ( 2 > *WCL4l 13 

B06 5440 

6215 

1000 

CONTINUF 



B06 5450 

6216 

c 




B06 5460 

6217 


LINES* LIN E S*3 



B06 5470 

6218 


IF ILINEX-LINES 1 10 1 0,182 0*182 0 



006 5400 

6219 

1810 

CALL PAGE 



606 5490 

6220 


L INES 3 * LINES+3 



006 5500 

6221 

1020 

MRJTE IK OUT, 107QI MCL ,MCO , MCHAC , WLQD 

»WCLV, WCD V , MPMV ,1 

MLOOV 

606 5510 

6222 

C 




906 5520 

6223 

1830 

CONTINUE 



B06 5530 

6224 

C 




BO6 5540 

6225 

C 




606 5550 

622 6 


CALL PAGE 



806 5560 

6227 


MR ITE IKOUT,10803 



806 5570 

6226 


KALFAe [FIX! ALFARO - 2.0 3 



806 5580 

62 29 


LINES- LINES ♦ 9 



806 5590 

6230 


IRECN- IRECN ♦! 



606 5600 

6231 


IHORO- 7 



006 5610 

6232 

C 




006 5620 

6233 


NIMAX— 20.0 -ALFARO 



906 5630 

62 34 


00 1870 N=1,NIMAX 



006 5640 

623 5 


ALFA® FLOAT! N ♦ KALFA 1 



BO6 5650 

6236 


MCL * ML IF T S*{ ALFA-ALFARO ) 



606 5660 

6237 


SCL2 - WCL**2 



RO 6 56 70 

6238 


WCD » SK I NFC 4- bCOlsm*MCL * MCD I SI 2 1 *SCL2 


R06 5680 

6239 


WCMAC- MCP0SI13 ♦ WCP0SI2I4MCL 



B06 5690 

6240 


MCLV - MCLVS(11 ♦ MCLVSI23*SCL2 



BO6 5700 

6241 


WC QV - MCOVSIU ♦ MCDVSI2 3 *SCL2 



806 5710 

6242 


MPMV - MCPVSIU + MC PVS <2 3 *SCL2 



006 5720 

6243 

C 




RO6 5730 

6244 


IF IMCL 3 1840,l£*0,1650 



BO6 5740 

6245 

1040 

MCL V - MCLVStn + MCLVSILI -WCLV 



RO6 5750 

6246 


mpmv - kcpvsm + MCPvsm - mpmv 



B06 5760 

624 7 

1850 

WCLV = WCLV ♦ MCL 



RO6 5770 

624 B 


MCOV - MCOV ♦ WCD 



RO6 5780 

6249 


MPMV 3 MPMV ♦ MC MAC 



BOA 5790 

6250 

C 




BO6 5000 

6251 

c 

'MR ITE IKDUT,10901ALFA,MCL ,WCD,MCMAC 

.MCLV.MCDV,MPMV 


BOb 5810 

6252 

L 




B06 5820 

6253 


!F { IFLG!14 J-11 l€70,lE60,1960 



906 5830 

6254 

1 660 

CONTINUE 



806 5B40 

62 55 


MR ITEIKT2I IPECN,I WORD,ALFA,wCL,WCD, 

MCMAC,WCLV.MCOV,MPMV 

BO6 5850 

6256 

1070 

r 

CC1N T IN UE 



BOb 5860 

6257 

L 

r 




606 5870 

6258 

V 




606 5890 

6259 


IF I IFLG!14 3-1) ie90,l 880*1880 



606 5890 

6260 

18 P 0 

LINES- LINES *Z 



BO6 5900 

6261 


IFLCt151= IFLG! 15 3 *1 



306 5910 

6262 


END FILE KT2 



606 5920 

6263 


WRITE IK3UT,110031FLG!153 



906 5930 

62 64 

189 0 

r 

CONTINUE 



606 5940 

6265 

l 




906 5950 

6266 

l 




B06 5960 

6267 

1900 

RETURN 



806 5970 

6268 

c 

r 

XXXXXX 



806 5980 

6269 

l 

r 




906 5990 

6270 

V 

C£i A 



B06 6000 

6271 


LIX U 



006 6010 

62 72 


V FW> R07| B07 
r 


BO 7 

IQ 

6273 

V. 


BO 7 

20 

6274 


9-60 






c 


007 

30 

c 


B07 

40 

SUBROUTINE SPAN! ( IFLAG,NSP5,NDIS,SPAN, YSPANI 


807 

30 

C 


607 

60 

C * TRW MULTIPLE-StRFACE VORTEX-LATTICE PROGRAM - REVISED 

8 AUG.72 

•B07 

TO 

C * PROGRAM DEVELOPED BY A, V.GOME! (TRW SYSTEMS! ON MARCH- 

MAY 1971 

4 BO 7 

80 

C 


007 

90 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXBOT 

100 

c 


B07 

110 

DIMENSION YSPANH2! 


BO? 

120 

COMMON /DATAQ2/IFLG(151 ,EXeCKli5) ,RAO ,PIE 


B07 

130 

COMMON/0ATA04/YFLAPI,YFlAP2,FLA PC 


007 

140 

* ,YATLRN,A!LRNCtUSMOTH 


007 

150 

C 


BOT 

160 

c XXXXXXXXXXXXXXXXXXKXXXXX XXXXXXX XXX XXX XX XXX XXX X XXX XX XX XX XXX XXX XX X XX 00 7 

1 TO 

c 


BO 7 

180 

c 


B07 

190 

c 


B07 

200 

IF (IFLAG-U 100C,1020,1250 


BOT 

210 

c 


BOT 

220 

c 


BOT 

230 

c 


BOT 

240 

C * FIXED SPACING * 


BOT 

250 

C 


BOT 

260 

1000 continue 


BOT 

270 

c 


BOT 

200 

DELTAS span/FLOAT(NSPS-11 


BOT 

290 

flDTUs span/2.0 ♦ DELTA 


007 

300 

C 


BOT 

310 

00 1010 K=1,NSPS 


BOT 

320 

1010 YSPANIKI —0OTU ♦ DELTA*FLOAT|K] 


BOT 

330 

C 


BOT 

340 

RETURN 


BOT 

350 

C XXXXXX 


BOT 

360 

C 


BOT 

3T0 

C 


BOT 

390 

C 


BOT 

390 

C * VAR I ABLE SPACING • 


BOT 

400 

C 


BOT 

410 

1020 CONTINUE 


BOT 

42 0 

c 


BOT 

430 

PHIS Pie*4 L.o ♦ FLOAT(NO I SI ) 


BOT 

440 

DP HI = PHI/FLOAT!NSPS-1I 


607 

450 

ROTU= SPAN/2.0 


BOT 

460 

DBG - 0. 5* SPA N/F L OA T I NO 1S+1) 


907 

4T0 

C 


BO 7 

480 

c 


BOT 

490 

PJFF* Plf 


807 

500 

PIEMs 1.0 


BOT 

510 

C 


007 

520 

DO 1040 N*1,NSPS 


BOT 

530 

PHI* 0PHI*FLQAT(A-1) 


BOT 

540 

IF (PHl-P 1EF ) 1040,1040,1030 


BOT 

530 

1030 PIEF * PIE ♦ PIEF 


907 

360 

P 1 EM* PIEM ♦ 2.0 


BOT 

570 

1040 YSPANCNI* -BOTU ♦ OBOMPIEM - CCS! PHI4PIE—PIEF1 1 


ao7 

580 

c 


B0 7 

590 

c 


BO 7 

600 

IF IYFLAP2I 1250,1250,1050 


00 7 

610 

1050 YF l = YFLAPl 


BO 7 

620 

YF 2= YFLAP2 


B07 

630 

, TEST= YFLAP 1-1*0 


907 

640 

!F (TEST! 1060,1060.1070 


807 

650 

1060 YF1* YF1*B0TU 


BO 7 

660 

YF 2= YF2*B0TU 


907 

670 

1070 CUNT INUE 


BOT 

6 80 

c 


BOT 

690 

IF (NOIS-1) 1250,1250,1080 


B07 

700 

1000 IF (NDIS-3) 1090,1090,1150 


807 

710 

1090 Y1 * OBO*FLOAT(NO 1S-11 


BOT 

720 

p 


BOT 

T30 

C 


BOT 

740 

C * NDtS=2 OR 3 * 


BOT 

750 

c 


BOT 

760 

R A T1= YF2/Y1 


BO 7 

T70 

R AT2*» (BOTU-YF21 / (BOTU—Yl ) 


BO 7 

780 

00 1140 N*l,NSPS 


BOT 

790 

T1 = YSPANINI ♦ Y1 


907 

000 

T2 - YSPANINI - Y1 


B07 

e lo 

IF 1T11 1100,1100,1110 


907 

82 0 

1100 YSPAN(N>= -YF Z 6 (YSPAN<N>♦Y1)*RATZ 


B07 

830 

GO TO 1140 


807 

840 

1110 IF IT2I 1120,1120,1130 


B07 

8 50 

U20 YSPANIN 1= VSPAN(M4RAT1 


907 

960 

GO TO 1140 


BOT 

870 

1130 YSPAN(NI* YF2 ♦ ( YSPAN (N>-Y11 *R AT2 


BOT 

830 

1140 CONTINUE 


BOT 

890 

GO TO 1250 


BOT 

900 

r 


BOT 

910 

£ 


BOT 

920 

C * NDIS*= 4 * 


BOT 

930 

C 


BOT 

94 0 

1150 Y 1 ■= OBO 


BOT 

950 

Y2- 3.0*Yl 


907 

960 

RATO = YFl/Yl 


807 

9 70 

RATI = ( VF2-YF1J/(Y2-Y1J 


907 

980 

PAT2 * iaOTU-YF2l/{BOTU-Y2) 


007 

990 

DO 1240 N=i,NSPS 


907 

1000 

T1 - YSPAN(N) ♦ Y2 


BOT 

1010 

T2 = YSPANIN! ♦ Y1 


907 

1020 

T3 s YSPAN(N) - Y1 


SOT 

1030 

T 4 - Y5PAN(NI - Y2 


BOT 

1040 

IF (Tl) 1160,1160,1170 


BOT 

1050 

1160 YSPAN ( N )* — YF2 ■*■ ( YSPA N ( N1 *Y21 *R AT2 


907 

1060 

Gn TO 1240 


BOT 

1070 

1170 IF (T2> 1180,11BC,1190 


B07 

1080 


6275 

6276 

6277 
6270 

6279 

6280 
6201 
6282 
6203 
6284 
6263 
6286 
6287 
6260 
6209 

6290 

6291 

6292 

6293 

6294 
629 3 

62 96 
6297 
6296 
6299 

63 00 

6301 

6302 

6303 

6304 

6305 

6306 

6307 
63 OB 

6309 

6310 

6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

632 7 
432 8 

6329 

6330 

6331 

6332 

6333 

6334 

633 5 

6336 

6337 
6336 

6339 

6340 

6341 

6342 

6343 

6344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 
'6333 

6354 

6355 

6356 
63 5 7 
63 58 
6359 
63 60 

6361 

6362 

6363 

6364 

6365 
636 6 

6367 

6368 

6369 

6370 
63 71 

6372 

6373 

6374 

6375 
63 76 
6377 
63 7 6 

6379 

6380 


9-61 



ooo<i r> o o n n n r> n rtnnnnrt o r> nooorv on n n n nonnon ooo^ ooo 


1180 

YSPAN(N(^ -YFl ♦IYSPAMNI♦Yll4RATI 

007 

1090 

6381 


GO TO 1240 

B0 7 

1100 

6382 

1190 

IF 1 T3) 120C 1 120C t 1210 

007 

1110 

6383 

12 00 

YSPANINI- Y SPAN i m*rato 

S07 

1120 

6384 


GO TO 1240 

BO 7 

1130 

63 B 5 

1210 

IF (T41 1220,1220,1230 

B0 7 

1140 

6366 

1220 

YSP AM N ) = YFL ♦ I YSPAMNl-Ytl 4RATI 

007 

1150 

6387 


GO TO 1240 

007 

1160 

6386 

12 30 

YSP AM N 1 * Yf 2 4 ( YSPAMNI-Y214RAT2 

• 00 7 

1170 

63 B4 

12 40 

CONTINUE 

B07 

1180 

6390 



B07 

1190 

6391 



B07 

1200 

6392 

1280 

RETURN 

BO 7 

1210 

6393 


XXXXXX 

BDT 

1220 

6394 



BOT 

1230 

6395 



BOT 

1240 

6396 


EN0 

B07 

1250 

6397 


FOR 

BOB,808 

B08 

10 

6396 



808 

20 

639 9 



BOB 

30 

6400 



808 

40 

6401 


SUBROUTINE CHOROII IF LAG , Nt V, NO I S , XV t XN,XCI 

BOS 

50 

6402 



B08 

60 

6403 


♦ TRW MULTIPLE-SIRFACE VORTEX-LATTICE PROGRAM - REVISED B AUG.72 

*008 

70 

6404 


4 PROGRAM DEVELOPED BY A. V.GGME l ITAH SYSTEMS! ON MARCH-MAY 1971 

♦ BOB 

60 

64 03 



BOB 

90 

64 0 6 


XXXXXXXXXXXXXXXKIXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXX B08 

100 

640 7 



008 

110 

64 OB 


DIMENSION XVI 101 ,XM10l ,XC<111 

BOB 

120 

6409 


C0MM0N/DATA02/1FLG(151 ,EXECK(15] ,RAO ,PIE 

BOB 

130 

6410 



008 

140 

6411 


XXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXBOe 

150 

6412 



BO 9 

160 

6413 



Qog 

170 

6414 



bo a 

1 SO 

6415 


CQLDCP- EXfCKIm - 1.0 

00 8 

190 

6416 


IF < IFLAG- l) 100C,1070,1020 

BOB 

200 

6417 



BOB 

210 

6418 



BOB 

220 

6419 



008 

230 

6420 

* 

FIXED SPACING 4 

Boa 

240 

6421 



008 

250 

6422 

1000 

CONTINUE 

BOB 

2 60 

6423 


NPl* NC V»1 

808 

270 

642 4 


XC<NPl>-1.0 

90 0 

2 80 

642 5 


□ELTA= 1.0/FL0ATINCVI 

80 8 

2 90 

642 6 


DELTAl - -0.7540ELTA 

808 

300 

6427 


DELTA2 - COLOCP40ELTA 

BOB 

3 10 

6428 


X * 0.0 

BOB 

32 0 

6429 



BOS 

330 

6430 


DO 1010 N-liNCV 

BOB 

340 

6431 


X» X ♦ DELTA 

BOB 

3 50 

6432 


XC < N)- X 

BOB 

360 

6433 


X VIN 1 = X ♦ DELTAl 

bo a 

J 70 

6434 

1010 

XNIN1* X ♦ DELTA 2 

BOB 

380 

6435 



BOB 

390 

6436 


RETURN 

BOB 

400 

6437 


XXXXXX 

BOB 

410 

6438 



BOB 

420 

6439 



BOB 

4 30 

644 0 



BOB 

440 

6441 

* 

variable SPACING 4 

80 9 

430 

6442 



BOB 

460 

6443 

1020 

continue 

806 

4 70 

6444 



BOB 

490 

6445 


NP1= NCV*1 

no a 

4 90 

6446 


PHI* P1FML.0 * FLQATCNDlSn 

BOB 

300 

6447 


DPM* PHI/FLOAT! NCVI 

BOB 

510 

6448 


DCO= 0.5/fLDATlN0IS41) 

008 

520 

6449 



BOB 

530 

64 50 


P1EF= pie 

808 

540 

6451 


PIEM= 1,0 

BOB 

550 

64 52 


XXo o*o 

80S 

5 60 

6453 



BOB 

5 70 

6454 


DO 1050 N= 2,NP1 

80 8 

580 

6455 


M= N-l 

80 9 

590 

64 5 6 


PHI= OPHI* FLOA T C M1 

Boa 

600 

6457 


IF (PHI-PIEO 1040, 1040,1030 

808 

610 

645 B 

1030 

PI6F= P IFF ♦ Pit 

Boa 

620 

64 59 


PIFM* PIEM ♦ 2.0 

BOB 

630 

6460 

10 40 

PHlXa PHI+PTF-PIEF 

BOB 

640 

6461 


X c C H|= DC041P1EM-COSIPHIXl> 

808 

650 

6462 


DELTAS XC(Ml-XX 

908 

660 

6463 


XX = XCIMI 

BOB 

670 

6464 


XV(M|= XX-O.T5*OFLTA 

BOB 

6 R 0 

646 5 


*N<M)= XX +COLnCP4nELTA 

BOS 

690 

6466 

1050 

CONTINUE 

B08 

700 

64 6 7 



808 

710 

64 6 6 


RETURN 

008 

720 

64 6 9 


XXXXXX 

BO 8 

730 

6470 



B08 

740 

6471 



BOS 

750 

6472 



BOS 

760 

6473 


PND 

808 

770 

6474 


FDR BQ9,B09 

B09 

10 

6475 


BQ9 

20 

6476 


BOR 

30 

6477 


009 

40 

6478 

SUBROUTINE CHOP DT(Y, KLE »XC04,xTE,XHE,CM,CFI 

009 

50 

6479 


609 

60 

6480 


9-62 



c 

* TRW MULTIPLE-SIRFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.T2 *009 

TO 

c 

* PROGRAM DEVELOPED 07 A.V,GOMEZ (TRW SYSTEMS) ON MARCH-MAY 1971 *B09 

00 

c 


BO 9 

90 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXKXB09 

100 

c 


B09 

no 


COMMON/DATA05/WlrfJGD(15) ,EYI42 *10) 

,EC(42,10 ) , E5 1 42*101 009 

120 

* 

.EYEIIO) ,ELE(10) .ETEI10I 

iEHEIIOI , EGI42,101 B09 

130 

* 

• EN(42»lOt 6 t ,EV(42,10 ,6) ,WlN0X(42 , 10 

,3> 009 

140 

c 


B09 

150 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXB09 

160 

c 


009 

170 

c 


B09 

100 

c 


B09 

190 


YA- AB$m 

B09 

200 


M - - 1 

009 

210 


00 1020 L*2»l0 

00 9 

220 


If (M) 1000,1000.1020 

009 

230 

1000 

TEST** YA-EYEll)+O.OOL 

009 

240 


IF (TEST) 1010,1010,1020 

B09 

250 

1010 

M* l 

B09 

260 

1020 

CONTINUE 

B09 

270 


IF IN-2! 1030,1040,1040 

B09 

200 

1030 

M**2 

809 

290 

10 40 

Ml* M-l 

B09 

300 

c 


B09 

310 


RAT* < YA-EYE (M1M/(EYE (Ml-EYE(Mil) 

BQ9 

320 


XL E ** ELEIM1! ♦ R A T* { E IE IM 1 -ElE I Ml 1 

1 B09 

330 


XT f * ETE(Ml) ♦ RAT* ( E TE (Ml -E TE ( Ml 1 

| 009 

340 


XHE a £HE(M1| ♦ RAT* ( EHE(M|—EHE(Ml ) 

J 009 

350 


CW = XTE - XLE 

009 

360 


CF = XTE - XHE 

009 

370 


XC04 ~ XLE ♦ 0.25*CW 

809 

300 

c 


B09 

390 

c 


B09 

400 


RETURN 

009 

410 

c 

XXXXKX 

009 

420 

c 


009 

430 


END 

909 

440 


v FnR Bio,sia 


BIO 

10 

c 


010 

20 

c 


BIO 

30 

c 


BIO 

40 

subroutine FLAPS(yf,xhinge,p,COSE i 


BIO 

50 

c 


S10 

60 

c * TRW multiple-surface vortex-lattice program - 

REVISED 8 AUG.72 

*010 

70 

C * PROGRAM OFVFLaPEO BY A.V.GOMEZ ITRH SYSTEMS! ON MARCH-MAY 19T1 

*BlO 

RO 

r 


BIO 

90 

c xxxxxxxxxxxxxxxxxkxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxkxbio 

100 

c 


BIO 

110 

DIMENSION P()|,CCSF(3I 


BLO 

120 

c 


BIO 

130 

COMMON/OATAOa/NSTL ,ALFAO ,CMAX ,ZMO ,FLAPO* 

[, AILRDXI2I 

BIO 

140 

4 ,TITLEI14I ,ST0RE(14| 


810 

150 

COMMON/DATA02/IFLG(15) ,EXECM15I *RAD 

,pie 

BID 

160 

COMMON/OAT A04/YFLAPI,YFLA P2,FLAPC 


010 

170 

* ,yailrn,ailrnc,wsmoth 


BIO 

1 BO 

C0MMQN/0ATA06/YFFU,YFF12,YFF21.YFF22,YFF31,YFF32,DELTF1,0ELTF2 

BID 

190 

* ,noflap,ngailr 


810 

200 

COMMON/DA TA07/LFIAP t L DRAG,CUTOF1,CUT0F2 


BIO 

210 

C 


010 

220 

c XXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXBIO 

230 

c 


BID 

240 

c 


BIO 

250 

c 


BIO 

260 

NONO* NOFLAP ♦ NOAlLR 


BLO 

270 

DELTX- Pi n-XHlNGE 


BIO 

280 

IF IDELTXI 1010,1010,1000 


BLO 

290 

c 


BIO 

300 

1000 IF iNONO) 1010,IC10,1020 


BIO 

310 

1010 RETURN 


910 

320 

C XXXXXX 


BIO 

330 

c 


BIO 

340 

1020 YAa ABS< YF ! 


BIO 

350 

c 


810 

360 

c 


810 

370 

COSX* COSF ( l) 


910 

380 

COSZ= COSF ( 3) 


BIO 

390 

FLAPO=* 0.0 


810 

400 

ARC = 0.0 


BIO 

410 

c 


BIO 

420 

T$Tll= YA - YFF11 


BLO 

430 

TST12** YA - YFF12 


BIO 

440 

TST21= YA - YFF21 


010 

450 

TST22a YA - YFF22 


BIO 

460 

TST3i= YA - YPF31 


BIO 

4T0 

TST32= YA - YFF32 


BIO 

4B0 

c 


BIO 

490 

c 


BID 

500 

IF iNOFLAP) 1110,1110,1030 


BIO 

510 

1030 ] F IYFLAPI) 1070,1070,1040 


BIO 

520 

1040 IF < TSTll ) 1110,1110,1050 


810 

530 

1050 IF ITST12) 1060,1070,1070 


BIO 

540 

1060 FLAPO = 0 . 5 *fLAP 0 X*U.a+SINlP|E*(TSTLl/DELTFl-O 

.5)1) 

BIO 

5 50 

GO TO 1110 


RIO 

5 60 

1070 IF (TST21 ) 10 60,1C 8 0*1090 


BIO 

570 

1060 FLAPO = FLAPDX 


010 

500 

GO TO 1110 


BIO 

590 

1090 IF i TST22) 1100,1110,1110 


BIO 

600 

1100 FLAPO - 0# 54FLA P0X*<1,0+SINIPIE*I TST21 / DE LTF2 *-0 

.51)1 

810 

610 

C 


RIO 

620 

1110 IF (NOAILR) 1210,1120, U2C 


010 

630 

1120 ARC = AJLRDXi1) 


BID 

640 

IF (YF) 1130,l14C,1140 


eio 

650 


9-63 


6461 

6402 

6403 
6464 
6463 

6466 

6467 
6460 
6469 
6440 

6491 

6492 

6493 

6494 

6495 

6496 

6497 
6496 

6499 

6500 
6301 
6902 
6303 
6904 
6303 

6506 

6507 
6506 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 
65IS 


6519 

6520 

6521 

6522 

6523 
6324 

6525 

6526 

6527 
652 B 

6529 

6530 

6531 

6532 

6533 

6534 

6535 

6536 

6537 
6530 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 
654 8 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 
65 5 9 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 
656 R 
65 69 
65 70 
5571 

6572 

6573 

6574 

6575 

6576 

6577 

6578 

6579 
65 SD 
6581 
65B2 
6583 


lUO 

AlLO = AILRDK<2) 

BIO 

660 

6584 

1140 

IF lT$T2n 1150,1150* 1160 

BIO 

670 

658 5 

11*0 

Aim = o.o 

BIO 

6 BO 

6506 


GQ to 1210 

BIO 

690 

65 87 

1160 

IF (TST22) 1170,1180,1180 

BIO 

700 

6588 

1170 

AllD - 0.5* A [|_D* <1*0 ♦ StN<P[E*<TST2L/DElTF2 -0,5111 

BIO 

710 

6589 


GO TO 1210 

BIO 

720 

6590 

1180 

IF (TST31! 1210,1190,1190 

BIO 

730 

6591 

1190 

IF (TST32) 1200,1150,1L50 

610 

740 

6592 

1200 

A] 10= 0.5*AR0*<1,0 ♦ $IN(P!£4<TST31/DELTF2+0.5)1 1 

BIO 

750 

6593 

1210 

TAMO = TAN ( (A ILD+FLAPO)/RADI 

B10 

76 0 

6594 

C 


BIO 

770 

6595 

c 


BIO 

780 

6596 


COSO* UO/SQRTI 1,0 ♦ TAND**2 1 

BIO 

790 

6597 


SIND * TAN D* COSO 

BIO 

800 

6598 

c 


810 

810 

6599 


cosFm = cnsx»ccso - co$2*sino 

BIO 

820 

6600 


C0SFI3I = cnsz*coso ♦ COSX+SINO 

BIO 

830 

6601 

c 


BIO 

840 

6602 


IF ILFLAP-11 1220,1230,1230 

BIO 

850 

6603 

1220 

Pill « Pill - DELTX*Il.O-COSD) 

BIO 

860 

6604 


P(3 ) - PI3J + OELTX+SINO 

BIO 

BTO 

6605 

1230 

CONT INUE 

BIO 

880 

6606 

C 


810 

090 

6607 


RETURN 

BIO 

900 

6608 

C 

XXXXXX 

BIO 

910 

6609 

c 


BIO 

920 

6610 

c 


BIO 

930 

6611 


f NO 

BIO 

940 

6612 


V FOR 

B L1,B11 

Bll 

10 

6613 

C 


Bll 

20 

6614 

C 


B1L 

30 

6615 

C 


Bll 

40 

6616 


SUBROUTINE VOP T£X!P*B,D*TANA,GAHA, Vl,VCOS) 

Bll 

50 

6617 

C 


Bll 

60 

6616 

C 

* TP W HULTIPLE-SCRFACF VORTEX-1ATTI CE PROGRAM - REVISED 8 AUG.72 

♦Bll 

70 

6619 

c 

♦ PROGRAM OfVELOPEO BY A.V.GCME2 CTRW SYSTEMS) ON MARCH-MAY 1971 

♦Bll 

BO 

6620 

c 


Bll 

90 

6621 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXKXXXXXXXXXBll 

100 

6622 

c 


Bll 

no 

6623 


OIMENS ION PI3I,B t 3),D(3I 

Bl 1 

120 

6624 


DIMENSION fOSim,COS2(3) ,C0S3C3) , XI 3) ,A (3 ) ,VCOS I 3 1 

Bll 

130 

662 5 


OIMENSION G(31 

Bll 

140 

6626 

c 


Bll 

150 

6627 


COMMON/OATAOI/KIK ,KOUT ,KTi «KT2 ,LINEX , LINES 

Bll 

160 

6628 


COMMON/OATA02/IFLGI151 «EXECM15) ,RAO ,PIE 

Bli 

170 

6629 


COMMON/DATAOT/LFLAP,LDRAGiCUTOFI,CUT nf2 

Bl 1 

1 B 0 

6630 

c 


BLL 

190 

6631 


NAN EL IST/0BUGV1/P,B,0,TANA,GA MA,PSIF,VCCS 

Bll 

200 

6632 


NAMELIST/O0UGV2/PSIF,VCOS 

Bll 

210 

6633 


NAMELIST/0BUGV1/PSIF,VCOS 

Bll 

220 

6634 

c 


Bll 

230 

663 5 

1000 

FORMAT!IX,//,IX) 

Bll 

240 

663 6 

c 


Bll 

250 

6637 

c 

XXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXBll 

2 60 

6638 

c 


Bll 

270 

6639 

c 


Bll 

2B0 

66 4 0 

c 


Bll 

290 

6641 


NOTE= IFLGI 101-8 

Bll 

300 

6642 


TANAS- TA N A** 2 

Bll 

310 

6643 


COSA* l.a - TANAS/2.0 

Bll 

320 

6644 


IF (TANAS-0.00011 1020,1010,1010 

Bit 

330 

664 5 

1010 

COSA= l .0/SORT! TANA s* l. 0) 

Bll 

340 

6646 

1020 

SINA* COSA+TANA 

Bll 

350 

664 7 

c 


Bll 

360 

6648 


SC AL F= SORTMD! 1 |-B< l M +* 2+10 ! 2 1-B ( 2 M * *2 + ( D ( 3 1-B (3) 1 **2 ) 

Bll 

370 

6649 


DO 1Q10 K = l,3 

Bll 

380 

6650 


XIK1= |P(K)-0.5*(B(K)+0<K)>)/SCALF 

Bll 

3 90 

665 L 


4 ( K1 - 10.5+CD!KI-BIKJ )) /SCALE 

BIL 

400 

6652 

1030 

vcnsiKi= o.o 

Bll 

410 

6653 

c 


Bll 

420 

6654 

c 


Bll 

430 

6655 

c 


Bll 

440 

6656 

c * 

SEGMENT JNF-A-B * 

Bll 

450 

6657 

c 


Bll 

460 

665 8 


H5 - TANAM X(l) + AllIP 

BU 

470 

6659 

c 


Bll 

480 

6660 


HS1 = (Xfl1+A(tn+*2 ♦ M5**2 

Bll 

490 

6661 


H52 * UI2I*A(2II**2 t |K[3l*i(3l-H5!**2 

Bit 

500 

6662 


HS3 - ( K 1 L i i i »**2 ♦ 1 X12 > + A (2 )) **2 ♦ <X(3l + Ami«*2 

Bll 

510 

6663 


HI = SORTIHSI) 

Bll 

520 

6664 


H2 = S0RTIHS2) 

011 

530 

6665 

c 


811 

540 

6666 


COSG- 0.0 

Bll 

550 

6667 


S TNG* 1.0 

Bll 

5 60 

6668 


Tf ST = CUTOFl - Hi 

Bll 

570 

6669 

c 


Bll 

580 

6670 


IF ITEST) 104 0,1C50,1050 

Bll 

590 

6671 

1040 

CO S G= |HS3-HSt-HS2)/(2.0*Hl*H2) 

Bll 

600 

66 72 


SING* SOR TUBS! 1. C-C 0SG**2 )) 

Bll 

610 

6673 

1050 

CONT INUE 

Bll 

620 

6674 

c 


Bll 

63 0 

6675 


R * H2* SING 

Bll 

640 

66 76 


H4 - H2*C0SG 

Bll 

650 

6677 


SH14* HI + H4 

Bl l 

660 

66 7 8 

c 


Bll 

870 

6679 


PSIF* c i.o + SHH/SQRT! SH 14**2+R**2J l/R 

Bll 

600 

6680 

c 


Bll 

6 90 

6681 


CDSLC1) = COSA 

Bll 

700 

6682 


COSH 2 ) x 0.0 

Bll 

710 

6683 


C0S1I3) = SINA 

Bl 1 

T20 

6604 


CQS2(n = | XIL ) +AIl)-SHI4*C0 5A 1/R 

Bll 

730 

668 5 


C0S2I2) = l XI 2 ) *A { 2 ) 1 /R 

Bll 

740 

666 6 
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onono 


CD52(3 I = ( X<3 )*A(3|-SH14*SI NA I /R 
C 

CALL CROSP( CO5ifC052.COS3J 
C 

00 1060 K*l* 3 

1060 VCOSIKI- PSI F*CC'53< K| 

C 

IF INOTF) 1000,1C70*1 CTO 
1070 WRITE IKDUUIOOOI 

MRITE (KOUT.OBUGVlt 
1090 CONTINUE 


* SEGMENT O-E^INF * 

H5 = TANA*(X<1>-A(111 

c 

HS1 * (Mll-Min«2 ♦ M5**2 
H$2 * < X(2>-A{2I>**2 ♦ C X|3)-A(3I-H5l**2 
HS3 = C Xt 1J-AC 111**2 ♦ C X <2 I - AC 21 1**2 ♦ U(3)-A{3)1**2 
HI = SQRTIhSLI 
H2 = SORT <HS21 
C 

CO SG 3 0.0 
SING- 1.0 

TEST * CUTOfl - HI 
C 

IE (TEST! 1090*1100*1100 
10«0 CO SG* (HS3-HS1-HS2I/(2.0*Hl*H2) 

SING* SQRTUBSI l.C-C0SG**2H 
1100 CONTINUE 
C 

R “ H2* SING 
H4 = H2*C0SG 
SH14= HUH4 
C 

PStf* 1 - 1.0 -SH 14 / 5 QRTtSH 14 ** 2 *R** 2 I l/R 
C 

cosim- cos* 
cnSH21* 0.0 
COSim* SINA 

0052111= < XI l |-AIU-SH14*C0SA l/R 

CO 5212I* I X|2I-A<2) l/R 
CO 52(3 J = I XI3)-A<3l-SHi4*$INA l/R 
C 

CALL CROSP(CnSl,CCS2*C0S3) 

C 

DO 1110 K-1,3 

nia vcosi k i = vcosiki ♦ psif*coS3oci 

c 

IE INOTE I 1130.1120,1120 
1120 WRITE IK3UT,D8UGV21 
1130 CONTINUE 
C 
C 
C 

C * SEGMENT B-C-0 * 

C 

HS 1 * 4 . 0 *( A< 11**2 * A 121**2 «■ AI 3 J **2 I 

HS 2 - txm-Aim **2 * < xm-A{ 2!!**2 ♦ IX C 31 —AC 3 IJ **2 
HS 3 * <xm*ACU )**2 * I XI 2 I *AI 2 M **2 * 1 X( 3 I *M 3 I l **2 
HI - S 3 RTIHS 1 I 
H 2 = SO P T ( H S 2 I 
C 

COSG= <HS3-HSI-HS2)/I2.0*HI*H21 
SING= SORTIABSll*0-C0 SG* *211 
P 5 IF- o.a 

TEST = AQSCSINGI - CUTGF2 
C 

IE ITFSTI 1170*1170,1140 
1140 CONTINUE 
C 

R = H2*SING 
C 

TEST * R/Hl - 1Q.O*CUTOF1 
IE ITFSTI 1170,1170,1150 
USO CONTINUE 
C 

RS * R**Z 
H4 = H2* CD SG 

SH14- Hi*H4 
T l- 1.0 ♦ 2♦ Q*H4 /H1 

PS IF* (SH14/SQRT(SH14**2*RSI -H4/SQRT |H4**2*RS I ) / R 
C 

DO 1160 X -1* 3 
G( K 1 = A C K I * T1 
C3SHKI- I GIK l-XIKl l/R 
1160 C0S2IK1- -2.0*A(K>/H1 
C 

CALL CROSP(C05l,COS2*COS3l 
C 

1170 CONTINUF 
C 

V2* a.o 
C 

DO 1180 K = 1* 3 

VCOSIK1= VCOSIKI * P51F *CGS3(K1 
1180 V2- V2 + VCOSIK 1**2 
C 

IF (NOTE 1 1200,1150,1190 
1190 WRITE < KOUT ,08 UG 31 
LINES* L1NEX - 10 
1200 CONTINUE 
C 


011 

750 

6607 

911 

760 

66 66 

Bll 

770 

66 69 

en 

700 

6690 

all 

790 

6691 

811 

BOO 

6692 

011 

810 

6693 

011 

020 

6694 

Bll 

8 30 

6695 

011 

840 

6696 

Bll 

650 

6697 

Bll 

860 

6696 

011 

870 

6699 

Bll 

8 BO 

6700 

Bll 

890 

6701 

811 

900 

6702 

Bll 

910 

6703 

811 

920 

6704 

Bll 

930 

6705 

Bll 

940 

6706 

011 

950 

6707 

Bll 

960 

6708 

Bll 

970 

6709 

Bll 

980 

6710 

Bll 

990 

6711 

dll 

1000 

6712 

Bll 

1010 

6713 

Bll 

1020 

6714 

811 

1030 

6715 

811 

1040 

6716 

Bll 

1050 

6717 

Bll 

1060 

6718 

011 

1070 

6719 

Bll 

1080 

6720 

Bll 

1090 

6721 

Bll 

1100 

6722 

Bll 

1110 

6723 

011 

1120 

6724 

Bll 

1130 

6725 

Bll 

1140 

6726 

611 

1150 

6727 

011 

1160 

6728 

BU 

1170 

6729 

Bll 

1180 

6730 

Bit 

1190 

6731 

Bll 

1200 

6732 

Bll 

1210 

6733 

BU 

1220 

6734 

Bll 

1230 

6735 

011 

1240 

6736 

Bll 

12 50 

6737 

011 

12 60 

6738 

Bll 

1270 

6739 

Bll 

1260 

6740 

B1L 

1290 

6741 

Bll 

1300 

6742 

Bll 

1310 

6743 

Bll 

1320 

6744 

Bll 

1330 

6745 

Bll 

1340 

6746 

611 

1350 

6747 

BU 

1360 

6740 

B1L 

1370 

6749 

Bll 

1300 

6750 

911 

1390 

6751 

811 

1400 

67 52 

Bll 

1410 

6753 

811 

1420 

6754 

011 

1430 

6755 

BU 

1440 

6756 

Bll 

1450 

6757 

011 

1460 

6750 

BU 

1470 

6759 


BU 

14B0 

6760 

Bll 

1490 

6761 

Bll 

1500 

6762 

311 

1510 

6763 

Bll 

1520 

8764 

Bll 

1530 

6765 

Bll 

1540 

6766 

811 

1550 

6767 

011 

1560 

6760 

311 

1570 

6769 

nil 

1580 

6770 

BU 

1590 

6771 

BU 

1600 

67 72 

011 

1610 

6773 

Bl l 

1620 

6774 

Bll 

1630 

6775 

Bll 

1640 

6776 

Bll 

1650 

67T7 


BU 

1660 

677 8 

Bll 

1670 

6779 

BU 

1680 

6780 

Bll 

1690 

67 81 


Bll 

1700 

6762 

Bll 

1710 

6783 

Bll 

1720 

6784 

BIX 

L730 

6705 

Bll 

1740 

6786 

811 

L750 

6767 

Bl l 

1760 

6788 

011 

17 TO 

6789 

BU 

1700 

6790 

BU 

1790 

6791 

Bll 

1 BOO 

6792 
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vt= SQRTIV2I 
00 1210 K = l,3 
1210 VCOStM= VCOSIKI/VI 

VI* VT*(GAMA/SCALEI 


RETURN 

xxxxxx 

END 


FOR B12,612 


? FOR 
C 
C 
C 

C 

C 

C * 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

1000 

1010 

1020 

1030 

1040 

1050 

lOfcO 

c 

c 

c 


sue* OUT HE PEFLEC (P,ZL»ALFAfi»C05RJ 

* TRW MULT IPLE-SIRFACE VORTEX-LATTICF 

* PROGRAM DEVELOPED BY A.V.GGMEZ (TRW 


PROGRAM - REVISED 8 AUG.72 
SYSTEMS) ON MARCH-MAY 19?1 


01 MENS ION P f 31 

COMMON/DAT A01/K.I N ,KOUT ,KTl ,KT2 ,LtNEX ,LINES 

COMMON /0ATAO2/IFLGI 151 ,EXECK<15> , RAD ,PIE 

NAMELIST/REFLEX/PX,PY,X1,YI,PHI,ALFAR,RX,RY, ZL,COSR 
DATA X2/0.0/, Y2i-0.0/ 


1000 

1010 


1020 

1030 


PX* P(3 I 

PV* Pill 

Xl= 2L/CQSR 

Y l * 0.0 

PH!= -ALFAR 

NUT E = IFLG(101-If 

CALL ROTATE(PX.PY,XI,Yl,PHI,X2,Y2,RX,RYI 

IF INOTE) 1010,1C10,LOGO 
WRITE (KOUT,REFLEX) 

CONTINUE 

R X =—R X 

CALL ROTATE(RX,RY,X2,Y2,ALFAft,XI,Yl,PX, PY) 

If CNOTE) 1030, IC30,1020 
WRITE IXOUT,REFLEX) 

LINES* LINES+24 
CONTINUE 


PX 

PY 


P< 3)* 
P( I)» 

RETURN 

XXXXXX 

END 


813,R13 


SUBROUTINE OMATIMA ,N,DETERM1 

MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 
VERSION 2 ROUTINE IDOUBIE PRFClSSION-LANGLEY MAT INV SUBROUTINE) * 


XXXXXXXXXXXXXXXXXXXXXXXXX.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

DOUBLE PRECISION R1,R2,DE TERM ,A PAX,T,SWAP,PIvOT,PIVOTI 
DCHlftl. F PR EC IS! ON IP! YOT f?l) f A(7l T 71} ,811,1, , INDEX 171 25 
EQUIVALENCE <IRCW,JROW>, UCOLUmJ JCOLUM > T C AMAX , T , SWAP) 

M = 0 

XXXXXKXXXXXXXXXX >XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


1070 

lOflO 

1090 

1100 

1110 


IN ITIALIZA TION 

ISCALE-0 
RI " WE 36 
« 2 “ 1.0 /P l 
OETERM^ L ,0 
DO 1050 J = l,N 
IPIVOTIJ|=0 
DO 1630 1*1,N 

SEAPCH FOR pivot element 

AM A X*0,0 
nn 1170 J= i,N 

IF f lPIVDT f J)- l) 1100,1 170,1100 

no 1160 K * 1,N 

IF I IPIVOTIK)- 1) 1120,1160,1750 


BLl 

1010 

6793 

Bl 1 

1020 

6794 

811 

1830 

6795 

BU 

1840 

6796 

Bll 

1950 

6797 

B11 

I860 

6798 

811 

1870 

6799 

911 

1000 

6600 

an 

1S0O 

6001 

BU 

1900 

6602 

912 

to 

6603 

812 

20 

6604 

B12 

30 

6805 

B12 

40 

6606 

B12 

50 

6007 

812 

60 

6008 

*812 

70 

6609 

*612 

80 

6B10 

B12 

90 

6811 

XX B12 

100 

6612 

912 

110 

6813 

812 

120 

6014 

812 

L 30 

6815 

R12 

140 

6816 

ai 2 

150 

6817 

R12 

160 

6618 

B12 

170 

6819 

(X B12 

180 

6820 

812 

190 

6621 

D12 

200 

6822 

812 

210 

682 3 

812 

220 

6824 

812 

230 

6625 

812 

240 

6826 

812 

250 

6827 

812 

260 

6628 

B12 

2 70 

6829 

B12 

260 

6830 

812 

290 

6031 

BIZ 

300 

6832 

812 

310 

6833 

B12 

320 

6034 

B12 

330 

6835 

BIZ 

340 

6836 

812 

350 

603? 

812 

360 

6838 

B12 

370 

6039 

812 

3 80 

6840 

812 

390 

6841 

812 

400 

6042 

812 

410 

6043 

812 

420 

684-4 

012 

430 

6845 

912 

440 

6846 

812 

450 

6847 

012 

460 

684 6 

B12 

4 70 

6849 

B12 

480 

6050 

812 

490 

68 51 

B12 

500 

69 52 

B13 

10 

6853 

B13 

20 

6854 

613 

30 

6855 

Bi 3 

40 

6656 

B13 

50 

6857 

B13 

60 

6858 

613 

70 

6659 

■ B13 

80 

68 60 

Bl 3 

90 

6861 

*B13 

100 

6862 

*B13 

no 

6863 

B13 

120 

6864 

X B l 3 

130 

6665 

Bl 3 

140 

6866 

513 

150 

6867 

013 

160 

6S69 

B13 

170 

6669 

813 

160 

68 70 

813 

190 

6871 

X B13 

200 

68 72 

813 

210 

68 73 

013 

2 20 

6874 

ai3 

2 30 

6875 

913 

240 

6676 

913 

250 

6677 

913 

260 

6878 

913 

270 

6879 

B13 

280 

6880 

R13 

290 

6861 

R13 

300 

6882 

913 

310 

6883 

813 

320 

66 84 

B1 3 

330 

6885 

813 

340 

68 86 

B13 

350 

6607 

913 

360 

6888 

B13 

370 

60 8 9 

813 

3 80 

6890 

B13 

390 

6091 

B13 

400 

6892 
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1L20 IF 1 DAB5< AMAX|-DA6$(A ( J ,K)) 1 1130,1160,1160 

1130 IROW-J 

1140 ICOLUM-K 

1150 AMAX»A(J,KI 

1160 CONTINUE 

1170 CONTINUE 

IF {AMAX) 1190,1160,1190 
1180 DETERM*0.0 
ISCALE-Q 
GO TO 1750 
C XKXXXX 

C 

c 

U90 IP IVOT< ICOLIJM mPlVQTtlCOLUMH-l 

C 

C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

C 

1200 IF ( IROW-TCQLUNl 1210,1310,1210 

1210 OETERM*-OFTERM 

1220 DO 1250 L 3 1,N 

1230 SWAP*A( HDW,L 1 

1240 M IRON*!1 3 A(TCOLLP,LI 

1250 A(IcnLUM,LJ-SWAP 


C 

c 

1260 IF (MI 1310,1310,1270 
1270 DO 1300 L = 1,M 
1280 SWAP»0( IRON,LI 
12*30 R< IROW,L >*BUCOHJF,LI 
1300 0( ICOLUN,L INSWAP 
1310 IN DEX (1,11-IROH 
1320 INDEX! 1,2I=ICQLUM 
1330 PI VOT-AUCOLUM, 1CGLUMI 

IF (PIVOT! 1340,1100,1340 


C 

C SCALE THE DETERMINANT 

c 


1340 PIVOTI=P1VGT 
1350 IF (DABS!DETERM I-Rll 
1360 OE TEPM-DE TERM/R 1 
ISCAL E*1SCALE♦! 

If (DAflSIDET6RM 1-A11 
1370 0ETERM-DETERM/R1 
ISCALf = ISCALE* l 
GO TO 1410 

1380 IF (GABS!0ETERM I -R 21 
1390 DETERM*DE TFRM*Rl 
ISCALE* 1SCALE- l 
IF (DA8SIDETERMI-R2I 
1400 DETERM-DETE8M4RL 
(SCALE 3 I SCALE*1 
1410 IF (DABS!PIVOTl I-Rll 
1420 PIV0TI-PIV0T1/RL 
I SCALE*ISCALE*l 
IF (0ABSCPIV0TII-R11 


1360,1360,1360 
1410,1370,1370 

1390.1390.1410 

1400.1400.1410 
1440,1420,1420 
1470,1430,1430 


1430 P!V0TI 3 P!V0TI/R1 
ISCAL F 3 ISCALE+1 
GO Tfl 1470 

1440 IF (OABS( PIV0TM-R2I 1450,1450,1470 
1450 P1V0TI~PIVQTI*R l 
ISCALE-ISCALE-I 

IF 1 OABSI PIVDTU-R2I 1460,1460,1470 
1460 PIVOTl*PIVDTI*RI 
I SCALE* l SCALE- l 
1470 OETFRM-OE TERM4P I VOTI 


C 

c DIVIDE PIVDT ROW BY PIVOT ELEMENT 

C 

1460 A{ ICOLUM,IC0LUMI 3 1,0 
1490 DO 1500 L = itN 
1500 At ICT1LUM,L j-aucclum ? li/pivot 
C 
C 

1510 IF (MI 1540,1540,1520 
1520 DO 1530 L = 1 » M 

1530 B< !CniUM,L1=8{ICCLUM,LI/PIVOT 
C 

C REDUCE NON-PIVOT ROWS 

C 

1540 DD 1630 Lt“l,N 

1550 IF (ll-ICOLUMI 1560,1630,1560 

1560 T=A(Li,IC0LUM1 

1570 A(LI,ICQLUM 1*0.0 

1500 OD 1590 LM,N 

1590 A(Ll,L WAUUU-AUCOLUM, LI*T 

c 

c 

1600 IF (MI 1630,1630,1610 
1610 00 1620 t=l,M 

1620 B( L1,L I -B( l l,U-9 (ICOLUMtU *T 
1630 CI1NT INUE 
C 

C INTERCHANGE COLUMNS 

C 

1640 DO 1740 1*1.N 
1650 L = N ♦ 1- I 

1660 IF { IN0EX<LtII-I5DEX(L ,2 I) 16 70,1740,1670 

1670 JROW-INOEXIL,II 

1680 JC0LUM*IN0EX(L,2 I 

1690 DD 1730 K-1,N 

1700 SWAP=A(K,JROWI 

lTlO A(K,JPOWI*A(K,JC0LUM1 

1720 A(K,JCOLUM|=SWAP 

1730 CD NT INUE 

1740 CONTINUE 

1750 RETURN 


B13 

410 

013 

420 

813 

430 

813 

440 

813 

450 

013 

460 

813 

470 

813 

460 

013 

490 

013 

500 

013 

510 

813 

520 

613 

530 

B13 

540 

813 

550 

B13 

560 

013 

570 

813 

5 80 

BL3 

590 

813 

600 

813 

610 

813 

620 

Bl 3 

630 

913 

640 

813 

650 

813 

660 

013 

670 

813 

6 80 

813 

690 

813 

700 

Bl 3 

710 

813 

720 

Bl 3 

730 

B13 

740 

B13 

750 

613 

760 

613 

770 

813 

780 

613 

790 

613 

000 

613 

810 

B13 

820 

813 

830 

813 

840 

B13 

850 

613 

860 

813 

870 

813 

8 80 

813 

890 

813 

900 

813 

910 

813 

920 

813 

930 

813 

940 

813 

950 

813 

960 

B13 

9 TO 

813 

9 BO 

B13 

990 

813 

1000 

013 

1010 

813 

1020 

LU 3 

1030 

B13 

1040 

813 

1050 

B13 

1060 

Bl 3 

1070 

813 

1080 

813 

1090 

813 

1100 

813 

1110 

613 

1120 

Bl 3 

1130 

813 

1140 

813 

1150 

B13 

1160 

813 

1170 

613 

1180 

813 

1190 

B1 3 

12 00 

B1 3 

1210 

B13 

1220 

013 

1230 

B1 3 

1240 

613 

1250 

813 

1260 

813 

1270 

B l 3 

12 80 

013 

1290 

813 

1300 

813 

1310 

813 

1320 

Bl 3 

1330 

813 

1340 

B13 

1350 

Bl 3 

1360 

813 

1370 

813 

1380 

B13 

1390 

813 

1400 

Bl 3 

1410 

B13 

1420 

813 

1430 

BL3 

1440 

B L 3 

1450 

613 

1460 


6893 

6894 
6893 
6896 
6847 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 
6906 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 
692 5 

6926 

6927 
6926 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 
69 39 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 
4950 
6951 
69 52 
6953 
69 54 
6955 
69 56 
69 5 7 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 
69 67 
69 68 

6969 

6970 

6971 

6972 

6973 

6974 

6975 
697b 

6977 

6978 
69 79 
6960 
69 81 

6982 

6983 

6984 

6985 

6986 

6987 

6988 
69B9 

6990 

6991 

6992 

6993 

6994 
699 5 
699 6 

6997 

6998 


9-67 



c xxxxxx 
c 

FNC 


B13 1470 6999 
B13 1480 7000 
B13 1490 7001 


? FOR 

914,B14 




B14 

10 

7 002 

C 





614 

20 

7003 

C 





B14 

30 

7004 

C 





914 

40 

7005 


subroutine DOTPiA*a t c» 




914 

50 

7006 

c 





814 

60 

7007 

c 

* TPW MULTIPLE-SURFACE 

VORTEX-LATTICE 

PROGRAM 

- REVISED 8 AUG-72 

*BL4 

70 

7008 

c 

* PROGRAM DEVELOPED BY 

A- V.GOME Z ITEM 

SYSTEMS) 

ON MARCH-MAY 1971 

*B14 

80 

7009 


C 014 90 7010 

C XXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXKXXB14 100 7011 


t 


B14 

110 

7012 


DIMENSION A(3 f , B < 3 ) 

614 

120 

7013 


C* Alll*B(|l+ A ( 2►*BC 2)♦ AI3I*B<3) 

614 

130 

7014 

c 


614 

140 

7015 


RETURN 

014 

150 

7016 

c 

XXXXXX 

014 

160 

7017 

c 


614 

170 

7018 


END 

914 

1 BO 

7019 


V 

FOR fl 1 5, B l 5 


615 

10 

7020 

C 



B15 

20 

7021 

c 



BI5 

30 

7022 

c 



BI5 

40 

7023 


SUBROUTINE CRQSP( A ,R f C ) 


815 

50 

7024 

c 



B15 

60 

7025 

c 

* TRW MULTIPLE-SURFACE VORTEX-LATTICE 

PROGRAM - REVISED 8 AUG.72 

*B15 

TO 

7026 

c 

* PROGRAM DEVELOPED BY A.V.GCMEZ 1TRW 

SYSTEMS) ON MARCH-MAY 1971 

*B15 

80 

702 7 

c 



815 

90 

7028 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXB15 

100 

7029 

c 



B15 

110 

7030 


DIMENSION A<3),a(31,0(31 


615 

120 

7031 

c 



B15 

130 

7032 


C(ll = AC Z )*R 13) - A C 3)*B(2) 


B15 

140 

7033 


CC 21* AC 3)*R< n - A(l)*B(3l 


B15 

150 

7034 


C(31= AC 1)*0(2 > - A(2)*B(11 


B15 

160 

703 5 

c 



B15 

170 

7036 


RETURN 


B15 

180 

7037 

c 

xxxxxx 


615 

190 

703 8 

c 

END 


B15 

200 

7039 



B15 

210 

7040 


v FDR 

B|6,B16 



B16 

10 

7041 

C 




816 

20 

7042 

C 




B16 

30 

7043 

c 




616 

40 

7044 


SUBROUTINE ROTATE! X,Y, XO,VC, PHI, 

XF,YF » XT *YT 

1 

RI6 

50 

704 5 

c 




Bl 6 

60 

7046 

c 

* TRW MULTIPLE-SLRFACE VORTEX-LATTICE 

PROGRAM - REVISED 8 AUG.72 

* Bl 6 

70 

704 7 

c 

* PROGRAM DEVELOPED BY A« V.GOME 2 (TRW 

SYSTEMS! ON 

MARCH-MAY 1971 

• Bl 6 

SO 

7048 

c 




B16 

90 

7049 

c 

XXXXXX XXX XXKXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXB16 

100 

7050 

c 




R16 

no 

7051 


XS * x-xo 



B16 

120 

7052 


YS - Y-YD 



016 

130 

7053 


RHn~ SORT! X5**2 ♦ YS**2) 



B16 

140 

7054 


ERROR* 0.0001 



B16 

150 

7055 


TFSTX= AB 5(XSI-ERROR 



Bl 6 

160 

7056 


TESTY* AB S(YSl-ERROR 



916 

170 

7057 


IF (TFSTXJ 1000 p1000, 103 0 



B16 

190 

7058 

1000 

IF {TESTY) 1010,1010,1020 



Bl 6 

190 

7059 

1010 

7ET= 0.0 



B l 6 

200 

7060 


GO TO UlO 



B 16 

210 

7061 

1020 

ZET* 1-570795*1YS/ABSCYS>) - XS/YS 



B16 

220 

7062 


GO TO UIO 



B 16 

230 

7063 

1030 

ZET = ABSCYS/XS) 



316 

240 

7064 


IF (TESTY) 1050»1C50,1040 



B16 

250 

706 5 

1040 

ZET=ATAN(ZF T) 



016 

260 

7066 

1050 

CDNT INUE 



016 

270 

7067 


IF IXS) 10 7 0,1060,106 0 



BI6 

2B0 

706 8 

1060 

IF (YS) 1 100, U1C, 1110 



916 

290 

7069 

1070 

IF (YS) 1090,109C,10fl0 



916 

300 

7070 

1080 

ZET* 3.14159 - /FT 



916 

310 

7071 


GO TO mo 



016 

320 

7072 

1090 

ZET= 3-14159 ♦ ZET 



Bt6 

330 

7073 


GO TO 1110 



816 

340 

7074 

1100 

ZET* 6.2B31B - ZET 



0 16 

350 

7075 

mo 

CONTINUE 



916 

360 

7076 


ZPP* PHI + /FT 



316 

370 

7077 


XR = PHn*COS< ZPP ) 



Bl 6 

380 

7070 


YR « RHQ*SINCZPP) 



916 

39Q 

7079 


XT* XF ♦ XR 



316 

400 

7080 


YT* YF ♦ yq 



016 

410 

7081 

c 




B16 

420 

7082 


RETURN 



916 

43 0 

7083 

c 

xxxxxx 



816 

44 0 

7084 

c 




816 

450 

7085 


FN 0 



816 

460 

7086 


V FOP 

017,317 g|^ 

10 

7087 

C 

017 

20 

7008 

c 

BIT 

30 

7089 

c 

017 

40 

7090 


SUBROUTINE CURFIT(X,Y,A, N, DY1*0Y2, K1,K2) BIT 

50 

709! 

c 

BIT 

60 

7092 


9-68 



o^nnnnnnno nnorvoooor»r>nno n n n o o 


• TP H MULTIPLE-SLftFACE VQRTEX-LATtlCE PROGRAM - REVISED 0 AUk.72 *61? 

* PROGRAM DEVELOPED BY A.V. GOMEZ ITRM SYSTEMS) ON MARCH-MAY 1971 *81? 

B17 

XXXXXXXXXXXXXXKXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXBIT 

017 

DIMENSION X<22) ,Y(22)*AI42),61421*0111 817 

********+****♦**♦*•********•******•**+ BIT 

BIT 

XXXKXXXXXXXXXXXX*XXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXB17 

81 7 

, FOR THE WHOLE TABULATED TABLE fl } 7 

X(I) = tNDEPENOENT VAR IA0 L£.t-ifN (GIVEN) BL7 

Y( I | * DEPENDENT VARIABLE»♦ ,».I*1iN (GIVEN) B17 

N * LENGTH OF Y-VS-X TABLE IGIVEN) BJ 7 

DY 1 = 1ST OR 2ND DERIVATIVE AT LONER ENO OP TABLE B1‘ 

OY2 = 1ST OR 2ND DERIVATIVE AT UPPER ENO OF TABLE Bl? 


1ST DERIVATIVE 
2ND DERIVATIVE 
1ST DERI VAT! VE 
2ND DERIVATIVE 


(GIVEN) 

(GIVEN) 

(GIVEN) 

(GIVEN) 


THE DIMENSION C(l> MUST FOLLOWS THE DIMENSION OF 8 
MINIMUM DIMENSION OF 0 IS..(2*N-2! 

DTMENStDN OF A IS SAME AS B, BUT GIVEN IN MAIN PROGRAM 


XXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXBIT 

BIT 

017 


70*3 

7094 

70*5 

7096 

7097 
7090 

7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

not 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 
71 IB 

7119 

7120 

7121 

7122 


C( 11-0.0 
NRNG= 100 
C 

N 1 = N-2 

Cl * X(2)-X{ 1) 

IF (Cl) 1170.1170,1000 
1000 GO TO (1010,1020).K1 
1010 Rfl) * 0.0 

All) » (DYl-<Y( 2 >-Y(III/C1)/Cl 
GO TO 1030 
1020 0(lI * -Cl 

All) - -DY 1/2.0 
1030 J * 1 
C 

IF (Nl) 1150,1090,1040 
1040 IF INPNG-N) 1150,1050,1050 

c 

1050 DO 1060 T- 1»N1 
K a t + 1 
J = J 1 

Cl * X IK I- X 11 I 
C2 * X(K*il-X(K) 

C3 * YlK)-Y(I) 

C4 * YlK+ll-YIKI 
C5 = C 3/CI-C4/C2 
C6 » C1/C2 
C7 » C l*C2 

nui = 1 . 0 /IC 6 * (Cl-81 J-1) II 
A(J| = (C 5/C 2-C 6*AC J-111 * BlJ) 

J - J+l 

0(JI = 1.0/1 (-CI-C2I/C 7-C 6*8 ( J- i) 1 
A J J ) al-C 5/C7-C6 + A(J-m*0( J) 

1060 CONTINUE 

c 

GO TO (1070,1030),K2 

1070 AIJUI = I 0Y2-C4/C2+C 2*A(J1 |/(C2*I0CJI-C2II 
GO TO 1120 

1080 A( J ♦ l) = IDY2/2.*A(J))/l-Z.*C2+BIJ)) 

GO TO 1120 
C 

c STATEMENTS 42 TO 44 ARE FOR N«2 ONLY 

C 

1090 C3 " K L 

CZ = 1.0/C3 

GO TH (1100,1110),K2 

1100 A1J+1I * ((Y(2l-Y(l))/C1“A(J(*Cl-DY2l/ICl*Cll*C2 
GD TO 1120 

1110 ACJ + 1) = C3*M DY2+2.0MA (1 J)/(4. OMCl 11 
C 

1120 J - 2*(N-1) 

C 

1130 J = J-l 

IF (J) 1170.1170,1140 
1140 AI J) = A(J)-B(J)*A|J411 
GO TO 1130 
C 

c 

1150 WRITE I 6,1160)N,NRNG 
C CALL EXIT 

U6D F3PM4TI4H0N =T5,2X9H!N CURFJT/31H.N MUST BE IN THE RANGE 

1 13HBETWEEN 2 AND I 5/3 9H 0* 1 NCR E A SE DIMENSION OF 0 IN CORF IT 

2 19FIF N IS TOC LARGE /12H0B = 2MN-1) ) 

U7D RETURN 

C 

c xxxxxx 

c 

END 



V FDR 818,018 
C 
C 
C 

SUBROUTINE CURVE(X,Y»A, XP,YP,0YP,N, I T ► 

C 


BIS 

10 

7190 

BIB 

20 

7191 

818 

30 

7192 

018 

40 

7193 

bis 

50 

7194 

Bl 3 

60 

7195 


9-69 
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* TRW MULTIPLE-SLRFACE V0RTFX-LATT1CE PROGRAM - REVISED 

8 AUG.72 

*810 

70 

7196 


* PROGRAM OEVELOPED BY A.V.GDHE2 (TRW SYSTEMS 1 QN MARCH- 

MAY 1971 

*B18 

90 

7197 




BIS 

90 

7196 

XXXXXXKXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX&IB 

100 

7199 




B18 

110 

7200 


01 MENS ION XI22),Y<22>,A(42I 


B18 

120 

7201 


*************************** 


818 

130 

7202 




819 

140 

7203 


XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXB18 

150 

7204 




Bid 

160 

7205 

■ m ■ * 

■ USING Am COMPUTED IN CURF1T SUBROUTINE 


B10 

170 

7206 


XP * A PARTICULAR VALUE OF -X- IGIVENI 


bis 

180 

7207 


YP = A PARTICULAR VALUE OF -Y- 


BIB 

190 

7208 


DYP * DY/OX AT -XP- 


BIB 

200 

7209 


IT * EFFICIENCY CCNTROL INDEX (GIVEN) 


618 

210 

7210 


IT - 1 .ONLY YP IS COMPUTED 


810 

220 

7211 


IT » 2.ONLY OYP IS COMPUTED 


bis 

230 

7212 


IT * 3. • * »♦BOTH YP AND OYP ARE COMPUTED 


818 

240 

7213 




818 

250 

72J4 


XXXXXXXXXXXXXX XJXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXB18 

260 

7215 




518 

2 70 

7216 




818 

200 

7217 




aia 

290 

7210 


IF |Xli)-XP) 1020*1 02 Of 1 000 


B1 8 

300 

7219 

1000 

Cl * XI2I-XI n 


BIB 

310 

7220 


OYP - < Y<2)-Y{I))/C1*Am*ci 


810 

320 

7221 


GD TO (1010,1100,10101,1T 


618 

330 

7222 

1010 

YP » Y( 1)*DYP*IXP-X<11) 


B18 

340 

7223 


GO TO 1100 


618 

350 

7224 

1020 

N 3 N 


B18 

360 

7225 


IF 1XP-XIN 1J 10SC,1030,1030 


BIB 

370 

7226 

1030 

N2 = 2*IN-l| 


818 

3S0 

7227 


Cl = X(N)-X(N-1) 


618 

390 

7220 


OYP = 1 YIN l-YIN-1 M/Cl-AI N2-1) *C1-A| N2I *Cl*Cl 


818 

400 

7229 


GO TO 11040,1100,1040),tT 


816 

410 

7230 

1040 

YP * Y(Nt*DYP*(XP-X(NJ) 


BIS 

420 

7231 


GO TO 1100 


BIB 

430 

7232 

1050 

1 * 1 


BIB 

440 

72 33 

1060 

1 - 1*1 


810 

450 

72 34 


IF ixm-XPI 106C,1070,1070 


816 

460 

7235 

1070 

K = 2*1-3 


Bie 

470 

7236 


ci = xp-xu-ii 


BIB 

480 

7237 


C 2 * xm-xp 


B18 

490 

72 3 9 


SLOPF = ( YUl-YlI-ll J/Ixm-XII-1) | 


618 

500 

7239 


GO TO | 1080,1090,10B0) , I T 


618 

510 

7240 

1080 

YP * Yl I - l ) ♦(SLOPE*A4 K|*C2*A(K*ll*Cl*C2 )*Cl 


BIB 

520 

7241 


GO TO 11100,1090,10901 ,TT 


BIS 

530 

72 42 

1090 

□VP - SLOPE *A(K )*IC2-C1 )♦ A{K*1I*I 2.*C2-Ci > *C1 


618 

540 

7243 

1100 

RETURN 


BIB 

550 

72 44 


X XXX XX 


BIB 

560 

7245 




618 

570 

7246 


END 


Bl 8 

580 

7247 


' FDR B19,ft 19 

B19 

10 

7240 


619 

20 

7249 


819 

30 

7250 


019 

40 

7251 

subroutine page 

B19 

50 

7252 

* TRW MULTIPLE-SLRFACE VORTEX-LATTICE PROGRAM - REVISED 0 AUG.72 

Bl 9 

60 

72 53 

*B19 

TO 

7254 

* PROGRAM DEVELOPED BY A.V.GOME l (TRW SYSTEMS) ON MARCH-MAY 1971 

• Bl 9 

80 

7255 


Bl 9 

90 

7256 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXX XXX XXXX XXXX XXXX X XKXX XX X B19 

100 

7257 


S19 

110 

72 56 

COMMON/OATAOO/NSIL ,ALFA C ,CMAK T ZHO •FlAPDX,A ILftOX(2) 

B19 

120 

7259 

* ,T(TLEI14I .STORE 114) 

B19 

130 

7260 


B19 

140 

7261 

COMMON/DATAOL/KIN ,KOUT ,KTl , KT2 ,LINEX .LINES 

919 

150 

7262 


ft 19 

160 

7263 

CDMMON/DATA02/IFLG( 15) ,EXECKU5> , RAD ,PIE 

919 

170 

7264 


B19 

180 

7265 

1000 FDRHATI38H1JOBFLAG 123456789 10,2X,13A6,A 2,3X, 

Bl 9 

190 

7266 

B19 

200 

7267 

1 4HPAGE,/,2K,5HVALUE,IX,l013,2X, 

819 

210 

7268 

2 5HALFAa p F6.2,2X, 7 hMACHN0*,F6.4 ,2 X.6HFLAPD= , F6 .2,2X ,9HAILEROND", 

B19 

220 

7269 

3 2F6.2,2X,9HAL Tt1U0£=,F6.2,2 X,I 4, ft ,1XI 

019 

230 

7270 


919 

240 

7271 


919 

2 50 

7272 

XXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXB19 

260 

72 73 


019 

270 

7274 


919 

2B0 

7275 

IF INSTU-19711 IC10,1020,1010 

ft 1 9 

290 

7276 

1010 NSTU= 1971 

B19 

300 

7277 

NP - 0 

B19 

310 

7278 

1020 NP= NP* l 

B19 

320 

7279 

WRITE iKOUT,1000)(TITLE(M,1=1,141,11FtG<I),1=1,101,ALFAD,CMAK, FLA019 

330 

7200 

lPDXtlAlLROXU) ,1*1,2) ,ZHO,NP 

019 

340 

7261 

LINE S= 5 

B19 

350 

72 62 


019 

360 

7263 

RETURN 

B19 

370 

7284 

xxxxxx 

B l 9 

360 

7265 

END 

B19 

390 

7286 

019 

400 

7287 


FOR 820,820 




R20 

10 

7208 





820 

20 

72 89 





620 

30 

7290 

HA IN ROUTINE 




620 

40 

7291 




820 

50 

7292 

TEST MATRIX INVERSION 




020 

60 

7293 

* TRW MULTIPLE-SLRFAC E 




020 

70 

7294 

VORTEX-LATTICE 

PROGRAM 

- REVIS ED 6 AUG.72 

*920 

90 

7295 

* PROGRAM DEVELOPED RY 

A. V.GCIME L (TRW 

SYSTEMS) 

ON MARCH-MAY 1971 

*620 

90 

7296 





020 

100 

7297 


9-70 







c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX020 

110 

7290 

c 


B20 

120 

7299 


DOUBLE PRECISION 0ELTA,AMAT<71,711 ,0MAT(7l,7l> , CM AT<71,71) 

020 

130 

7300 

iOCIO 

FORMAT!11QX,t5,2F14.4 ) J 

B20 

140 

7301 

1010 

FORMAT! IX,/,IX | 

B20 

150 

7302 

1020 

FORMAT { ( 10 X, 51 1PF14.6| 11 

B20 

160 

7303 

c. 


020 

170 

7304 

c 

XXXXXXXXXK SXXXXXXXXXX XXXXXXXXXX XX XXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXX B20 

160 

7305 

c 


620 

190 

730* 

c 

- 

82 0 

200 

7307 

c 


620 

210 

7308 


NOR* 5 

B20 

220 

7309 

c 


B20 

230 

7310 


AM AT( 1 , 1 1 » 1.0 32 

B20 

240 

7311 


AMATU.2) = 7.865 

B20 

250 

7312 


AMAT 11,31 * 3.21ft 

620 

260 

7313 


AMATl1,41 * 3.031 

620 

270 

7314 


AMATl1,51 » 10.32 

620 

280 

7315 


AHAT12,l> =7,68 

620 

290 

731* 


AMATl2 t 2) = —6.3R 

620 

300 

7317 


AMAT(2,31 - 8.ROC 

820 

310 

7318 


AMAT(2,4l = -1.02 

B20 

320 

7319 


AM A Tl2,51 * 5.69C 

020 

330 

7320 


AMATl3,11 = 3.030 

020 

340 

7321 


AMATO,21 = -3.3e 

620 

350 

7322 


AMATO, 31 = -11.67 

B20 

360 

7323 


AMATO,41 = 4.180 

B20 

370 

7324 


AMATl3,51 = -3.60 

B20 

380 

7325 


AMAT(4,11 =-2.93 

B20 

390 

732* 


AM AT(4,21 = 3.67C 

B20 

400 

7327 


AM AT(A,31 = 8.323 

B20 

410 

7328 


AMAT(4,4I = 9.072 

B20 

420 

7329 


AMAT14.51 a 0.0378 

020 

430 

7330 


AMATO, 11 a -.0578 

820 

440 

7331 


AM ATl5,21 = 7.103 

82 0 

450 

7332 


AMATl5,31 = 9.992 

B20 

460 

7333 


AMATO, 41 =« 0.9 7E 

B20 

470 

7334 


AMATO,51 - 15.14 

62 0 

480 

7335 

c 


820 

490 

733* 


00 1040 J = 1,NOR 

B20 

500 

7337 


DO 1030 KM,NOR 

B20 

510 

7338 

1030 

RMATIJ *K)= AMATIJ, K| 

B20 

520 

7339 

1040 

CDNT 1NUE 

B20 

530 

7340 

c 


920 

540 

7341 


call dmatini9mat,nor,oeltai 

B20 

550 

7342 

c 


B20 

560 

7343 


nn 1070 K- 1 ,nqr 

B20 

570 

7344 


00 1060 Jsl.NOR 

620 

580 

7345 


CMAT(J,KI= 0.0 

B2D 

590 

7346 


DO 105 0 LM,NOR 

020 

600 

7347 

10 50 

CMATIJ.XI- CMAT(J,K1 ♦ AMATl J,U*0MATIL,K1 

B20 

610 

7348 

1060 

C0NTINUE 

B20 

62 0 

7349 

1070 

CONT TNUE 

82 0 

630 

7350 

C 


820 

640 

7351 


CALL PAGE 

B20 

650 

7352 


WRITE 16. 10201KAMATI J,KJ , J = l ,NCRl ,K=1 , NORl 

B20 

660 

7353 


WRITE 16,10101 

320 

670 

7354 


WR ITE O,10201 <(RMATIJ,Kl , J=L,NCRI ,K=1,N0«1 
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